[VBA] - Exit Sub dans If

Résolu

Palteza Messages postés 82 Statut Membre -
Palteza Messages postés 82 Statut Membre - 4 juin 2010 à 11:42

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

Afficher la suite

3 réponses

Réponse 1 / 3

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
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

[VBA] - Exit Sub dans If

3 réponses

Discussions similaires

Newsletters