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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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