exécution d'une macro avec condition

Bonjour à tous,
j'ai un petit soucis avec un code:
Code:

1 2 3 4 5 6 7 8 Sub macro1() If IsEmpty(Range("A1")) Then MsgBox ("remplissez la cellule") ElseIf IsEmpty(Range("A2")) Then MsgBox ("remplissez la cellule") End If macro2 End Sub
quand j'éxécute cette macro elle marche, j'ai le msg quand une des cellules est vide. Seulement la macro 2 s'exécute même si l'une ou les deux cellules sont vides.

Ce que je veux moi; c'est du moment où une des cellules est vide (ou les deux), la macro2 ne s'exécute pas.
Elle doit s'exécuter que si les deux cellules sont remplies.

Help me
D'avance merci

dans ce cas il faut sortir de la procedure apres les messages d'aertissements

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub macro1()
    If IsEmpty(Range("A1")) Then
        MsgBox ("remplissez la cellule")
        exit sub
     ElseIf IsEmpty(Range("A2")) Then
            MsgBox ("remplissez la cellule")
            exit sub
    End If
macro2
End Sub

Citation:

Envoyé par jfontaine

dans ce cas il faut sortir de la procedure apres les messages d'aertissements

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub macro1()
    If IsEmpty(Range("A1")) Then
        MsgBox ("remplissez la cellule")
        exit sub
     ElseIf IsEmpty(Range("A2")) Then
            MsgBox ("remplissez la cellule")
            exit sub
    End If
macro2
End Sub

Merci jerome ça marche.
Bonne journée