Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

additem dans une listBox

  • Initiateur de la discussion elhich
  • Date de début
E

elhich

Guest
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
 
R

Razy

Guest
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
 
M

michel

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…