Discussion :

[NEC14]

Bonjour,

Comment peut-on mettre une liste de chiffre dans un combo sans être obligé de tous les taper dans une feuille Excel.
Je souhaites que mon Combo est une liste de 1 à 200.
Pouvez-vous m'expliquer comment faire s'il vous plait ?
Merci par avance

[zandru]

Bonjour,

je l'écrirai comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 200
    ComboBox1.AddItem (i)
Next

[ouskel'n'or]

Deux manières : Soit tu crées un tableau(200)
For i = 1 to 200 : Tablo(i) = i :Next
tableau que tu affectes à ta liste avec List()
Listbox1.list() = Tablo
Soit tu ajoutes les éléments un à un dans une boucle avec AddItem
Bonne journée

[NEC14]

Bonjour Ouskel'n'or,

Ce n'est pas une ListBox mais un Combo, est-ce la même procédure ?

[ouskel'n'or]

C'est idem tout pareil

[NEC14]

Ok merci. Dois-je faire une déclaration au préalable du genre I as Long ou autre ?
Cette procédure je la met dans le code de la Combo ?
Beaucoup de question, mais je tatonne encore en Vba.
J'ai tapé ce code (dans le combo), mais ça ne marche pas
Merci pour ta patience et ton aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Cb4_Activate()
Dim I As Long
For I = 1 To 200
tablo(I) = I
Next
FrmOp.Cb4.List() = tablo
End Sub

[zandru]

Bonjour,

ces bout de code sont à insérer dans l'activate du userform.

Ouskel'n'or, je pense que faire le for directement sur la combobox serai plus rapide que le faire dans un tableau, et ensuite l'intégrer dans la combo.