[VBA] - Exit Sub dans If

Résolu/Fermé
Palteza Messages postés 79 Date d'inscription mercredi 2 décembre 2009 Statut Membre Dernière intervention 6 septembre 2014 - Modifié par Palteza le 1/06/2010 à 11:36
Palteza Messages postés 79 Date d'inscription mercredi 2 décembre 2009 Statut Membre Dernière intervention 6 septembre 2014 - 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

3 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 juin 2010 à 11:19
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