Bonjour le forum
J'ouvre ce poste en complément d'un autre poste. Voilà mon dilemme :
Dans mon UserForm j'ai un ComboBox1 qui apparaît (dans le cas où "Modification" est sélectionné) au dessus de mon ListBox2.
Les choix disponibles dans le ComboBox1 vienne de la première ligne de la Feuil2(Pizzas). Les choix sont des noms de pizzas et en dessous de ses noms se trouve la liste des ingrédients.
L'idée serait d'afficher la liste des ingrédients qui composent la pizza sélectionné !
Le nom des pizzas et leur compositions sont stockée de gauche à droite sur la feuille
Voilà comment j'essaye de procéder :
- -> Via la fonction "Find" je récupère le numéro de la colonne dans laquelle se trouve mon critère (critère = Combobox1)
- -> Après vient le moment d’écrire la formule, et là, ça marche pas ! Le code ne plante pas mais me retourne que des cellules vide dans mon ListBox2 :
Private Sub ComboBox1_Change()
Dim J As Long
Set num = Feuil2.Range("A1:IV1").Find(ComboBox1.Value, , xlValues, xlWhole, , , False)
MsgBox num.Column
For J = 1 To Feuil2.Cells(num.Column & Rows.Count).End(xlUp).Row
Me.ListBox2.AddItem Feuil2.Cells(num.Column & J)
Next J
End Sub