Discussion :

[phagege5265]

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

[Marc-L]

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

[mercatog]

Code :

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

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

[phagege5265]

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