Discussion :

[noir_desir]

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

[illight]

Heuu Response c'est quoi ? une fonction que tu as faite ?

En faisant ton Dim au départ, toutes tes variables sont en Variant, met les en string chacune d'elle déja

Et le If je vois pas trop ce que tu veux en additionnant des cellules sélectionnées ???

[patbou]

bonjour
si j ai bien compris tu veux empecher la fermeture du classeur si les plages de cellule ne sont pas remplies
si c est le cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if condition pour fermer
then action fermeture
else cancel = true ' ce qui empechera la fermeture du classeur

[noir_desir]

En faites, je veux pas vraiment empêcher de fermer le fichier excel, je veux prévenir l'utilisateur lorsqu'il ferme le fichier qu'il n'a pas rempli certain champs.


J'avais pensé utiliser MSGBOX, les + correspondent je les ai remplacé par des OR.

[patbou]

si tu ne veux pas empecher la fermeture du classeur
alors je pense que ce n est pas la peine d exploiter le resultat de la fonction
msgbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if condition non rempli
then msgbox "tous les chants n ont ..... ce que tu veux"

[noir_desir]

Voici le code expurgé mais bon ca ne fonctionne pas (ou du moins je ne vois pas le message apparaitre).
J'ai mis le code dans module1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Workbook_BeforeClose(Cancel As Boolean)
 
 
If ((Range("M31:AB31").Select) Or (Range("M36:AB36").Select) Or (Range("M39:AB39").Select) Or (Range("M43:AB43").Select) Or (Range("M45:AB45").Select) Or (Range("M41:AB41").Select) = "") Then
 
' Affiche le message.
    Response = MsgBox("Veuillez remplir toute l'équipe")
 
End If
 
End Sub