problème alimentation combobox dans un usf

avenir80

XLDnaute Nouveau
Bonjour,
J'ai plusieurs classeurs remplis à l'aide d'un usf a plusieurs pages, avec différents combobox et listbox, et je bute sur le remplissage de combobox et listbox en cascade donc les données sont rapatriés des classeurs sur une autre page de l'usf.
je choisis d'abord dans le combobox1(nom des feuilles du classeur) ensuite je choisis dans une liste avec le combobox2 qui doit me remplir les autres combobox et listbox, ça fonctionne, mais si je change mon choix dans le combobox2, il ne se passe rien.:(

Je dois aussi rapatrier l'en-tête pour ma plage de couleur dans des combobox, par exemple je dois remplir un combobox avec la semaine 3(colonnne L) (début plage de couleur) et semaine 27(fin de plage de couleur,colonne AJ).

Merci d'avance pour votre aide


Private Sub ComboBox2_DropButtonClick()
Dim Lig As Long, j As Long
Workbooks("Classeur1.xls").Sheets(ComboBox1.Value).Activate
ComboBox2.Clear
Sheets(ComboBox1.Value).Activate
With Sheets(ComboBox1.Value)
For j = 10 To Range("A65536").End(xlUp).Row
Lig = 10 + Me.ComboBox2.ListIndex + 1
ComboBox2.AddItem Range("A" & j)
ComboBox2 = Range("A" & j)
Next j
Me.ComboBox3.Value = .Range("B" & Lig)
Me.TextBox1.Value = .Range("C" & Lig)
Me.ComboBox4.Value = .Range("D" & Lig)
Me.ComboBox5.Value = .Range("E" & Lig)
Me.ComboBox6.Value = .Range("F" & Lig)
Me.ComboBox7.Value = .Range("G" & Lig)
etc...
End With
End Sub
 
Dernière édition:

Discussions similaires


Haut Bas