Discussion :

[Greg57365]

Bonjour à tous

Voici mon problème :

J'ai, à l'aide d'une base de données, réussi à créer un programme permettant d'alimenter 4 combobox en cascade (la première permet de lister les éléments de la deuxième, etc...).

A présent, j'aimerais récupérer l'ensemble des éléments de la combobox4 pour les inscrire dans une feuille de calcul (en A1, A2, A3, A4,...)
J'ai essayé d'utiliser la fonction ListIndex pour récupérer chaque ligne de la combobox afin de l'insérer dans la bonne cellule, sauf qu'une erreur apparait lorsque la ListIndex est supérieure à 0...

Merci d'avance pour vos suggestions !

[Quentin77170]

Salut

Tu peux soit écrire ligne par ligne :

Code :

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

1
2
3
For i = 0 to ComboBox4.ListCount - 1 
    Range("A1").Offset(i).Value = ComboBox4.List(i)
Next i

Soit écrire d'un seul trait :

Code :

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

Range("A1").Resize(ComboBox4.ListCount).Value = ComboBox4.List 'écrira dans la plage sélectionnée le tableau correspondant à la propriété "List" de la ComboBox

EDIT :

J'ai oublié de préciser pour la première solution, il ne faut pas utiliser le ListIndex, qui est le numéro de l'item sélectionné, mais :

Pour écrire dans une ligne particulière : ComboBox4.List([Index], [Colonne si besoin]) = [Valeur]
Pour lire, c'est l'inverse : Valeur = ComboBox4.List([Index], [Colonne si besoin])

Les Index commencent à 0 et finissent donc à N-1, N étant le nombre de lignes, autrement dit : ComboBox4.ListCount

[Greg57365]

Super !! Merci beaucoup Quentin, c'est exactement ce dont j'avais besoin
J'étais vraiment bloqué sur le "ListIndex"....

A la prochaine et encore merci