doublons

[bernardrustrel]

Bonjour à tous
Voici mon souci: je voudrais copier une liste de données sans les doublons, cependant ma macro me supprime bien les doublons excepte si ces derniers se trouvent être les premières données. voir fichier joint.
je ne sais comment résoudre ce pb.
merci par avance aux âmes charitables qui me viendraient en aide

 

[Cousinhub]

Re : doublons

Bonjour,
le problème vient du fait que tu n'as pas de titre dans ta colonne.
Si tu ne veux pas en rajouter, tu peux le faire temporairement, et extraire sans doublons comme ceci :

Sub Macro7()
Application.ScreenUpdating = False
    Rows("1:1").Insert Shift:=xlDown
    [B1] = "titre"
    [F1] = [B1]
    Range("B1:B9").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1" _
        ), Unique:=True
    [B1].EntireRow.Delete
Application.ScreenUpdating = True
End Sub

 

[bernardrustrel]

Re : doublons

merci pour ce conseil
mais comment faire si les données sont prélevées dans une sélection le problème se réitèrera t il
merci

 

[Cousinhub]

Re : doublons

Re-,
le problème restera entier, il faut un titre pour extraire des données via le filtre élaboré.
tu peux aussi essayer ce code :

Sub Macro9()
Application.ScreenUpdating = False
y = Selection.Column: z = Selection.Count
If z = 1 Then MsgBox "une seule cellule de sélectionnée": Exit Sub
If Selection.Row = 1 Then
    Rows("1:1").Insert Shift:=xlDown
    [B1] = "titre"
    [F1] = [B1]
    Range(Cells(1, y), Cells(z + 1, y)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1" _
        ), Unique:=True
    [B1].EntireRow.Delete
Else
x = Selection.Row - 1
    Range(Cells(x, y), Cells(x + z, y)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1" _
        ), Unique:=True
    [F1].Delete Shift:=xlUp
End If
Application.ScreenUpdating = True
End Sub

premier test : si la sélection ne compte qu'une cellule, on sort...
si la première cellule de la sélection est dans la première ligne, on utilises le code précédemment proposé
si cette première cellule commence n'importe où, pas besoin d'insérer un titre, on extrait dircetement.