suprimé doublons dans un combobox

[tonyde54]

Bonjour à tous

besoin d'aide pour supprimé automatiquement les doublons
des noms de clients dans un combobox place sur la feuille (facture) et qui qui vienne de la feuille (données clients) sans pour cela les supprimées dans (données clients)

je vous remercie d'avance

bye

tony

 

[michel]

bonjour Tony

j'espere que cet exemple répondra à ta demande

Sub remplirclient()
Dim x As Integer
Feuil3.ComboBox1.Clear
For x = 3 To Feuil5.Range("C65536").End(xlUp).Row
Feuil3.ComboBox1 = Range("C" & x)
If Feuil3.ComboBox1.ListIndex = -1 Then Feuil3.ComboBox1.AddItem Range("C" & x)
Next x
End Sub


bonne journée
MichelXld

 

[tonyde54]

bonjour michel

merci pour ton aide

j'ai essayer ta macro

mais dans mon combobox les noms clients disparaisse tous
et a la place je me retrouve avec de colonne

Telephone :
et
Portable :

olors si tu peut me la mettre sur le fichier en retour

merci d'avance

tony

 

[michel]

bonjour Tony

je n'arrive pas à acceder aux macros de ton classeur au travail , je reessayerai ce soir de chez moi
en attendant tu peux essayer cette adaptation que je n'ai pas testé

Sub remplirclient()
Dim x As Integer
Feuil3.ComboBox1.Clear
For x = 3 To Feuil5.Range("C65536").End(xlUp).Row
Feuil3.ComboBox1 = Feuil5.Range("C" & x)
If Feuil3.ComboBox1.ListIndex = -1 Then Feuil3.ComboBox1.AddItem Feuil5.Range("C" & x)
Next x
End Sub


bon apres midi
MichelXld

 

[tonyde54]

bonjour Michel


j'ai essayer ta macro modifié
j'ai bien les noms des client qui apparaisse
plus telephone et portable c'est bien

mais le probleme maintenant
je n'ai pas + de 2 noms de client qui s'affiche dans le combobox

le trosime ne veut pas s'afficher

on attendant je te remercie
joint nouveau fichier
tony

 

[michel]

rebonjour Tony

je ne comprends pas ton soucis car je viens de tester la deuxieme version de la macro dans ton classeur et les doublons sont bien supprimés dans le ComboBox


bonne soirée
MichelXld

 

[tonyde54]

bonsoir Michel

non je n'ai plus de doublons
mais quand je selectionne a partir du 3ème nom dans le combobox
ça ne maffiche pas le nom selectionner dans la facture
ça maffiche le 1 ou le 2ème nom du combobox


bonne soirée

tony