Reinitilisation d'un UserForm a partir d'un second UserForm (Amélioration)

[G'Claire]

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

 

[G'Claire]

le forum,

Merci a Michel ( Le petit Lapin bleu), pour m'avoir sur le chat donné une solution qui amélior nettement le réaffichage de mes controle et giffs.

Application.ScreenUpdating = False et a la fin de la procédure remettre a True

J'aurais pu imaginer tout sauf de figer l'écran.

Merci, G'Claire