Un message si une cellule est vide

[WDAndCo]

Bonsoir le Forum

J'aimerais que lors d'un action sur un bouton, et qu'une cellule est vide un message apparait. Et oblige a recommencer.
(Ci-joint une partie du classeur)

D'avance merci

WD

 

[Staple1600]

Re : Un message si une cellule est vide

Bonsoir


Sub test()
If IsEmpty(Range("a1")) Then
msgbox "cellule vide"
Else
Exit sub
End if
End sub

 

[WDAndCo]

Re : Un message si une cellule est vide

Bonsoir

Faut il mettre ce code au debut de la macro du bouton "OK" ?
"a1" est elle la cellule a tester ?

WD

 

[Staple1600]

Re : Un message si une cellule est vide

C'est juste un exemple

 

[bqtr]

Re : Un message si une cellule est vide

Bonsoir WDAndCo, Staple1600

Essaye comme ca :

Private Sub CommandButton1_Click()
If Sheets("Infos").range("D38") = "" then
MsgBox "Identification requise"
Exit sub
Else
..........ton code........
End If
End Sub

Je n'arrive pas à utiliser les macros sur ton fichier (bloqué par l'antivirus ??)

A+

 

[WDAndCo]

Re : Un message si une cellule est vide

Bonsoir le Forum, Staple1600 et bqtr

Sa marche j'ai mis cela :

if Sheets("Infos").range("D38") = "" then
MsgBox "Identification requise"
Exit sub
Else
"ma macro sans son End Sub"
End If
End Sub

Encore merci et bonne soirée


WD