transfert éléments d'un combo dans listbox

Bonjour,
J'ai créé un comboBox, sur un userForm avec propriété RowSource qui charge une plage de 3 colonnes d'une base de données .
Je voudrais que l'utilisateur puisse sélectionner un ou plusieurs éléments (en appuyant sur CTRL).. c.a.d. une ligne de 3 colonnes et les ajouter dans une listBox vide
Quelqu'un pourrait-il me rendre le service de m'indiquer le code VBA susceptible de faire cela ? Je l'en remercie d'avance
J.Avnaim

Bonsoir,

Un ComboBox ne permet pas la multisélection, on ne peut y sélectionner qu'un élément à la fois, il y a moyen de transférer les données à chaque sélection mais est-ce vraiment le bon choix d'utilisation ? Si on clic par erreur sur une ligne, les données seront transférées avant qu'on ait pu dire "zut..."

Bonjour et Merci Fring pour les conseils que tu me donnes.
Je vais tâcher de mieux expliciter mon problème.
Voila j'ai une grosse base de données alimentaires qui s'étend sur 8 feuilles.
Chaque feuille est une catégorie d'aliments dont les lignes vont de B7 à T100.
Denrée, Type, Calories, lipides………………………………..vitamine E déterminé pour 100gr.
J'ai fait un UserForm qui contient : un comboBox , une listeBox, 8 boutons d'options

