Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Alimenter un ComboBox

Alimenter un ComboBox

4 réponses
Avatar
Ablobaka
Bonjour,

je souhaite alimenter un ComboBox avec des valeurs de 1 à 12, mais pas à
partir d'une liste.
Comment faire ?
Et quel évènement pour initialiser ?

Private Sub ComboBox1_???()

ComboBox1.AddItem ("1")
ComboBox1.AddItem ("2")

End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Pounet95
Bonjour,
Une boucle suffit, non ?

For i=1 to 12
combobox1.additem i
next i

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Ablobaka" a écrit dans le message de news:
%
Bonjour,

je souhaite alimenter un ComboBox avec des valeurs de 1 à 12, mais pas à
partir d'une liste.
Comment faire ?
Et quel évènement pour initialiser ?

Private Sub ComboBox1_???()

ComboBox1.AddItem ("1")
ComboBox1.AddItem ("2")

End Sub




Avatar
AV
Vu l'empressement que tu as mis à accuser réception des réponses aux questions
que tu as précédemment posées.....

AV
Avatar
LeSteph
Bonjour Ablobaka,
si le combo est bien dans unUserform
'*****
Private Sub UserForm_Initialize()
Dim i as integer
For i = 1 to 12
Me.ComboBox1.AddItem (i)
Next i
End Sub
'*****
'--
'lSteph

"Ablobaka" a écrit dans le message de news:
%
Bonjour,

je souhaite alimenter un ComboBox avec des valeurs de 1 à 12, mais pas à
partir d'une liste.
Comment faire ?
Et quel évènement pour initialiser ?

Private Sub ComboBox1_???()

ComboBox1.AddItem ("1")
ComboBox1.AddItem ("2")

End Sub




Avatar
Ablobaka
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
Me.ComboBox1.AddItem (i)
Next i
End Sub

Super, le code ci-dessus fonctionne à merveille.
C'est la 1er fois que j'utilise le contrôle ComboBox, et je ne suis pas très
familiarisé avec les boîtes de dialogues personnalisées. Là j'entre dans une
nouvelle dimention d'Excel.

Merçi de votre aide.


"LeSteph" a écrit dans le message de
news:
Bonjour Ablobaka,
si le combo est bien dans unUserform
'*****
Private Sub UserForm_Initialize()
Dim i as integer
For i = 1 to 12
Me.ComboBox1.AddItem (i)
Next i
End Sub
'*****
'--
'lSteph

"Ablobaka" a écrit dans le message de news:
%
Bonjour,

je souhaite alimenter un ComboBox avec des valeurs de 1 à 12, mais pas à
partir d'une liste.
Comment faire ?
Et quel évènement pour initialiser ?

Private Sub ComboBox1_???()

ComboBox1.AddItem ("1")
ComboBox1.AddItem ("2")

End Sub