synchroniser des combobox

[Emma]

bonsoir à tous,

quelqu'un saurait il comment synchroniser des combobox (3) dans un userform ?
je selectionne la valeur de la 1 et automatiquement la 2 et la 3 affiche les valeurs correspondants a un tableau.





MAYDAY! MAYDAY!

 

[LaurentTBT]

Bonsoir, Emma

En supposant que tu as les données de la Combo1 en colonne 1, la 2 en B et la 3 en C:
Private Sub Combobox1_Change()
Combobox2=Range("A:A").find(What:=Combobox1).cells(1,2)
Combobox3=Range("A:A").find(What:=Combobox1).cells(1,3)
Exit sub

J'écris ça en aveugle, sans tester, alors à essayer sans garantie!

C'est un peu pareil dans ton autre post:
Lien supprimé

Bonne soirée.

 

[Emma]

Merci, je vais essayer

voilà ce que donne pour l'instant le programme.
j'essaye de mettre enplace une recherche soit par nom soit par cours

Dans la cb1=cours insertion/nom/définir/ = lstcours
dans la cb2=nom insertion/nom/définir/ = Lstnom
si l'utilisateur choisi la première la deuxième s'assombrit (pas réussi à la désactivée)
et inverse possible


dans la cb3=nom/cours(si 1er choix) insertion/nom/définir/ = Lstnom/lstcours
dans la cb4=date insertion/nom/définir/ = Lstdate
dans la cb5=pdp insertion/nom/définir/ = Lstpdp ou le local géo


Dim MonBook As Workbook
Dim datacombo1 As New Collection
Dim datacombo2 As New Collection
Dim Item
Dim cell As Range

Private Sub ComboBox1_Change()
ComboBox2.BackColor = 17
Label4.Caption = "NOM"
End Sub

Private Sub ComboBox2_Change()
ComboBox1.BackColor = 17
Label4.Caption = "COURS"
End Sub

Private Sub UserForm_Initialize()

With Worksheets("CODE")
On Error Resume Next
For Each cell In .Range("b2:b" & .Range("b65536").End(xlUp).Row)
datacombo1.Add cell.Text, cell.Text
Next cell
End With
For Each Item In datacombo1
ComboBox1.AddItem Item
Next Item

With Worksheets("CODE")
On Error Resume Next
For Each cell In .Range("c2:c" & .Range("c65536").End(xlUp).Row)
datacombo2.Add cell.Text, cell.Text
Next cell
End With
For Each Item In datacombo2
ComboBox2.AddItem Item
Next Item

End Sub


cela peut il meiux t'éclairer ?


bye

 

[Emma]

merci pour votre aide
cette partie du programme fonctionne, j'ai adapté l'info de Laurent et cela fonctionne


encore merci beaucoup



bonne soirée à tous et à une nouvelle question..........