Copier le contenu d'une cellule vers une autre (Macro)

[TGV6773]

Bonjour,

Je souhaiterais que par exemple le contenu (c'est à dire l'intégralité du contenu sans la mise en forme) de la cellule AE10 soit copié et collé dans la cellule active, et faire cela par macro.

Comment pourrais-je faire ?

Comment monter dans une variable juste le contenu de la cellule ?
S'il faut passer par une variable peut-on faire Selection.FormulaR1C1 = nomdelavariable ?

Cordialement

[polo67]

Bonsoir

Voila je t'ai fais un exemple
Regarde si cela te conviens
Reproduit le en fonction de ce que tu as besoin de faire
Bonsoir

Polo

[TGV6773]

Salut,

petit problème technique...

Impossible de trouver la macro .

Tu peux remettre le fichier ? Ou copier coller le contenu de la macro ?

Merci

[Gr3mZ]

slt

bah si la macro elle y est...

macro1

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 11/03/2010 par Papy-polo
'

'
Range("A1:A7").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = " "
Range("c1").Select
End Sub

@pluche

[dubois]

Bonjour à tous,

cellule AE10 soit copié et collé dans la cellule active, et faire cela par macro.

Code: Tout sélectionner

Sub test()
ActiveCell = Range("AE10")
End Sub

Bonne journée
Claude

[TGV6773]

Bonjour,

Merci "dubois" j'ai adapté ce que tu m'as dit pour que cela soit effectif avec toutes ma plage comme ceci:

Code: Tout sélectionner

Sub copiercellule()

With Selection
    .FormulaR1C1 = Range("AE10")
End With

End Sub

Sinon, cela ne le faisait que dans la cellule active de toute ma plage de la sélection

Merci encore une fois