additem dans une listBox

[elhich]

salut forum
j'ai une list box dans une feuille excel
et je cherche à ajouter des 10 premiers entiers à l'aide de vba mais ça marche pas avec


i=0
while i<>10
i=i+1
listbox1.additem (i)
wend




j'ai besoin de votre aide
merci

 

[Razy]

Salut,

En VB, la propriété Additem ne gère que des chaînes de caractères et non des entiers... Il faudrait alors écrire plutôt:

list1.Additem CStr(i)

Je ne te garantis rien mais essaye.. je pense qu'il s'agit d'un pb de format de données

 

[elhich]

salut forum
merci RAzy mais ça marche pas aussi ,et meme avec les caractère ça na marche pas ,je croix qu'il ya un autre problème

 

[michel]

bonsoir Elhich , bonsoir Razy

je suis peut etre hors sujet mais s'il s'agit d'une ListBox placée dans la feuille ,et que tu l'alimentes depuis une macro exterieure à l'objet , il faut préciser le nom de cette feuille.

par exemple :

Dim i As Byte
For i = 1 To 10
Sheets("Feuil1").ListBox1.AddItem i
Next i


ou en utilisant ton premier exemple :

Dim i As Byte
While i <> 10
i = i + 1
Sheets("Feuil1").ListBox1.AddItem (i)
Wend


s'il s'agit d'une ListBox placée dans un UserForm ,et que tu l'alimentes depuis une macro exterieure à l'objet , il faut préciser le nom du UseForm
par exemple :

Dim i As Byte
For i = 1 To 10
UserForm1.ListBox1.AddItem i
Next i


j'espere que cela pourra t'aider .
si cela ne fonctionne toujours pas , peux tu placer un exemple zippé sur le forum pour mieux visualiser ton soucis


bonne soiree
michel