methode pour remplir un combobox

bonjour ,

nouvelle question du jour:
je remplie mes cmbobox de cette maniere:

Code:

---

1 2 3 4 5 6

Private Sub Userform_initialize() With ComboBox1 .AddItem = "13" End With   End Sub

---

maintenant j ai plus de 200 nombres a affiche et j aimerai savoir si au lieu de faire

Code:

---

1 2 3

.additem "13" .additem "14" .additem "15"

---

il y a un raccourci du genre ( je sais que c est faux )

Code:

---

1 2 3 4 5

Private Sub Userform_initialize() With ComboBox1 .AddItem = "13:263" End With End Sub

---

merci

Bonjour,

Regarde dans ton aide en ligne les boucles For .... to .... Next

et fais en une de la valeur i (par exemple) de 13 à ce que tu veux !

Re,

Deux possibilités
Soit les nombres sont insérés dans des cellules alors c'est via la propriété RowSource

Soit via un boucle

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Userform_initialize() Dim i With Me.ComboBox1 For i = 13 To 263 .AddItem i Next End With   End Sub

---

et est ce possible de faire un test sur combobox dans ce style:

Code:

---

1 2 3

If combobx1.value = " une valeur de 13 a 263" then _ sheet1.rows("combobox.value").hidden = true

---

merci

ok j ai compri la methode
merci a tous

et ça ça marche pas :

Code:

---

1 2 3 4 5

Dim i As Long For i = 13 To 263 ComboBox1.AddItem i Next i

---