Combobox et tableau

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:

---

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:

---

Dim MonTableau (1 to NombreLignes)

---

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

Pouvez-vous m'aider ?


NATY

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é

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

Finalement j'ai écris celà :

Code:

---

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:

---

Redim Preserve (i)

---

dans ma boucle ?

NATY

J'ai trouvé.
Merci pour ton aide Leny13