Macro coller sans sélection

G

Gareth

XLDnaute Impliqué

• 7 Janvier 2013

• #2

Re : Macro coller sans sélection

Bonsoir,

Tu parles de la destination ?
Tu peux faire :

Code:

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

ou

Code:

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 ?

 

Dernière édition: 7 Janvier 2013

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 7 Janvier 2013

• #3

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Janvier 2013

• #4

Re : Macro coller sans sélection

Bonsoir chris6999,

Essayez ce code:

VB:

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

 

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 7 Janvier 2013

• #5

Re : Macro coller sans sélection

Bonsoir Mapomme

Cela fonctionne très bien. Merci

Bonne soirée

 

Vote positif 0 Vote négatif