Discussion :

[Thomas.lp]

Bonjour,

J'aimerais connaitre le code à copier dans ThisWorkBook pour les critères suivants :
Si une des cellules de la colonne A contient "Mois à renseigner", j'aimerais qu'un message apparaisse avant la fermeture obligeant ainsi la personne à revenir sur cette case pour la renseigner (au cas ou la mention "mois à renseigner" n'aurait pas suffit à le lui rappeler).

Merci d'avance!


[Un stagiaire en galère]

[jfontaine]

Bonjour,

Pour faire cela tu peux utiliser l'évenement Before_Close du classeur

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
If Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("A:A"), "Mois à renseigner") > 0 Then
    Cancel = True
End If
 
End Sub

[Thomas.lp]

Merci pour votre rapidité!

Le soucis est que j'aimerais qu'une boite de dialogue apparaisse, pour l'instant la fermeture est impossible mais aucun message ne s'affiche.

Merci!

[Thomas.lp]

J'ai réussi en aujoutant MsgBox "Renseigner le mois"

Encore merci pour votre réponse!

[keygen08]

Bonjour
celle ci t'envoie en plus sur la cellule à renseigner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim cell As String
cell = "Mois à renseigner"
If Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("A:A"), cell) > 0 Then
Cancel = True
     Set c = Sheets("feuil1").Range("a:a").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
     If Not c Is Nothing Then i = c.Row
    Sheets("feuil1").Cells(i, 1).Select
    MsgBox ("Vous devez renseigner la cellule selectionnée")
    Set c = Nothing
End If
 
End Sub