Remplir une combobox à partir d'un tableau

Bonjour à tous,

dans excel, je tente de remplir une combobox à partir d'un tableau qui lui même est alimenté à partir d'une feuille excel.
Tout semble fonctionner sauf que la combobox se créee avec le bon nombre de lignes mais pas avec les données.
J'ai bien vu qu'il y avait d'autres méthodes type .Additem mais je pensais gagner du temps par le chargement d'un tableau avec la méthode .List.

Pouvez-vous me dire s'il est possible de créer une combobox à partir d'un tableau ? Si oui est-ce que vous pouvez m'aider à identifier ou je me suis trompé ?

voici le code en question pour l'initialisation du userform dans lequel est placé la combobox :
--------------------------------------------------------------------------------------------------

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Initialize() Dim tab_typarret() nb_ligne = (Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row) ReDim Preserve tab_typarret(1 To nb_ligne, 1) For i = 1 To nb_ligne   tab_typarret(i, 1) = Cells(i, 1).Text Debug.Print tab_typarret(i, 1) Next i 'ces lignes ont été ajoutées pour voir si le tableau se charge bien avec les données 'For i = 1 To UBound(tab_typarret, 1) ' Cells(i + 16, 1) = tab_typarret(i, 1) 'Next i   ComboBox1.List = tab_typarret End Sub

---

-------------------------------------------------------------------------------------------------
Merci

Bonjour,

Pourquoi ton tableau a-t-il deux dimensions ?
Pour chaque valeur de i, tu crées :

Code:

---

tab_typarret(i, 0)

---

et

Code:

---

tab_typarret(i, 1)

---

Tu renseignes seulement la seconde valeur. Définis le tableau par :

Code:

---

ReDim Preserve tab_typarret(1 To nb_ligne)

---

Bonjour,

Une solution sans passer par une matrice et sans passer par Initialize du Userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit   Public Nb_Ligne As Long Public I As Long   Sub LancerLeUserform1()   With UserForm1   Nb_Ligne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row For I = 2 To Nb_Ligne .ComboBox1.AddItem Sheets("Feuil1").Cells(I, 1) Next I   .Show   End With   End Sub

---

Une solution via une matrice et sans passer par Initialize du Userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit   Public Tab_TypArret() As Variant Public Nb_Ligne As Long Public I As Long   Sub ChargerComboAvecMatrice()   Nb_Ligne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row ReDim Tab_TypArret(Nb_Ligne - 2) ' La dimension de la matrice part de 0 et on ne tient pas compte de la ligne de titre   For I = 0 To Nb_Ligne - 2 Tab_TypArret(I) = Sheets("Feuil1").Cells(I + 2, 1) ' On démarre réellement de la ligne 2 Next I   With UserForm1   .ComboBox1.List = Tab_TypArret .Show   End With   End Sub

---

Nb : Preserve n'est à utiliser que si de nouveaux enregistrements doivent être ajoutés à la matrice "en cours de route". Si la matrice comporte plusieurs dimensions, Preserve n'ajoute des enregistrements que sur la dernière dimension. Dans votre exemple, si ce sont des lignes qui doivent être ajoutées

Code:

---

ReDim Preserve tab_typarret(1,1 To nb_ligne)

---

Sauf si vous avez stipulé Option Base 1 en tête du module, le 1er enregistrement de la matrice est le numéro 0. C'est pour cette raison que le dernier enregistrement de la matrice est nb_ligne -1. Il vous faut également ne pas tenir compte de la ligne de titre (le cas échéant), c'est pour cette raison que la matrice est nb_ligne - 2 dans mon exemple.

Pour des raisons de lisibilité du code, je n'utilise plus Initialize pour mes userform, je trouve plus facile de travailler directement dans ma procédure de démarrage.

Cordialement.

Eric, Daniel,

merci beaucoup l'un comme l'autre vous m'avez éclairé, grâce à vous mon problème est résolu.

Daniel, je m'étais trompé lorsque j'ai créé mon tableau ce qui explique les 2 dimensions alors qu'une seule était nécessaire.

Eric,

je trouve très intéressant cette possibilité de ne pas passer par l'initialisation du userform.

Encore merci

:ccool: