ComboBox et Tableau

Bonjour,

Pour rentrer des clés d'un scripting.dictionnary dans un comboBox j'utilisais :

For Each k In dico.keys
    If UserForm3.ComboBox1.ListIndex = -1 Then 
        UserForm3.ComboBox1.AddItem k
    End If
Next k

Cependant, pour une clé j'ai maintenant plusieures valeurs, j'utilise donc un tableau.

J'essayes donc de transposer mon code pour mon tableau mais je bloque au moment d'indiquer à la procédure de balayer la premiere colonne du tableau.

' ajouter les valeurs de la premiere colonne du tableau dans le ComboBox1 
'je coince pour la ligne du dessous
For Each k In Montableau(?, 1)
    If ComboBox1.ListIndex = -1 Then           
        ComboBox1.AddItem k
End If
Next k

Si vous avez une idée, je suis preneur.

Merci d'avance

Bonjour

Sans fichier

Essayes

Sub test()
  For K = LBound(Montableau) To UBound(Montableau)
    ComboBox1 = Montableau(K, 1)
    If ComboBox1.ListIndex = -1 Then
      ComboBox1.AddItem Montableau(K, 1)
    End If
  Next K
End Sub

Merci,

Cependant je dois avoir un soucis lors de la création de mon tableau :s

Je vous joins le fichier.

C'est dans le code de l'userform, ==> UserForm_Initialize.

Je ne comprend pas pourquoi il ne me remplit pas le tableau correctement.

Bonjour

Il faudrait savoir ce que tu veux afficher dans la ComboBox ?

Pour la dernière ligne c'est

Lgdata = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row

Ce qui m'intrigue un peu c'est que tu remplis ton tableau en te décalant d'une ligne !!!!

A te lire

Ah vi c'était cette ligne qui faisait tout capoter ^^

Merci

Sinon, si tu regardes la Feuille Data, y'a dans la premiere colonne, le nom de l'élément qui évolue au fil des ans et dans les autres colonnes les valeurs en fonction des années.

Dans dans le combobox je ne veux affichier que les noms, mais quand je le selectionnerai, cela renverra dans mes formule les différentes valeurs, selon les années.

Et la premier ligne est initule, c'est juste un repère pour savoir de quelle année sont les pourcentages, donc je décale les indices de 1.

Edit: je viens de comprendre pourquoi tu était sceptique sur le décalage d'indice, j'ai rectifier la taille de mon tableau par

( 1 to Lgdata -1, 1 to 6), Merci encore ^^