ComboBox & Doublons

[Halffy]

Bonsoir à tous,
en souhaitant que ce Dimanche se soit bien passé pour vous et vos proches...

Comme expliqué dans le titre, je suis confronté à un problème de Doublons dans la liste qui apparait dans ma ComboBox.
Malgrés les nombreux sujets qui traitent de ce problème, je n'arrive pas à adapter les diverses solutions proposées; je pense que c'est dû à la façon d'alimenter cette comboBox.
C'est pourquoi, je vous joins un Fichier afin de mieux cerner le dit-problème.
D'ors et déjà, avec tous mes Remerciements, je vous souhaite une bonne soirée.
Halffy /.

 

[Papou-net]

Re : ComboBox & Doublons

Bonsoir Halffy,

En modifiant ton code ainsi, tu devrais obtenir le résultat que tu recherches.

Private Sub ComboBox7_Change()

ComboBox6.Clear
ComboBox5.Clear

'=================================================
'Permet d'Afficher une Terminologie /à sa Machine
 chaine = ""
 For n = 2 To Range("D65536").End(xlUp).Row
     If CStr(Range("H" & n)) = ComboBox7 Then
       If InStr(chaine, Range("D" & n)) = 0 Then ComboBox6.AddItem Range("D" & n)
      chaine = chaine & " " & Range("D" & n)
     End If
   Next n

End Sub

Espérant avoir répondu.

Cordialement.

 

[Bebere]

Re : ComboBox & Doublons

bonjour Halffy,Papounet
une autre proposition
à bientôt

 

[Halffy]

Re : ComboBox & Doublons

Bonsoir Papou-net, Bebere,
Je vous remercie pour votre aide rapide, (très rapide 😀) en ce Dimanche soir: Bravo / et Grand Merci à vous 2.
Vos solutions l'une comme l'autre répondent parfaitement à ma demande, fonctionnant et s'intègrant sans problème dans mon fichier Primaire; ça marche mieux comme ça, c'est plus mieux 😛.
Je vous Remercie encore... et vous souhaite une bonne soirée & un bon week-end Pascal.
Halffy, Happy 😎 (euh... sans les lunettes: y a pas de soleil 😱) /.