Copie cellule avec format?

[atlonia]

Bonsoir exceliennes et exceliens,

Je voudrais copier le contenu de la cellule L2 dans n'importe quelle cellule de mon choix.

Voici ma amcro:

Sub CopieCellule()
Range("L2").Select
Selection.Copy
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Ca bloque sur la ligne rouge...!

Quelqu'un a-t-il une idée?

Merci de votre aide!

 

[cbea]

Re : Copie cellule avec format?

Bonjour Atlonia,

Voici une solution :

Sub CopieCellule()
    Range("L2").Copy Destination:=ActiveCell
    Application.CutCopyMode = False
End Sub

 

[atlonia]

Re : Copie cellule avec format?

Merci beaucoup cbea,

C'est exactement ce qu'il me fallait