UltrAzimut
XLDnaute Nouveau
Bonsoir,
Sur une feuille ("Feuil1") j'ai une liste de noms sur plusieurs colonnes. J'ai donc défini une plage "NOM".
Sur une feuille appelé "Feuil2", j'ai un bouton et je souhaiterai que lorsque je clique dessus, la liste de noms s'affiche dans la colonne A à partir de la ligne 6.
Pour ce faire, ma macro est la suivante :
Maintenant, cette liste de noms comporte des doublons que je souhaiterai supprimer lorsque je génère la liste.
Comment puis je procéder ?
Merci
Sur une feuille ("Feuil1") j'ai une liste de noms sur plusieurs colonnes. J'ai donc défini une plage "NOM".
Sur une feuille appelé "Feuil2", j'ai un bouton et je souhaiterai que lorsque je clique dessus, la liste de noms s'affiche dans la colonne A à partir de la ligne 6.
Pour ce faire, ma macro est la suivante :
Code:
Sub RecupNom()
Dim i As Integer
i = 1
With Sheets("Feuil1")
For Each C In .Range("NOM")
If Not IsEmpty(C) Then
With Sheets("Feuil2")
.Range("A" & 5 + i) = [C]
.Range("B" & 5 + i) = C.Offset(0, 1)
End With
i = i + 1
End If
Next
End With
End Sub
Maintenant, cette liste de noms comporte des doublons que je souhaiterai supprimer lorsque je génère la liste.
Comment puis je procéder ?
Merci