Macro coller sans sélection

[chris6999]

Bonsoir le FORUM

J'ai une petite macro qui colle une sélection lorsque celle ci est définie


Sub MEF()

Sheets("Mise en forme").Select
Range("B1").Select
ActiveSheet.Paste

End sub

Par contre lorsque je n'ai pas fait ma séletion au préalable il me met une anomalie 1004.

Serait il possible d'avoir à la place un MSG box pour signaler l'anomalie?
C'est à dire lorsque 'ai oublié de faire ma sélection avant de lancer la macro.

Cordialement

 

[Gareth]

Re : Macro coller sans sélection

Bonsoir,

Tu parles de la destination ?
Tu peux faire :

Sub MEF()
Sheets("Feuil1").Range("B1").Copy ActiveCell
End sub

ou

Sub MEF()
Sheets("Feuil1").Range("B1").Copy ActiveSheet.Range("C1")
End sub

Si tu connais la destination

Comment fais tu la "Selection" dont tu parles ?

 

[chris6999]

Re : Macro coller sans sélection

Bonsoir

Je pense que j'ai du mal m'exprimer. Je ne veux pas ajouter de code pour copier.
La sélection est déjà active avant le lancement de ma macro.
Je voulais juste avoir un MSG box au lieu de l'erreur d'exécution 1004.

En espérant qu'il y aura une solution à mon problème

Cordialement

 

[mapomme]

Re : Macro coller sans sélection

Bonsoir chris6999,

Essayez ce code:

Sub MEF()
  If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then
    Sheets("Mise en Forme").Paste Sheets("Mise en Forme").Range("B1")
  Else
    MsgBox "copier ou couper quelque chose avant de lancer MEF..."
  End If
End Sub

 

[chris6999]

Re : Macro coller sans sélection

Bonsoir Mapomme

Cela fonctionne très bien. Merci

Bonne soirée