Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel formulaire

formulaire

2 réponses
Avatar
fbr
Bonjour,

j'ai un formulaire qui s'ouvre automatiquement à l'ouverture d'un classeur
excel :

Private Sub Workbook_Open()
FrmMain.Show
End Sub

Je voudrais lui mettre un msgbox pour l'ouvri uniquement si l'utilisateur le
souhaite, du style : "voulez vous lancer le forulaire? OUI OU NON;

Si quelqu'un à une astuce.

merci d'avance

fred
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
CAP2
Salut,

place ça dans le module ThisWorkBook de ton classeur :

Private Sub Workbook_Open()
Dim reponse As Byte

reponse = MsgBox("Voulez-vous lancer le formulaire ?", vbYesNo, "Lancer
formulaire ?")
If reponse = 6 Then
UserForm1.Show
Else: Exit Sub
End If

End Sub

En remplaçant Userform1 par le nom de ton formulaire...

Ca marche ?

CAP2
Avatar
fbr
Merci beaucoup, je ne sais pas pourquoi mon message a été diffusé plusieurs
fois
merci encore cela fonctionne très bien


Salut,

place ça dans le module ThisWorkBook de ton classeur :

Private Sub Workbook_Open()
Dim reponse As Byte

reponse = MsgBox("Voulez-vous lancer le formulaire ?", vbYesNo, "Lancer
formulaire ?")
If reponse = 6 Then
UserForm1.Show
Else: Exit Sub
End If

End Sub

En remplaçant Userform1 par le nom de ton formulaire...

Ca marche ?

CAP2