création d'une combobox avec des éléments de différentes feuille

[thuan]

bonjours à tous
je voudrai créer une combobox avec des élements différents qui se trouveraient sur différentes feuilles excel du meme classeur.
cette fois ci j'utilise une useform mais je sais pas comment on fait car si je rentre le prog suivant, rien ne s'affiche dans ma combo

Private Sub ComboBox1_()
ComboBox1.AddItem "Moteur1" 'ListIndex = 1
ComboBox1.AddItem "Moteur2" 'ListIndex = 2
ComboBox1.AddItem "Moteur3" 'ListIndex = 3
ComboBox1.AddItem "Moteur4" 'ListIndex = 4
ComboBox1.AddItem "Moteur5" 'ListIndex = 5
ComboBox1.AddItem "Moteur6" 'ListIndex = 6
End Sub

MERCI pour votre tps

 

[@+Thierry]

Salut Thuan, le Forum

Je ne peux charger de pièce jointe depuis la WorkStation où je me trouve (Sécurité) par contre en lisant ton Post tu as une erreur pour l'évènement "Private Sub ComboBox1_()" si tu veux par exemple que ta ComboBox soit alimentée au lancement du UserForm :

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Moteur1"
.AddItem "Moteur2"
.AddItem "Moteur3"
.AddItem "Moteur4"
.AddItem "Moteur5"
.AddItem "Moteur6"
End With
End Sub

Par défaut les items seront indexés dans l'ordre de la syntax. Inutile de préciser : ListIndex = 1, de plus la syntax serait alors :
.AddItem "Moteur1", 0
.AddItem "Moteur2", 1
.AddItem "Moteur3", 2
(L'indexation démarre de 0)

Pour le reste, incrémentation des données provenant de différentes feuilles du classeur, tu peux continuer à utiliser la méthode AddItem... Par exemple comme ceci :

Private Sub UserForm_Initialize()
Dim i As Byte

With ComboBox1
For i = 1 To 10
.AddItem Sheets("Feuil1").Range("A" & i)
Next
For i = 1 To 10
.AddItem Sheets("Feuil2").Range("A" & i)
Next
For i = 1 To 10
.AddItem Sheets("Feuil3").Range("A" & i)
Next
End With
End Sub

Ce code incrémentera dans la ComboBox1 les valeurs contenues dans les Cellules "A1:A10" de chacune des Feuilles : "Feuil1", "Feuil2", "Feuil3", soit 30 items...

Bon Après Midi
@+Thierry

 

[thuan]

je te remercie pour ces précieux conseils tu es très fort en plus de ca tu es pédagogue car tu expliques des trucs et j'arrive à comprendre merci pour tes conseils. ps j'ai essayé de m'inspirer d'application que tu avais créer mais je n'y arrivais pas comme ca tout seul.
Encore Merci !!!! bonne soirée

 

[@+Thierry]

Bonsoir Thuan, le Forum

Ah ça c'est gentil, tu me fais plaisir, c'est grace à quelques lignes comme les tiennes que d'un coup on oublie toutes les fois où l'indifférence prime, et du coup on apprécie de faire tout cet investissement bénévol sur ce Forum.

Merci à Toi, Merci à Vous, Merci pour Nous
@+Thierry