Re : Problème pour stoker et utiliser 2 variables dans un combobox
Bonjour
Mettre cette macro à l'emplacement de la combobox 1
Private Sub ComboBox1_Change()
mavar1 = Cells(3, ComboBox1.ListIndex + 6).Address(RowAbsolute:=False, columnAbsolute:=False)
' le but de cette ligne est de connaitre l'adresse de la 1ere cellule de la colonne correspondante sous forme H3
3 etant la ligne
ComboBox1.ListIndex correspond au choix fait (attention! le 1° choix=0)
+6 pour arriver sur la bonne colonne...
derlig = Cells(65536, ComboBox1.ListIndex + 6).End(xlUp).Row
'là on recherche la derniere ligne de cette colonne
mavar2 = Cells(derlig, ComboBox1.ListIndex + 6).Address(RowAbsolute:=False, columnAbsolute:=False)
ComboBox2.ListFillRange = mavar1 & ":" & mavar2
'et on dit au 2eme combobox qu'il doit prendre ses données entre les adresses 1 et 2
'exemple: ComboBox2.ListFillRange =h3:h5...
ComboBox2.ListIndex = 0
'là on lui dit d'afficher le 1° choix possible
End Sub
Pour chercher un combobox sur une autre feuille ajouter userform2. devant chaque contrôle du 2eme userform...
exemple: userform2.combobox1.listindex=0
ensuite tu mets: userform2.show
A+ François
Ps: sinon un fichier exemple sera le bienvenu...