XL 2016 Conditions lancement macro + msgbox

niiiiiiiiiico

XLDnaute Occasionnel
Bonjour,

Je cherche à lancer une macro si une condition est réunie sinon apparition de message box

Si la condition n'est pas réunie, ça marche j'ai bien la msgbox. Si la condition est réunie ça marche partiellement, la macro se lance mais tout à la fin j'ai quand même l'apparition de la msgbox

Comment n'avoir la msgbox uniquement quand la condition n'est pas réunie ?

Sub Condition2()

If Sheets("Data").Range("A1").Value <> "" Then
Call RAZ
End If
MsgBox "L'onglet Data est déjà vide"

End Sub

Merci !!!
 

cp4

XLDnaute Impliqué
Bonjour,
VB:
Sub Condition2()
If Sheets("Data").Range("A1").Value <> "" Then ' condition si A est vide alors
Call RAZ 'on execute cette macro
Else 'sinon 
MsgBox "L'onglet Data est déjà vide" 'on affiche msgbox
End If 'fin de condition
End Sub
Bonne journée
 

Discussions similaires


Haut Bas