G
G'Claire
Guest
salut a toutes et tous,
J'ai un premier UserForm quime sert de menu avec :
Des Frames contenant des boutons des giffs animés;
Ce que je voudrai afin de ne pas ouvrir plusieurs UserForm a la suite, c'est que lorsque l'on click sur un des boutons cela me cache tous les boutons de l'UserForm menu et quand je sort de l'UserForm ouvert que cela me réaffiche tous les boutons du menu, sachant que ce UserForm Menu n'est pas fermé.
Pour ce faire jutilise ces deux codes dans un module :
Le premier qui est supprimer les boutons par : Call SuppressionBoutonsMenu ( Au moment du click sur le bouton qui lancera le UserForm numero 2)
Sub SuppressionBoutonsMenu()
UserForm1.FrameRechercher.Visible = False
UserForm1.FrameCheminDuFichier.Visible = False
UserForm1.FrameAction.Visible = False
UserForm1.Gif89a2.Visible = False
UserForm1.Sortie.Visible = False
End Sub
Le second pour afficher les boutons qui est lancer par : Call affichageBoutonsMenu (En cliquant sur un bouton pour quitter l'UserForm2)
Sub AffichageBoutonsMenu()
UserForm1.FrameRechercher.Visible = True
UserForm1.FrameCheminDuFichier.Visible = True
UserForm1.FrameAction.Visible = True
UserForm1.Gif89a2.Visible = True
UserForm1.Sortie.Visible = True
UserForm1.Gif89a2.Visible = True
UserForm1.Gif89a3.Filename = (ThisWorkbook.Path & "\" & "peripheriques004.gif")
UserForm1.Gif89a4.Filename = (ThisWorkbook.Path & "\" & "web78.gif")
UserForm1.Gif89a5.Filename = (ThisWorkbook.Path & "\" & "pla25.gif")
UserForm1.Gif89a6.Filename = (ThisWorkbook.Path & "\" & "11.gif")
UserForm1.Gif89a7.Filename = (ThisWorkbook.Path & "\" & "Lister dossiers sortient.gif")
UserForm1.Gif89a8.Filename = (ThisWorkbook.Path & "\" & "Gestion contact2.gif")
UserForm1.Gif89a9.Filename = (ThisWorkbook.Path & "\" & "Gestion contact2.gif")
End Sub
Cela fonctionne trés bien mais visuelement cela n'est pas trés joli, es-ce que je pourrais a partir de ce UserForm2 Reinitiliser l'UserForm menu?
Merci d'avance pour votre aide, G'Claire
J'ai un premier UserForm quime sert de menu avec :
Des Frames contenant des boutons des giffs animés;
Ce que je voudrai afin de ne pas ouvrir plusieurs UserForm a la suite, c'est que lorsque l'on click sur un des boutons cela me cache tous les boutons de l'UserForm menu et quand je sort de l'UserForm ouvert que cela me réaffiche tous les boutons du menu, sachant que ce UserForm Menu n'est pas fermé.
Pour ce faire jutilise ces deux codes dans un module :
Le premier qui est supprimer les boutons par : Call SuppressionBoutonsMenu ( Au moment du click sur le bouton qui lancera le UserForm numero 2)
Sub SuppressionBoutonsMenu()
UserForm1.FrameRechercher.Visible = False
UserForm1.FrameCheminDuFichier.Visible = False
UserForm1.FrameAction.Visible = False
UserForm1.Gif89a2.Visible = False
UserForm1.Sortie.Visible = False
End Sub
Le second pour afficher les boutons qui est lancer par : Call affichageBoutonsMenu (En cliquant sur un bouton pour quitter l'UserForm2)
Sub AffichageBoutonsMenu()
UserForm1.FrameRechercher.Visible = True
UserForm1.FrameCheminDuFichier.Visible = True
UserForm1.FrameAction.Visible = True
UserForm1.Gif89a2.Visible = True
UserForm1.Sortie.Visible = True
UserForm1.Gif89a2.Visible = True
UserForm1.Gif89a3.Filename = (ThisWorkbook.Path & "\" & "peripheriques004.gif")
UserForm1.Gif89a4.Filename = (ThisWorkbook.Path & "\" & "web78.gif")
UserForm1.Gif89a5.Filename = (ThisWorkbook.Path & "\" & "pla25.gif")
UserForm1.Gif89a6.Filename = (ThisWorkbook.Path & "\" & "11.gif")
UserForm1.Gif89a7.Filename = (ThisWorkbook.Path & "\" & "Lister dossiers sortient.gif")
UserForm1.Gif89a8.Filename = (ThisWorkbook.Path & "\" & "Gestion contact2.gif")
UserForm1.Gif89a9.Filename = (ThisWorkbook.Path & "\" & "Gestion contact2.gif")
End Sub
Cela fonctionne trés bien mais visuelement cela n'est pas trés joli, es-ce que je pourrais a partir de ce UserForm2 Reinitiliser l'UserForm menu?
Merci d'avance pour votre aide, G'Claire