Discussion :

[casavba]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casavba]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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