Forums XLPages

Excel & VBA Espace Débutants [résolu] combobox et listbox dans usf en cascade ne se remplissent pas

combobox et listbox dans usf en cascade ne se remplissent pas
#1
avenir80
Débutant XLPages

Inscription: 16/08/2010

Messages: 2

Système d'exploitation:
PC
Version Excel utilisée:
2000,2003
Posté le : 12-10-2010 09h58
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

Edit du webmaster : Ajout des balises de CODE. Merci de consulter ce LIEN.







Edité par avenir80 le 05/11/2010 11:15:59
Hors Ligne
 Rapport   Haut 

Re: alimenter combobox et listbox dans usf en cascade
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 12-10-2010 10h42
Bonjour,


... avec le présent sujet ouvert ici, ça ne ferait pas un peu beaucoup ?


Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes