Discussion :

[Blinis]

Bonjour,

Je dois créer un logiciel sous Excel, et j'aimerais pouvoir réaliser la chose suivante.

Dans un userform j'ai trois boutons d'option qui renvoient chacun des informations différentes dans une zone de liste. Il y a également deux boutons ("valider" et "annuler") et une étiquette.

Ce que j'aimerais pouvoir faire, c'est que lorsque je sélectionne un des nom qui se trouve dans cette zone de liste, et que je clique sur le bouton valider, cela m'ouvre une autre feuille bien précise.

Le problème c'est que je n'ai pas beaucoup de connaissances en VBA !
J'ai donc essayé avec du If, mais je ne sais pas comment appeller le text qui se trouve dans la zone de liste...

Si vous avez une idée... Je vous envois déja le code que j'ai saisis.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub annuler_Click()
Me.Hide
        Unload Me
End Sub
 
Private Sub mille_Click()
        ListBox1.RowSource = "menus!A2: A5"
        MyCategorie = "menus à 1000 Kcal"
        Me.ListBox1.ListIndex = 0
' Mise à jour libellé liste déroulante
        With ListeCombinee
                Label1.Caption = "Liste des " & MyCategorie
        End With
End Sub
 
Private Sub millecinqcent_Click()
    ListBox1.RowSource = "menus!B2: B5"
        MyCategorie = "menus à 1500 Kcal"
        Me.ListBox1.ListIndex = 0
' Mise à jour libellé liste déroulante
        With ListeCombinee
                Label1.Caption = "Liste des " & MyCategorie
        End With
End Sub
 
Private Sub deuxmille_Click()
 
    ListBox1.RowSource = "menus!C2: C5"
        MyCategorie = "menus à 2000 Kcal"
        Me.ListBox1.ListIndex = 0
' Mise à jour libellé liste déroulante
        With ListeCombinee
                Label1.Caption = "Liste des " & MyCategorie
        End With
End Sub
 
Private Sub valider_Click()
Me.Hide
Unload Me
End Sub

Merci d'avance !!!!!

[decondelite]

Pour accéder aux divers contrôles d'un Userform, et ce en dehors du module de celui-ci, tu dois le faire dans le code appelant et référencer ton userform devant.

Par exemple comme ça:

Code :

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

1
2
3
MonUserform.Show
' Ceci s'effectue une fois que tu as fait "Hide" dans le module de Userform
variable_recup_texte = MonUserform.Textbox1.Value