Msgbox

[Seb]

Bonjour tout le monde,

J'espère que ça va en cette fin de mois. J'ai une question pour vous : je souhaite mettre en place une msgbox pour l'utilisateur, l'avertissant de vérifier qq infos saisies dans son fichier avant le fermeture de celui-ci. Ainsi, s'il n'a pas saisi une info, il pourra retourner dans le fichier pour le faire.
Avez-vous une idée là-dessus ? Je vous remercie par avance pour l'aide que vous pourriez m'apporter.
Bon après-midi,

Seb

 

[Munchkin]

Bonjour Seb

si tu met ce code dans thisworkbook


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel = True
End Sub

ca te permet de na fermer le fichier. là il faut ajouter les conditions necessaires

j'espère que c'est ce que tu cherche
Munchkin

 

[Seb]

A quel moment intervient alors la msgbox ? As-tu un exemple avec un fichier excel bidon ?
Merci pour ton aide,

Seb

 

[Munchkin]

Voilà un petit exemple

le code est dans thisworkbook

ca te va?
Munchkin

 

[@Christophe@]

Bonjour,

Voici un exemple à mettre dans ThisWorkbook de ton classeur

Option Explicit
Dim question As Byte

Private Sub Workbook_BeforeClose(Cancel As Boolean)
question = MsgBox("Avez vous tous remplis correctement!!", vbYesNo, "Contrôle")

If question = 7 Then Cancel = True
End Sub


Bonne journée

@Christophe@

 

[Seb]

Merci à vous deux pour votre aide ! Ca marche.
Bonne fin d'après-midi,
@ plus,

Seb