Message à la fermeture d'excel

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:mouarf: .
J'ai essayé ce code dans module
Mais cela me donne aucun résultat.
Je pense avoir oublié quelque chose mais quoi :oops:

Code:

---

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

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 ???

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:

---

1 2 3 4

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

---

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.

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:

---

1 2 3

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

---

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:

---

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

---

La méthode .Select ne fait que ... sélectionner; comme si tu avais sélectionné une plage avec ta souris.

Que veux-tu vérifier ? Qu'une cellule soit non vide ?

Fais alors plutôt ceci

If (Cells("M31").Value = "") or (Cells("M32").Value = "") Then
Msgbox "Attention .....", vbInformation + vbOkOnly
End If

Remarque que la méthode ci-dessus n'est pas vraiment très pratique si tu as des dizaines de cellules à vérifier... A toi de faire une boucle p.e. et d'initialiser une variable booléenne à True dès le moment où une cellule est vide et de conditionner l'affichage du message à l'état de ta variable.

Christophe

Oula j'ai même pas vu que j'avais écrit dans mon code cell("N33") tel quel parfois je suis vraiment dingue 8O

essaye plutot

Code:

---

1 2	if Range("M31").Value = "" Or Range("M36").Value = "" Then

---

Merci pour tous ca fonctionne bien :P

Quelqu'un serait comment signaler cette fois, un passage d'onglet.
Et donc avoir le même type de message.

exemple

champs truc et bidule non rempli

changement d'onglet

message de prévention.
Il faut mettre dans la feuille correspondant le code suivant :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Activate() if range("B5")="" then   MsgBox "essai", vbInformation + vbOKOnly end if End Sub

---