Combobox - liste via boucle

Bonjour,

j'ai besoin qu'une combobox m'affiche une liste de choix entre 1 et 100 avec un pas de 0.1, sans pour autant faire référence à des cellules.
je n'arrive à aucun résultats, cela fonctionne uniquement si je liste mes valeurs sur une feuille, et que je fais pointer la combobox sur ces cellules....

merci de votre aide

Laurent

Bonjour,

Code:

---

1 2 3 4 5

x = 0 Do While x < 100.1 ComboBox1.AddItem x x = x + 0.1 Loop

---

ça devrait fonctionner.

Bonne journée.

merci de cette réponse rapide,
ne maitrisant pas, je dois le passer comme ça ? :

Code:

---

1 2 3 4 5 6 7 8

Private Sub ComboBox5_Click() Dim x As Long x = 0 Do While x < 100.1 ComboBox5.AddItem x x = x + 0.1 Loop End Sub

---

re
bonjour
non tu ne dois pas passer par le click sur liste pour remplir il faut la remplir avant
soit dans l'activate de la fentre parent (userform/sheets) soit dans le click sur dropbutton

Code:

---

1 2 3

Private Sub ComboBox5_DropButtonClick() For i = 0 To (100 / 0.1): ComboBox5.AddItem i / 10: Next End Sub

---

j'aurais pu ecrire la boucle comme ca aussi

Code:

---

For i = 0 To 100 Step 0.1: ComboBox5.AddItem Round(i, 1): Next'j'utilise round sinon j'ai plein de 0 apres la virgule tandis qu'avec la methode 1 je n'ai pas de soucis

---

Bonjour Patrick,

c’est quasi parfait, merci beaucoup !

aurais tu des conseils pour 2 axes d'améliorations :

- j'aurais souhaité que les entiers s'affichent sous forme décimale ex : 60 => 60,0
- aurais tu une astuce pour transformer les virgules en point 41,8 => 41.8

merci de ton aide

j'ai trouvé le premier point :
- que les entiers s'affichent sous forme décimale ex : 60 => 60,0

Code:

---

For i = 0 To (100 / 0.1): ComboBox5.AddItem Format ( i / 10, "0.0"): Next

---

une idée pour le second point ?