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

Pour toutes vos questions à propos d'Excel ...

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

Messagepar TGV6773 » 11 Mars 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
Membre habitué
 
Messages: 71
Inscription: 05 Sep 2009, 11:58
Version Excel: 2003 FR - Libre Office 3.4.0

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

Messagepar polo67 » 11 Mars 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é 200 fois
Core 2 duo E6850 - carte graphique Geforce 8600GT 4Go Ram OS:Seven
polo67
Jeune membre
 
Messages: 39
Inscription: 16 Déc 2007, 17:05
Localisation: Alsace
Version Excel: 2003 fr

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

Messagepar TGV6773 » 12 Mars 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
Membre habitué
 
Messages: 71
Inscription: 05 Sep 2009, 11:58
Version Excel: 2003 FR - Libre Office 3.4.0

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

Messagepar Gr3mZ » 12 Mars 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 Mars 2010, 12:34
Version Excel: 2007 fr

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

Messagepar dubois » 12 Mars 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
Passionné d'Excel
 
Messages: 9260
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

Messagepar TGV6773 » 12 Mars 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
Membre habitué
 
Messages: 71
Inscription: 05 Sep 2009, 11:58
Version Excel: 2003 FR - Libre Office 3.4.0


Retourner vers Excel - VBA

 


  • Sujets similaires
    Réponses
    Vus
    Dernier message

Utilisateurs en ligne

Utilisateurs parcourant ce forum: Bing [Bot], Google [Bot], Google Adsense [Bot] et 6 invités