Message si macro impossible

Bonsoir à tous,

ma macro ci-dessous réalise un collage spécial valeur quand elle est lancée mais je souhaiterais rajouter un message indiquant qu'aucune donnée n'est copiée quand il n'y a pas eu copier avant.

Sub colspe()
Range("N4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N4").Select
End Sub

En espérant avoir était clair...

Merci par avance de vos aides.

Bonsoir

A tester

Sub colspe()
  If Application.CutCopyMode <> False Then
    Range("N4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                  :=False, Transpose:=False
    Range("N4").Select
  Else
    MsgBox "Rien à copier"
  End If
End Sub

Bonsoir Banzai,

comme à chaques fois c'est parfait.

Merci.

Rechercher des sujets similaires à "message macro impossible"