Discussion :

[dar06]

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.

[patricktoulon]

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

[dar06]

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.

[casefayere]

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

Code :

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

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

[dar06]

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

[casefayere]

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 :

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

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.

[bellande]

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 :

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

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