Copier le contenu d'une cellule vers une autre (Macro)  Sujet rĂ©solu

Vous pouvez poser ici vos questions à propos d'Excel et répondre aux questions des autres membres ...

Modérateurs: Dan, Nad, Amadéus, Sébastien

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

Messagede TGV6773 » 11 Mar 2010, 18:00

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
TGV6773
Jeune membre
 
Messages: 40
Inscription: 05 Sep 2009, 11:58
Version Excel: 2003 FR

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

Messagede polo67 » 11 Mar 2010, 23:59

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
Fichiers joints
exemple copie sans format.xls
(25 Kio) Téléchargé 27 fois
Core 2 duo E6850 - carte graphique Geforce 8600GT 4Go Ram OS:Seven
polo67
Jeune membre
 
Messages: 36
Inscription: 16 Déc 2007, 17:05
Localisation: Moselle
Version Excel: 2003 fr

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

Messagede TGV6773 » 12 Mar 2010, 11:51

Salut,

petit problème technique...

Impossible de trouver la macro :mrgreen: .

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

Merci
TGV6773
Jeune membre
 
Messages: 40
Inscription: 05 Sep 2009, 11:58
Version Excel: 2003 FR

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

Messagede Gr3mZ » 12 Mar 2010, 12:04

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
Gr3mZ
Nouveau venu
 
Messages: 4
Inscription: 11 Mar 2010, 12:34
Version Excel: 2007 fr

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

Messagede dubois » 12 Mar 2010, 12:10

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
Faire simple, c'est ce qui est le plus compliqué ! et vice versa (à méditer)
dubois
Maître Excel
 
Messages: 6618
Inscription: 08 Déc 2007, 12:03
Localisation: MEUDON région parisienne
Version Excel: Vista Office 2007FR

Re: Copier le contenu d'une cellule vers une autre (Macro)  Sujet rĂ©solu

Messagede TGV6773 » 12 Mar 2010, 12:22

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 :wink:

Merci encore une fois
TGV6773
Jeune membre
 
Messages: 40
Inscription: 05 Sep 2009, 11:58
Version Excel: 2003 FR


Retourner vers Questions Excel

Qui est en ligne

Utilisateurs parcourant ce forum: Exabot [Bot] et 6 invités