Discussion :

[Eleanor]

Bonjour à toutes et à tous,

Voilà j'aurai une petite question s'il vous plait. J'ai un premier userform qui utilise des données d'une feuille. Puis dans cet userform j'ai 2 bouton (commandbutton1 et commandbutton2). Puis j'ai un autre userform, et j'aimerai qu'il prenne en compte si j'ai appuyé sur tel ou tel bouton, pour qu'il fasse telle ou telle action.
En fait, mon deuxième userform possède 2 frames, et je souhaite lui dira, si le bouton 1 est sélectionné, je rend visible le frame 1, et inversement pour le bouton 2.
j'ai essayé mais le souci c'est qu'il m'affiche le frame 1 puis le frame 2.

Voilà, j'espère avoir été claire.

Cordialement

[Ben_L]

Bonjour,

Une solution parmi tant d'autres :

Hypothèses:

• La 1ère UserForm s'appelle UserForm1 et la 2ème UserForm2,
• Les boutons sur UserForm1 s'appellent respectivement CommandButton1 et CommandButton2,
• Il existe un 3ème bouton sur UserForm1 qui permet d'afficher UserForm2 et s'appelle CommandButton3,
• Les frames sur UserForm2 s'appellent Frame1 et Frame2.

Principe
On va définir dans UserForm1 une variable qui mémorisera le dernier bouton sur lequel l'utilisateur a appuyé.
Lors de l'affichage de Userform2, il n'y aura plus qu'à vérifier l'état de cette variable pour savoir quelle Frame afficher.

Code
Nous y voici. Dans le code dédié à UserForm1, ajouter le texte suivant :

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 DernierBouton as String
 
Private Sub CommandButton1_Click()
    DernierBouton="Bouton1"
End Sub
 
Private Sub CommandButton2_Click()
    DernierBouton="Bouton2"
End Sub
 
Private Sub CommandButton3_Click()
    Load UserForm2
    If DernierBouton="Bouton1" Then
        UserForm2.Frame1.Visible=True
        UserForm2.Frame2.Visible=False
    ElseIf DernierBouton="Bouton2" Then
        UserForm2.Frame1.Visible=False
        UserForm2.Frame2.Visible=True
    Else
        'Gérer ici le cas où l'utilisateur n'a appuyé sur aucun des 2 CommandButton
        'Si UserForm2 ne doit pas être affiché dans ce cas, ajouter les deux instructions suivantes :
        'Unload UserForm2
        'Exit Sub
    End If
    UserForm2.Show
End Sub

En fonction de l'agencement des objets sur UserForm2, il peut être utile de compléter les instructions 'UserForm2.Frame#.Visible=XXX' par 'UserForm2.Frame#.Enabled=XXX'.
Tout ceci doit donc être adapté selon vos besoins.

EDIT: Ce code n'est valable que si vous n'appelez UserForm2 que depuis un seul endroit (dans mon exemple, par clic sur CommandButton3). Si tel n'est pas le cas, précisez le dans votre réponse.

Cdt

[Eleanor]

En fait, je crois que je me suis mal exprimée mais c'est de ma faute.
J'ai un 1er userform qui enregistre des informations dans une feuille Excel avec 2 checkbox (checkbox1 et checkbox2). Puis j'ai un userform qui récupère les informations entrées avec le 1er userform et qui les place au bon endroit. Ensuite, j'ai un 3ème userform pour reconsulter et après plus de détail. Enfin mon userform suivant doit savoir si j'ai coché la checkbox1, la checkbox2 ou les 2 pour afficher dans cet userform le bon frame (suivant le choix dans le 1er userform).

J'espère avoir été un peu plus claire et désolé pour le premier commentaire. Merci Ben_L pour ta réponse rapide.

[Ben_L]

OK, je ne voyais pas les choses comme cela.

En supposant que vous n'avez pas de problème pour affecter des valeurs à vos CheckBox, vous pouvez utilisez le code suivant pour UserForm3 (celle qui doit vérifier l'état des CheckBox) :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    If Not Feuil1.Shapes("CheckBox1").OLEFormat.Object.Object.Value Then
        Frame1.Visible = False
    End If
    If Not Feuil1.Shapes("CheckBox2").OLEFormat.Object.Object.Value Then
        Frame2.Visible = False
    End If
End Sub

Tout cela à condition que vos CheckBox se trouvent sur la feuille Feuil1 bien sûr

Cdt

[Eleanor]

Et cela marche aussi si mes checkbox sont dans un userform? car je vois Feuil1.?

Merci pour ta réponse.

[Ben_L]

Si les CheckBox sont sur un autre UserForm, c'est encore plus simple !

En supposant que les CheckBox se trouvent sur UserForm1 :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    If Not UserForm1.CheckBox1.Value Then
        Frame1.Visible = False
    End If
    If Not UserForm1.CheckBox2.Value Then
        Frame2.Visible = False
    End If
End Sub

Ce code ne fonctionnera toutefois que si UserForm1 est toujours ouverte au moment où tu cherches à initialiser la 2ème UserForm (celle qui contient les Frame).