UserForm+comboBox+ListBox = SOS

[jeanmo7]

Bonjour,

Je ne trouve pas comment résoudre ce petit problème

Ouvrir un UserForm dans lequel il y a 2 comboBox de choix, pour alimenter deux listBox

Problème je ne suis pas expérimenté et je plante

Merci d'avance à ceux qui pourront me faire avancer sur le long chemin de la connaissance

Jeanmo7

 

[Bebere]

Re : UserForm+comboBox+ListBox = SOS

bonjour Jeanmo
vois si cela te convient
j'ai changé la feuille classrecet pour que les données commencent sur la même ligne(ldebut)
dans listbox,prépar et ingrédient sont fait
valider envoye le tout dans fiche
à bientôt

 

[jeanmo7]

Re : UserForm+comboBox+ListBox = SOS

Merci Berbere,

c'est presque parfait, quand je vois le temps que j'y passe pour ne pas avoir de bon résultat

c'est sympa car je n'aurais pas pu construire ces codes.

j'ai modifié une erreur que j'avais faite et modifié ton code voir le détails dans le fichier.

Je n'ai pas réussi à intercaler des lignes vides entre ListBox1 1 et 2èmè partie.

encore Merci de l'aide

Bravo

 

[Bebere]

Re : UserForm+comboBox+ListBox = SOS

bonjour JeanMo
changé le code combobo2_change
et bouton valider
la feuille class_recet doit garder la même structure
à bientôt

 

[jeanmo7]

Re : UserForm+comboBox+ListBox = SOS

Bonjour Berbere,

Les modifications sont bonnes, il y a un bug dans la plage Accompagnement,
Si tu écrit dans cette zone il bug j'ai essayé de modifier le code pour l'instant cela ne fonctionne pas. Par contre si cette zone est vierge cela fonctionne parfaitement

Merci

A+

 

[jeanmo7]

Re : UserForm+comboBox+ListBox = SOS

Berbere,

j'ai trouvé pour le bug :
'If NbI > 0 Then Set Plg = Application.Union(.Range("D" & Ldebut & "😀" & LfinD), .Range("G" & Ldebut & ":G" & LfinG), , .Range("I" & Ldebut & ":I" & LfinI))
If NbI > 0 Then Set Plg = Application.Union(.Range("D" & Ldebut & "😀" & LfinD), .Range("G" & Ldebut & ":G" & LfinG), .Range("I" & Ldebut & ":I" & LfinI))

Pour le n° de la ligne Accompagnement c'est 44 et non 41 mais il se copie deux fois une dans Accompagnement et une dans les Vins ?


On y est presque

Merci

 

[Bebere]

Re : UserForm+comboBox+ListBox = SOS

bonjour Jeanmo
il y a 2 ,, supprime une(ligne commençant set plg=..........)à la fin
dans la version finale y aura t'il des colonnes vides(exemple pas d'accompagnement)
à bientôt

 

[jeanmo7]

Re : UserForm+comboBox+ListBox = SOS

oui cela peut arriver

A+

 

[Bebere]

Re : UserForm+comboBox+ListBox = SOS

bonjour Jeanmo
changé le code de combobox2 et bouton valider
le code pour listbox1
à bientôt

 

[jeanmo7]

Re : UserForm+comboBox+ListBox = SOS

Berbere,

Merci de ton aide, je vais adapter le tout dans mon fichier de base et te tiendrais au courant. j'ai testé ce que tu m'as revoyé c'est tout simplement parfait, avec les différentes version je vais pouvoir travailler pour comprendre les codes que tu as réalisé.

mon fichier final sera trop lourd pour le mettre en ligne mais on trouvera bien une solution pour te le faire voir.

Merci encore

A bientôt