Microsoft 365 fermeture auto d'un formulaire

[Vdex#]

Bonjour,
dès que je clique sur un onglet dans le menu je voudrais que le userform se ferme automatiquement.
Merci de votre aide.
Cordialement.

 

[Dudu2]

Bonjour,
Je ne vois pas la difficulté.

If MESBOUTONS.Caption = feuil.Name Then
    feuil.Activate
    Unload UserForm1
End If

Ou si tu veux rester générique...

If MESBOUTONS.Caption = feuil.Name Then
    feuil.Activate
    Unload MESBOUTONS.Parent
End If

 

[patricktoulon]

bonjour
pour faire un simple menu de ce type je fait tout dans le userform(autonome)
donc pas de classe (je classe mes bouton intra userform
ensuite selon le nombre de feuille perso je prefère ajouter le scroll dans le userform et le limiter a une taille
ici en l'occurrence la taille est limité a 10 boutons au delas il y aura le scroll
pour le fun je lui ajoute le mouse over avec coloration au survol

bref voila avec 10 feuille

et voila avec plus de feuille

et voila ton fichier
bonne route 😉

 

[Dudu2]

Je vois pas à quoi ça sert de faire ça à chaque clic.

For Each Ctrl In UserForm1.Controls
Ctrl.BackColor = &H8000000F
Next
MESBOUTONS.BackColor = vbGreen

 

[Vdex#]

bonjour
pour faire un simple menu de ce type je fait tout dans le userform(autonome)
donc pas de classe (je classe mes bouton intra userform
ensuite selon le nombre de feuille perso je prefère ajouter le scroll dans le userform et le limiter a une taille
ici en l'occurrence la taille est limité a 10 boutons au delas il y aura le scroll
pour le fun je lui ajoute le mouse over avec coloration au survol

bref voila avec 10 feuille
Regarde la pièce jointe 1198799

et voila avec plus de feuille
Regarde la pièce jointe 1198801

et voila ton fichier
bonne route 😉

Merci beaucoup c'est parfait.👍

 

[mapomme]

Bonjour à tous😉,

Pour plaisanter... Dans ce cas précis, je le fais sans VBA 😀😄😛😜🤪.

• clique-droit dans la barre des onglets à gauche
• double-clique sur le nom de la feuille