Discussion :

[Mammy Potter]

Bonjour,

Je reviens vous embêter un peu car je ne sais pas pourquoi, mais j'ai un petit problème avec mon tri sur les doublons.

Voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Do Until Range("A" & i).Value = ""
        i = i + 1
    Loop
 
    Range("A1:A" & i - 1).AdvancedFilter xlFilterCopy, criteriarange:=Range("A1:A" & i - 1), copytorange:=Range("B1"), _
    unique:=True

Mais en B1 et B2 j'ai la même valeur du coup j'ai encore 1 doublon...

Quelqu'un aurait une idée

[mercatog]

A1 devrait être le titre de la colonne. elle n'est pas prise comme valeur
Sinon, sans boucle pour chercher la dernière ligne, tu peux faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim LastLig As Long
 
With Sheets("Feuil2") ' à adapter
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
   .Range("A1:A" & LastLig).AdvancedFilter xlFilterCopy, _
       criteriarange:=.Range("A1:A" & LastLig), copytorange:=.Range("B1"), _
       unique:=True
End With

Edit: Tu peux ajouter une ligne par macro, filtrer les données et supprimer cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil2")   ' à adapter
   .Rows(1).Insert
   .Range("A1").Value = "NimporteQuoi"
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
   .Range("A1:A" & LastLig).AdvancedFilter xlFilterCopy, _
                                           criteriarange:=.Range("A1:A" & LastLig), copytorange:=.Range("B1"), _
                                           unique:=True
   .Rows(1).Delete
End With

[Mammy Potter]

Merci bien pour cette réponse rapide et efficace

Et sympa pour l'info pour la boucle