Message box dans vba

Bonjour,

J'ai réussi à mettre ce code au début de ma macro pour qu'elle ne soit pas exécutée si les cases I5 et K5 ne sont pas renseignées.

Code:

---

1 2	If Range("I5") = "" Then Exit Sub If Range("K5") = "" Then Exit Sub

---

Comment faire pour mettre un message d'erreur à l'utilisateur en cas de non exécution de la macro?

Ci-après mon code complet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

If Range("I5") = "" Then Exit Sub If Range("K5") = "" Then Exit Sub Rows("4:30").Select Range("D4").Activate Selection.EntireRow.Hidden = True Rows("3:3").Select Range("D3").Activate Selection.EntireRow.Hidden = False Range("BK79:BO79").Select Selection.Copy Range("BK80:BO80").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select End Sub

---

Bonjour,

conformément aux règles de ce forum, merci d'éditer le précédent message et de baliser le code via l'icône dédiée # !

Sinon consulter l'aide interne VBA de MsgBox …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Code:

---

1 2 3 4 5 6 7

If Range("I5") = "" And Range("K5") = "" Then MsgBox "Erreur" Else Rows(3).Hidden = False Rows(4).Hidden = True Range("BK80:BO80").Value = Range("BK79:BO79").Value End If

---

Merci,
j'ai juste remplacé And par Or pour que le code fonctionne.