Code de chaque bouton : (avec N° de bouton et feuille propre à chacun d'eux )

Code:

---

1 2 3 4 5

Private Sub OptionButton1_Click() ComboBox1.RowSource = "" Feuil4.Activate ComboBox1.RowSource = "$B$7:$C$100" End Sub

---

Donc quand je clique sur un bouton Chaque ligne de mon comboBox est constituée d'une plage de 2 cellules de la base sur 93 lignes. Ce que je voudrais que mon code VBA fasse, c'est:
 Détecter la sélection de l'utilisateur et copier chaque ligne sélectionnée dans la liste
 Puis avec un inputBox ajouter à la liste la quantité en grammes de chaque denrées (il s'agit d'une recette cuisine pour un certain nombres de personnes ) qui compose la recette
 Enfin avec ces éléments je pense pouvoir faire une formule (règle de 3 mes capacités math ne vont pas bien loin) et afficher à l'utilisateur ce que chaque personne aura absorbé en calories, protides, glucides, …..minéraux…..vitamines
Penses tu que mes élucubrations soient possibles en parlant VBA ??
Re-merci
Avnaim

VBA permet d'aller bien au-delà de nos élucubrations :)

Pour transférer les éléments sélectionnés dans le Combo (un à un) vers une ListBox, la procédure est la suivante

Code:

---

1 2 3

Private Sub ComboBox1_Change() Me.ListBox1.AddItem Me.ComboBox1.Value End Sub

---

Il me semble que l'on pourrait se passer de l'étape transfert du ComboBox vers la ListBox, pourquoi ne pas directement charger une ListBox avec les données dans laquelle l'utilisateur pourrait faire une multisélection des ingrédients ? Ensuite via un bouton "valider" par exemple, les données sélectionnées seraient transférées vers ...(ce que tu veux) en faisant apparaître éventuellement une InputBox pour chaque donnée.

C'est juste un avis personnel.
Je t'invite à jeter un oeil sur le lien ci-dessous qui explique les différentes manipulations possibles.
http://silkyroad.developpez.com/VBA/ControlesUserForm

Merci mille fois Fring ! tu est ma bouée de sauvetage

J'ai utilisé ton code pour mon comboBow :Me.ListBox1.AddItem Me.ComboBox1.Value
Cela fonctionne parfaitement mais je croyais obtenir les deux éléments qui composent mon combo mais je n'obtiens que l'élément de gauche. J'ai alors suivi tes conseils en m'orientant vers la listeBox.
J'ai tenté la liste box avec même code dans propriété RowSource $B$7:$C$100 j'obtiens bien les deux colonnes mais réunies en une seule !
J'ai fait alors 2 listBoxs et une troisième pour transférer ça marche mais ce n'est pas génial
J'ai farfouillé des heures dans les bouquins pour finalement deviner qu'il faut modifier la propriété ColonneCount et la mettre à deux et oh miracle !! j'ai obtenu exactement ce que je voulais.
Une petite sub comme celle-ci pour chaque bouton

Code:

---

1 2 3 4 5

Private Sub OptionButton1_Click() ListBox1.RowSource = "" Feuil4.Activate ListBox1.RowSource = "$B$7:$C$100" End Sub

---

Je peux maintenant essayer d'aller + loin récupérer les sélections, faire ajouter les quantités puis exécuter la règle de trois. Pour un nul comme moi et surtout à 90 ans c'est du boulot mais ça me distrait et m'entretient les neurones.
Ps. j'ai noté ton proverbe chinois citation magnifique. Je constate que tu dois être quelque peu philosophe

Re,

Bravo pour ce début encourageant :king:
Je pense que le lien ci-dessous va t'aider à avancer ;)

http://silkyroad.developpez.com/VBA/ControlesUserForm/

N'hésite pas si besoin d'aide

PS : il fallait également mettre la propriété ColumnCount du ComboBox à 2 mais pour autoriser une multisélection, il vaut mieux opter pour une ListBox en n'oubliant pas...d'adapter sa propriété MultiSelect

Il n'y a qu'une colonne, bien que j'ai mis dans propriétés colonnes 3.
Je parviens à transférer les éléments avec Range mais il faudrait que je puisse incrémenter la cellule
à chaque élément voici ma procédure :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(i) Then ListBox4.AddItem (i + 7)   Workbooks("Gestion_Alimentaire").Worksheets("A_Vous_de_Jouer").Range("B2").Value = i + 7   End If   Next i

---

Cela me donne le N° de ligne dans ma feuille et pourrait me permettre de faire mes calculs mais je n'obtiens en fin de compte que le dernier élément de ma liste!
J'ai tenté de faire B2+1 mais cela ne marche pas

Merci pour tes conseils car je n'arrive plus à avancer dans mon projet
Très cordialement
AVNAIM
__________________

Est ce que ceci pourrait te convenir ?

Code:

---

Workbooks("Gestion_Alimentaire").Worksheets("A_Vous_de_Jouer").Cells(Rows.Count, 2).End(xlUp)(2) = i + 7

---

Tu peux aussi obtenir toutes les valeurs d'un combobox multi-colonnes en utilisant Combobox1.value si tu mets BoundColumn = 1 puis 2 puis 3
test ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ComboBox1.BoundColumn = 1 MsgBox ComboBox1.Value ComboBox1.BoundColumn = 2 MsgBox ComboBox1.Value ComboBox1.BoundColumn = 3 MsgBox ComboBox1.Value End Sub   Private Sub UserForm_Initialize() ComboBox1.RowSource = "A1:D20" End Sub

---

N'oublie pas de mettre le nombre de colonnes dans la propriété ColumnCount du combo ;)

Eureka !! problème résolu. Je suis allé au plus simple : la ligne de code de FRING. Cela n'a pas marché tout de suite parce que ma listeBox contient à la fois des valeurs numériques et des chaines de caractères : les noms des feuilles contenant les numéros de lignes. J'ai résolu le problème en créant une variable public cat et en rajoutant une seconde ligne identique avec N° de colonne 1 au lieu de 2 et valeur cat au lieu de (i+7)
Dans chacune de mes sub de boutons d'option j'ai donné à cat la valeur de la base catégorie( viande, poisson…) Et ça fonctionne " pil poil " Voici donc ma sub du bouton ajouter:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit Public Cat As String Private Sub CommandButton1_Click() Dim I as integer For i = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(i) Then ListBox4.AddItem (i + 7) Workbooks("Gestion_Alimentaire").Worksheets("A_Vous_de_Jouer").Cells(Rows.Count, 2).End(xlUp)(2) = i + 7 Workbooks("Gestion_Alimentaire").Worksheets("A_Vous_de_Jouer").Cells(Rows.Count, 1).End(xlUp)(2) = Cat End If Next i End Sub

---

Encore Merci Fring et les autres. La solidarité est une vertu significative !
Avnaim