XL pour MAC outil coller le contenu du presse papier

Valter · 28 Juin 2024

Bonjour, j'aimerai faire un outil qui , en cliquant dessus me colle le contenu du presse papier, j'ai déjà fait la macro et elle fonctionne très bien, je copie manuellement certaines cellules dans un fichier quelconque et je colle par macro dans un autre fichier dont voici le code :

Sub coller()

Range("L330").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Mais voilà, cela fonctionne si il y a quelque chose dans le presse-papier à coller, mais si le presse-papier est vide, un message d'erreur s'affiche....

J'aimerai que si il n'y a rien a coller, à la place du message d'erreur, s'affiche un message en disant par exemple : "tu as oublié de copier les cellules de ton fichier source"... et non pas le message d'erreur.... Merci pour votre aide

Oneida · 28 Juin 2024

Bonjour,
Traiter l'erreur

VB:

Sub coller()
    On Error GoTo fin
    Range("L3:p30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
fin:
    If Err.Description <> "" Then
        MsgBox "tu as oublié de copier les cellules de ton fichier source"
    End If
    On Error GoTo 0
End Sub

Valter · 28 Juin 2024

Oneida à dit:

Bonjour,
Traiter l'erreur

VB:

Sub coller()
    On Error GoTo fin
    Range("L3:p30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
fin:
    If Err.Description <> "" Then
        MsgBox "tu as oublié de copier les cellules de ton fichier source"
    End If
    On Error GoTo 0
End Sub

Merci beaucoup, cela fonctionne parfaitement bien... salutations

XL pour MAC outil coller le contenu du presse papier

Valter

XLDnaute Occasionnel

Oneida

XLDnaute Impliqué

Valter

XLDnaute Occasionnel

Discussions similaires