Intégrer une variable pour une cellule

Bonjour,

Désolé mon intitulé n'est pas très clair.
En fait je voudrais ajouter des items dans une listbox selon le contenu d'une colonne excel.
Je récupère le nombre de cellule remplies (num) dans ma colonne et je fais une boucle for pour remplir ma listbox mais je n'arrive pas à intégrer ma variable num :

Code:

---

1 2 3 4 5 6

If num > 0 Then For x = 1 To (num) LBDomaine.AddItem Sheets("Parametres").Range("A+num") Next End If

---

J'aimerai que si x=1, avoir "Range("A1") mais je n' arrive pas à placer mon 'num'.

Je vous remercie de votre aide

Ca ce travail comme une chaine de caractère

Code:

---

Range("A" & num)

---

Edit
tu peux toujours faire
si li est ton numéro de ligne te col ton numéro de colonne

Code:

---

range(cells(li,col),cells(li,col))

---

J'ai fait :

Code:

---

Range("A" & num)

---

J'ai encore une erreur qui me dit : "L'indice n'appartient pas à la sélection"

num vaut combien?
Donne toute ta ligne de code

Bonsoir ou bonjour, ça dépend...,

et si tu essayais comme ça :

Code:

---

1 2 3 4 5 6 7

Dim num As Integer num = Range("a" & Rows.Count).End(xlUp).Row For x = 1 To num If Not IsEmpty(Range("a" & x)) Then LBDomaine.AddItem Sheets("Parametres").Range("A" & x) End If Next x

---

bonne nuit ou bonne journée, ça dépend....