Bonjour,
J'ai une colonne contenant une suite de références et pouvant contenir des doublons.
Je souhaiterais en fonction de cette liste en creer une seconde sur une autre feuille récapitulant toute les ref se trouvant dans la premiermais sans doublons.
exemple:
toto
toto
tata
titi
toto
titi
tata
Et j'aimerais inscrire dans une colonne d'une autre feuille:
toto
tata
titi
si possible comme ci-dessus a savoir, par ordre d'apparition.
J'ai déja essayé le code vba suivant:
Sub test()
Dim c As Range, Plage As Range, Ctr As Long
Sheets("Planning 1").Activate
Set Plage = Range("B11", Range("B500").End(xlUp))
Ctr = 1
For Each c In Plage
If Not IsNumeric(Application.Match(c.Value, Sheets("Bilan Récap").Range("A:A"), 0)) _
Or Ctr = 1 Then
Sheets("Bilan Récap").Range("A" & Ctr).Value = c.Value
Ctr = Ctr + 1
End If
Next c
End Sub
Ma liste apparait bien mais pas forcément dans l'orde et avec des cellules vides entre chaque...
En espérant avoir était assez claire
Merci de votre aide
J'ai une colonne contenant une suite de références et pouvant contenir des doublons.
Je souhaiterais en fonction de cette liste en creer une seconde sur une autre feuille récapitulant toute les ref se trouvant dans la premiermais sans doublons.
exemple:
toto
toto
tata
titi
toto
titi
tata
Et j'aimerais inscrire dans une colonne d'une autre feuille:
toto
tata
titi
si possible comme ci-dessus a savoir, par ordre d'apparition.
J'ai déja essayé le code vba suivant:
Sub test()
Dim c As Range, Plage As Range, Ctr As Long
Sheets("Planning 1").Activate
Set Plage = Range("B11", Range("B500").End(xlUp))
Ctr = 1
For Each c In Plage
If Not IsNumeric(Application.Match(c.Value, Sheets("Bilan Récap").Range("A:A"), 0)) _
Or Ctr = 1 Then
Sheets("Bilan Récap").Range("A" & Ctr).Value = c.Value
Ctr = Ctr + 1
End If
Next c
End Sub
Ma liste apparait bien mais pas forcément dans l'orde et avec des cellules vides entre chaque...
En espérant avoir était assez claire
Merci de votre aide
