Discussion :

[AVNAIM]

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

[fring]

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..."

[AVNAIM]

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 :

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

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

[fring]

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 à insérer dans l'objet UserForm :

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

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

[AVNAIM]

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 :

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

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

[fring]

Re,

Bravo pour ce début encourageant
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