[VBA] - Exit Sub dans If

Résolu
Palteza Messages postés 82 Statut Membre -  
Palteza Messages postés 82 Statut Membre -
Bonjour à tous,

Je n'arrive pas à enchainer un test, et s'il est positif, un select ainsi que la sortie de ma macro ... il me dit "Attendu expression" sur le Sub 

If ((Range("G3") = Empty) Or (Range("G4") = Empty)) 
Then MsgBox("Vous avez oublié de saisir soit la date de passation du questionnaire, soit l'heure"), Range("G4").Select, Exit Sub


S'pas bien sorcier ce que je lui demande pourtant!

Merci d'avance

3 réponses

Réponse 1 / 3
Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

C'est pas sorcier mais faut-il le lui demander correctement !!! 

If IsEmpty(Range("G3")) Or IsEmpty(Range("G4")) Then
   MsgBox "Vous avez oublié de saisir soit la date de passation du questionnaire, soit l'heure",VbExclamation,"Message Système"
   Range("G4").Select
   Exit Sub
End If


;o)
2
Réponse 2 / 3
Palteza Messages postés 82 Statut Membre 3
 
Quelqu'un saurait?
0
Réponse 3 / 3
Palteza Messages postés 82 Statut Membre 3
 
Supar, merci Polux!
0

Discussions similaires

Problème d'allumage écran LG : "OUT OF RANGE"
roblaf -
MathiaMan25 -

3 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Bloqué dans le bios après un reset
WyLinK -
WyLinK -

10 réponses
Imprimante laser, scan unit open
Plizehelpmi -
bazfile -

2 réponses