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

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

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

Salut,

petit problème technique...

Impossible de trouver la macro .

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

Merci

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

Bonjour à tous,

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

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

Bonne journée

Claude

Bonjour,

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

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