Bonjour tous le monde
Je veux crée un message d'avertissement lorsqu'un utilisateur ferme le fichier excel. Celui ci est conditionné au remplissage de plusieurs champs.
Que dois je faire pour palliez à cette défaillance utilisateur .
J'ai essayé ce code dans module
Mais cela me donne aucun résultat.
Je pense avoir oublié quelque chose mais quoi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
If ((Range("M31:AB31").Select ) + (Range("M36:AB36").Select) + (Range("M39:AB39").Select) + (Range("M43:AB43").Select) + (Range("M45:AB45").Select) + (Range("M41:AB41").Select) = "") Then
 
    Msg = "Veuillez remplir tous l'équipe?"    ' Définit le message.
    Title = "Erreur "    ' Définit le titre.
 
 
' Affiche le message.
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
        MyString = "Oui"    ' Effectue une action.
    Else    ' L'utilisateur a choisi Non.
        MyString = "Non"    ' Effectue une action.
    End If
End If
 
End Sub
Merci d'avance