Discussion :

[whitea]

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 :

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

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

[Daniel.C]

Bonjour,

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

Code :

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

tab_typarret(i, 0)

et

Code :

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

tab_typarret(i, 1)

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

Code :

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

ReDim Preserve tab_typarret(1 To nb_ligne)

[Invité]

Bonjour,

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

Code :

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

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 :

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

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 :

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

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.

[whitea]

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