Bonjour Le Forum,
Dans un classeur, j'ai plusieurs feuilles, dont :
une feuille intitulée "saisie"
une autre intitulée "résultat"
Je souhaiterais lors de la fermeture de la feuille "résultat", un message d'erreur apparaît si aucune saisie n'est faite sur la feuille "saisie"
j'ai utilisé l'instruction suivante :
Private Sub Worksheet_Deactivate()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Sheets("saisie")
Set ws2 = Sheets("résultat")
'Localisation des charges mailing
a = ws2.Application.WorksheetFunction.CountBlank(Range("A1:A4"))
MsgBox ("Nbre de cellules vides A1-A4 =" & a)
'Si plus d'une cellule vide en A alors message
If a <> 4 Then
msg1 = "Pas de saisie en colonne A"
End If
If a <> 4 Then
msg = "Attention, la saisie est incomplète : "
msg = msg & vbNewLine
msg = msg & msg1
Message = MsgBox(msg, 48, "Vérification remplissage : ")
End If
End Sub
Le souci, le comptage des cellules ne se fait pas sur la bonne feuille (saisie) mais ce fait sur la feuille résultat.
Auriez vous une solutiuon ?
Merci par avance,
Hugues
Dans un classeur, j'ai plusieurs feuilles, dont :
une feuille intitulée "saisie"
une autre intitulée "résultat"
Je souhaiterais lors de la fermeture de la feuille "résultat", un message d'erreur apparaît si aucune saisie n'est faite sur la feuille "saisie"
j'ai utilisé l'instruction suivante :
Private Sub Worksheet_Deactivate()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Sheets("saisie")
Set ws2 = Sheets("résultat")
'Localisation des charges mailing
a = ws2.Application.WorksheetFunction.CountBlank(Range("A1:A4"))
MsgBox ("Nbre de cellules vides A1-A4 =" & a)
'Si plus d'une cellule vide en A alors message
If a <> 4 Then
msg1 = "Pas de saisie en colonne A"
End If
If a <> 4 Then
msg = "Attention, la saisie est incomplète : "
msg = msg & vbNewLine
msg = msg & msg1
Message = MsgBox(msg, 48, "Vérification remplissage : ")
End If
End Sub
Le souci, le comptage des cellules ne se fait pas sur la bonne feuille (saisie) mais ce fait sur la feuille résultat.
Auriez vous une solutiuon ?
Merci par avance,
Hugues