T
Titou
Guest
Bonjour,
à partir de trois combobox je réalise une selection dans un premier temps en fontion du nom, cela alimente la combobox2 , puis prenom cela alimente la combobox3 adresse...
les deux premières combobox ne prennent pas les doublons, cependant la 3e affiche les doublons... je ne sais pas pourquoi,
il doit y avoir une formulle de programmation pour dire que si la valeur d'une ligne d'une liste pour une combobox est égale à la valeur du dessus alors elle ne prend pas cette valeur, du genre:
Dim A As Byte
For A = 4 To Range("C65536").End(xlUp).Row
ComboBox1 = Range("C" & A)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("C" & A)
Next A
mais je n'arrive pas à l'intégrer dans l'évenement : Private Sub ComboBox2_Change()
merci pour votre aide
Titou
à partir de trois combobox je réalise une selection dans un premier temps en fontion du nom, cela alimente la combobox2 , puis prenom cela alimente la combobox3 adresse...
les deux premières combobox ne prennent pas les doublons, cependant la 3e affiche les doublons... je ne sais pas pourquoi,
il doit y avoir une formulle de programmation pour dire que si la valeur d'une ligne d'une liste pour une combobox est égale à la valeur du dessus alors elle ne prend pas cette valeur, du genre:
Dim A As Byte
For A = 4 To Range("C65536").End(xlUp).Row
ComboBox1 = Range("C" & A)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("C" & A)
Next A
mais je n'arrive pas à l'intégrer dans l'évenement : Private Sub ComboBox2_Change()
merci pour votre aide
Titou