affecter des valeurs à chaque élément d'une listbox

Bonjour à tous,
Je débute en visual basic sous Excel.
J'aurai aimé savoir comment faire pour affecter par exemple trois valeurs à chaque élément d'une listbox.
Je m'explique : à partir d'une feuille excel, je vais chercher trois pays et je les mets dans une listbox. Pour chacun de ces pays (dès que je clique sur l'un d'eux), je voudrais leur affecter trois variables par l'intermédiaire des textbox ou autre fonction que je pourrai réutiliser par la suite dans une feuille excel.
Faut-il créer d'autre Userform?

Merci par avance de votre aide.:ccool:

bonjour

il manque un peu plus de precision dans ta question

cela dit puisque tu va vchercher tes items dans une feuille tu peux tres bien utiliser le "offset des celules
et inscrire les autres variables dans les celules adjacentes

en l'etat je vois pas tres bien quoi d'autre


au plaisir

bonjour patricktoulon,

Ta réponse ne répond pas à ma question. Je vais essayer d'être plus clair.
J'essaye via VBA de remettre en forme des résultats de simulation.
La feuille excel de départ contient trois pays avec des performances pour chacun d'eux. Je présente donc via un userform (sorte d'IHM) à l'utilisateur les données incluses dans la feuille excel de départ, en mettant les pays dans une listbox et je voudrai que l'utilisateur rentre trois variables à la main (de façon interactive) pour chacun des trois pays.Sélection d'un pays dans la listbox et ouverture d'une fenètre contenant trois textbox à remplir par l'utilisateur + sauvegarde de ces trois valeurs pour chaque pays pour une réutilisation ultérieure dans la mise en forme finale des performances.
J'espère avoir ete plus clair dans ma demande.

Merci de votre aide.

Bonjour,
Peut-être que je n'ai rien compris non plus mais, une idée dans le code de l'USF :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub ListBox1_Click() TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = True End Sub   Private Sub UserForm_Initialize() TextBox1.Visible = False TextBox2.Visible = False TextBox3.Visible = False End Sub

---

ensuite par macro, tu donnes les valeurs de tes textbox à des cellules adjacentes au pays choisi et tu remets à False la propriété "Visible" des textbox

Je pense qu'une vue du userform s'impose (voir fichier ci joint)

Je reprends ma proposition dans laquelle j'ai mis le code pour une listbox mais c'est pareil pour un combobox; admettons que tu crées un autre USF nommmé Userform2, avec trois textbox

Code:

---

1 2 3 4

Private Sub ListBox1_Click() load userform2 userform2.show End Sub

---

A ce stade, tes textbox seront vides, ensuite, suite aux saisies dans ceux-ci, tu mettras en relation la valeur de ton combobox, avec une macro dans un bouton, dans un évènement ou autre.

Bonjour,

Voici le genre de code que l'on peut appeler pour afficher une userform contenant une combo et 3 zones de texte.

Dans la feuille excel, on a les 3 pays en A2,A3,A4

Les colonnes B,C et D mémoriseront les valeurs saisies pour chaque pays.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub ComboBoxPays_Change() TextBoxValeur1.Text = Worksheets("Pays").Range("B" & ComboBoxPays.ListIndex + 2).Value TextBoxValeur2.Text = Worksheets("Pays").Range("C" & ComboBoxPays.ListIndex + 2).Value TextBoxValeur3.Text = Worksheets("Pays").Range("D" & ComboBoxPays.ListIndex + 2).Value End Sub   Private Sub CommandButtonFermer_Click() Unload Me End Sub   Private Sub CommandButtonValider_Click() If ComboBoxPays.ListIndex > 0 Then Worksheets("Pays").Range("B" & ComboBoxPays.ListIndex + 2).Value = TextBoxValeur1.Text Worksheets("Pays").Range("C" & ComboBoxPays.ListIndex + 2).Value = TextBoxValeur2.Text Worksheets("Pays").Range("D" & ComboBoxPays.ListIndex + 2).Value = TextBoxValeur3.Text End If End Sub   Private Sub UserForm_Activate() Dim ligne As Integer ligne = 2 Do ComboBoxPays.AddItem Worksheets("Pays").Range("A" & ligne).Value ligne = ligne + 1 Loop Until Worksheets("Pays").Range("A" & ligne).Value = "" End Sub

---

Merci à Bellande et Casefayere.
Je vais m'inspirer de ce que vous avez proposé.:P