Discussion :

[naty76]

Bonjour,

Je chercher à remplir un tableau dont je ne connais pas la dimension pour une liste de données récupérées dans une feuille dont je ne connais pas non plus le nombre de lignes
Voici mon code qui ne fonctionne pas mais je n'y arrive pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i, NombreLignes, Nombrecolonnes as Integer
Set SelectionDate=worksheets("DateFormation").Range("A1").currentRegion
NombreColonnes =SelectionDate.columns.count
NombreLignes=SelectionDate.Rows.count
ComboDate.clear
 
Dim Montableau() as Variant
 
For i=1 to NombreLignes
 
MonTableau(i)=selectionDate.cells(i,2).value
Next i
ComboDate.List=Montableau

L'erreur "L'indice n'appartient pas à la sélection"
Etant donné que je n'ai pas dimensionné mon tableau, çà pose peut être un problème mais quand j'écris :

Code :

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

Dim MonTableau (1 to NombreLignes)

il n'en veux pas non plus. msge "Constante requise"

Pouvez-vous m'aider ?


NATY

[Leny13]

Je suis pas un expert, mais je pense qu'il faut que tu utilises :
ReDim MonTableau(i)
avec i la taille de ton tableau
La fontion ReDim permet de redimensionner ton tableau à volonté

[naty76]

Merci ! C'est celà qu'il me manquait

Finalement j'ai écris celà :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Montableau() as Variant
Redim MonTableau (1 to NombreLignes)
 
For i=1 to NombreLignes
 
MonTableau(i)=selectionDate.cells(i,2).value
Next i
ComboDate.List=Montableau

Et çà fonctionne. Par contre, je ne suis pas certaine que ce code soit optimisé.
Y a-t'il une autre manière d'utiliser Redim? ou peut être dois-je utiliser

Code :

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

Redim Preserve (i)

dans ma boucle ?

NATY

[naty76]

J'ai trouvé.
Merci pour ton aide Leny13