Vérification de contenu d'une cellule

Bonjour le Forum,

J'ai une demande à faire !

J'ai fait une macro pour vérifier si il y a du contenu dans ma cellule.

Ma macro est :

Sub verif()

If Cells(A45).Value="" Then

Texte_action= Validation impossible, la ligne "&A45&"n'est pas renseigné

MsgBox Texte_action

erreur=1

End If

If erreur=0 Then

Mon programme qui envoie le mail

End if

End Sub

Mais ça ne fonctionne pas...

Est-il possible de corriger ce que j'ai fait ?

Ou d'écrire une macro permettant de vérifier si une cellule a du texte et dans ce cas d'envoyer mon mail, et si il n'y a rien, bloquer l'envoi et mettre la MsgBox.

merci d'avance !

Audric PH

Bonjour,

Je ne comprends pas bien le pourquoi de la variable : Texte_action ( qui en plus est mal renseignée car c'est du texte ) ???

soit :

Texte_action= "Validation impossible, la ligne A45 n'est pas renseignée"
MsgBox Texte_action
Exit sub

ou directement :

MsgBox "Validation impossible, la ligne A45 n'est pas renseignée"
Exit sub

Pas besoin non plus de erreur=0 ou 1 si cellule vide alors message + on sort de la macro ( exit sub )

sinon suite de la macro ...votre code qui envoi le mail.

Bonjour,

Sub verif()
If Cells("A45").Value = "" Then
    MsgBox "Validation impossible, la cellule A45 n'est pas renseignée"
Else
    'Mon programme qui envoie le mail
End If
End Sub

Re, merci pour votre aide mais j'ai trouvé mon erreur au lieu de mettre

If Cells(A45).Value etc

Il fallait mettre If Cells(45, 1)

voilà

encore merci pour ceux qui répondu !