Aide pour MsgBox

[Hawkeye56]

Bonjour le forum 🙂

J'ai écrit une macro, au début de celle-ci je voudrais q'une MsgBox s'affiche lorsqu'une condition n'est pas remplie (dans mon cas le collage d'un tableau dans la cellule B1) et qu'en cliquant sur le bouton "ok" la procédure s'arrête.

Voici la partie du code qui me pose problème, il fonctionne mais je pense qu'il doit être possible de le faire sans cette 2ème ligne et en ajoutant "vbExclamation", ce que je n'arrive pas à faire


If Range("B1").Value = ("") Then MsgBox ("L'extraction n'est pas collée en B1!")
If Range("B1").Value = ("") Then Exit Sub

J'espère avoir été clair

Merci de votre aide🙂

 

[Spitnolan08]

Re : Aide pour MsgBox

Bonjour,

If Range("B1").Value = "" Then Resp = MsgBox("L'extraction n'est pas collée en B1!", vbExclamation + vbOKOnly): Exit Sub

devrait faire l'affaire

Cordialement

 

[Hawkeye56]

Re : Aide pour MsgBox

Merci Spitnolan08 !🙂

Ca fonctionne nickel!!

J'avais pas mal tâtonné sans trouver la bonne syntaxe 🙄

Bonne journée et encore merci! 🙂