Discussion :

[toinou62]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

Ca ce travail comme une chaine de caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & num)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[toinou62]

J'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & num)

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

[Krovax]

num vaut combien?
Donne toute ta ligne de code

[casefayere]

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

et si tu essayais comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....