Bonjour, je suis débutant en VBA et je coince sur un probleme simple.
Je souhaite faire un controle de saisie sur 4 cellules. A1,B1,C1 et D1.
Autrement dit si une des cellules contient une valeur alors l'utilisateur doit remplir les 4 cellules. Si les 4 cellules sont remplis le système ne doit rien dire .
Voila ce que j'ai essayé de faire mais cela ne marche pas lorsque les 4 cellules sont remplient...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Test_saisie()
If Range("A1") > 0 Or Range("B1") > 0 Or Range("C1") > 0 Or Range("D1") > 0 Then
MsgBox "toutes les cellules doivent etre saisies"
Else
If Range("A1") > 0 And Range("B1") > 0 And Range("C1") > 0 And Range("D1") > 0 Then
MsgBox "ok"
 
End If
End If
End Sub


Merci pour votre aide