Bonjours à tous,
je cherche à faire des comboBox imbriqués au min 3.
Pour cela j'ai choisi de définir la propriété RowRource par programmation dans un formulaire.
Pour definir la propriété RowShow de la ComboBox1 pas de problème. Pour la seconde les choses sont différentes.
voici ce que j'ai programmé :
Private Sub ComboBox1_Change() 'Combobox2
If ComboBox1.Value = "" Then Exit Sub
Dim DerCellcb2 As String
DerCellcb2 = Range("A2").End(xlDown).Address
ComboBox2.RowSource = "A2:" & DerCellcb2
End Sub
Private Sub ComboBox2_Change() 'Combobox3
If ComboBox2.Value = "" Then Exit Sub
Dim DerCellcb3 As String
DerCellcb3 = Range("G4").End(xlDown).Address
ComboBox3.RowSource = "G4:" & DerCellcb3
End Sub
Mon idée est de pouvoir Changer "A2" en "A3"...."Ax" en fonction de la valeur de l'index de ComboBox précédente pour avoir "A3" par exemple si je selectionne dans la ComboBox la deuxième valeur de façon a ce que
ComboBox2.RowSource = "A3:" & DerCellCb2
Je joints mon fichier de test
Merci beaucoup aux personnes qui vondront bien répondre
Ne pas hésité à me dire si mon axe de réflexion n'est pas la plus simple, je suis ouvert à toute autre orientation pour arriver à mes fins