Msgbox avant la fermeture si une colonne contient une valeur texte précise

Version imprimable

28/02/2013, 11h06
Thomas.lp

Msgbox avant la fermeture si une colonne contient une valeur texte précise

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]:D

Bonjour,

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

Code:

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

28/02/2013, 11h19
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!
28/02/2013, 11h21
Thomas.lp

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

Encore merci pour votre réponse!

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

Code:

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