Comment copier des cellules d'une Zone vers une autre sans espace ni doublons

Bonjour;
Je suis bloqué sur excel, j’aimerais extraire d’une zone des données qui contiennent
des doublons et des vides.

Le filtre ne fonctionne pas, la fonction supprimer les doublons non plus, elle est prévue pour les colonnes, mais pas pour les lignes!

Est ce que c’est possible de m’aider?
je joins un fichier d’exemple:

Merci d’avance
essai2.xlsx (8,9 Ko)

Bonjour

Un test en VBA

Les macros :


Sub test()
  Dim i%, j%, k%, Dl%
  Dl = Range("a1").CurrentRegion.Rows.Count 'n° de la dernière ligne non vide de la colonne A
    For i = 2 To Dl 'boucle sur les lignes
      k = 17 'variable colonne
      For j = 1 To 15 'boucle sur les colonnes
        If Cells(i, j) <> "" Then 'si la cellule n'est pas vide
          Cells(i, k) = Cells(i, j) 'je recopie en colonne Q
          k = k + 1 'je me déplace d'une colonne
        End If
      Next j
    Next i
    doublons 'éxécute la macro doublons
End Sub

Sub doublons()
Dim i%, j%, k%, Dl%, Dc%, col%
  Dl = Range("q1").CurrentRegion.Rows.Count 'n° de la dernière ligne non vide de la colonne Q
    For i = 2 To Dl 'boucle sur les lignes
      Dc = Cells(i, Columns.Count).End(xlToLeft).Column 'n° de la dernière colonne non vide de la ligne I
      col = 18
      For j = 17 To Dc 'boucle sur la colonne
        For k = col To Dc 'boucle sur la colonne + 1
          If Cells(i, j).Value = Cells(i, k).Value Then 'si les deux valeurs sont identiques
            Cells(i, k).Delete Shift:=xlToLeft 'je supprime la cellule vers la gauche
          End If
        Next k
        col = col + 1
      Next j
    Next i
End Sub

Yvan.xlsm (17,4 Ko)

1 J'aime

Bonjour Mimimathy

Merci pour ta réponse, je regarde ce wk pour essayer la macro et je te
redis

Salutations Yvan

Hello Mimimathy

J’ ai copier le code que tu m’as envoyé ça marche super c’est trop cool
merci beaucoup !!!
par contre pour moi c’est du chinois alors je vais bosser pour apprendre
les macros au moins la base.

je vais mettre sur le forum que c’est résolu.

Salutations Yvan