Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Calou,
Tu n'étais pas loin de la solution : SANS le signe égal. ComboBox1.AddItem "toto"
Mais tu as plusieurs alternatives : Avec une plage de cellules dans la Feuil1
With Worksheets("Feuil1") Me.ComboBox1.RowSource = .Name & "!" & .Range("A1:A10").Address End With
Il y a aussi cette autre possibilité :
With Worksheets("Feuil1") Me.ComboBox1.List = .Range("A1:A10").Value End With
P.S- Attention, Utilise seulement UNE façon de faire pour initialer ton combobox.
"Calou" a écrit dans le message de groupe de discussion : Bonjour, Voilà pour la première fois, j'essaie d'utiliser un ComboBox (pas dans un Userform). Et je n'arrive pas à la remplir
Private Sub ComboBox1_Click() ComboBox1.AddItem = "toto" ComboBox1.AddItem = "titi" End Sub
Bonjour Calou,
Tu n'étais pas loin de la solution :
SANS le signe égal.
ComboBox1.AddItem "toto"
Mais tu as plusieurs alternatives :
Avec une plage de cellules dans la Feuil1
With Worksheets("Feuil1")
Me.ComboBox1.RowSource = .Name & "!" & .Range("A1:A10").Address
End With
Il y a aussi cette autre possibilité :
With Worksheets("Feuil1")
Me.ComboBox1.List = .Range("A1:A10").Value
End With
P.S- Attention, Utilise seulement UNE façon de faire pour initialer
ton combobox.
"Calou" <philippe.blanchard.36@gmail.com> a écrit dans le message de groupe de discussion
: 92dfa131-6940-4a44-9018-d15aa3d0b338@o15g2000yqm.googlegroups.com...
Bonjour,
Voilà pour la première fois, j'essaie d'utiliser un ComboBox (pas dans
un Userform). Et je n'arrive pas à la remplir
Private Sub ComboBox1_Click()
ComboBox1.AddItem = "toto"
ComboBox1.AddItem = "titi"
End Sub
Tu n'étais pas loin de la solution : SANS le signe égal. ComboBox1.AddItem "toto"
Mais tu as plusieurs alternatives : Avec une plage de cellules dans la Feuil1
With Worksheets("Feuil1") Me.ComboBox1.RowSource = .Name & "!" & .Range("A1:A10").Address End With
Il y a aussi cette autre possibilité :
With Worksheets("Feuil1") Me.ComboBox1.List = .Range("A1:A10").Value End With
P.S- Attention, Utilise seulement UNE façon de faire pour initialer ton combobox.
"Calou" a écrit dans le message de groupe de discussion : Bonjour, Voilà pour la première fois, j'essaie d'utiliser un ComboBox (pas dans un Userform). Et je n'arrive pas à la remplir
Private Sub ComboBox1_Click() ComboBox1.AddItem = "toto" ComboBox1.AddItem = "titi" End Sub