Une simple formule qui copie simplement tout

[Sagespectre]

Bonjour,

Je cherche, sous excel 2003, à écrire un bout de macro qui me permettrait de copier le contenu d'une cellule vers une autre, à l'image d'une simple fonction "=", mais en prenant également en compte le formatage du texte et de la cellule (couleur et épaisseur de texte, couleur de la cellule).

Quelqu'un saurait-il me dire comment créer une fonction/macro me permettant de le faire ?

En vous remerciant d'avance de combler mon peu de connaissances VBA.

 

[pierrejean]

Re : Une simple formule qui copie simplement tout

bonjour Sagespectre

quelque chose du genre:

Range("A1").Copy Destination:=Range("A2")

 

[jeanpierre]

Re : Une simple formule qui copie simplement tout

Bonjour Sagespectre,

As-tu essayé l'Enregistrur de macro. Outils/Macro/Nouvelle macro.

Tu fais ta manip.et tu arrêtes l'enregistrement, soit avec le bouton noir de la barre d'outils nouvellement créee, soit par le menu précédent et Arrêter l'enregistrement.

Alt F11, et clic sur le module de ton projet pour en voir le texte.

Si l'explorateur de projet n'apparaît pas tu vas dans Affichage/Explorateur de projet.

Voilà comment on commence en VBA.

Bon AM.

Jean-Pierre

 

[Sagespectre]

Re : Une simple formule qui copie simplement tout

Merci pour vos réponses.

La proposition de PierreJean offre exactement le résultat recherché, mais comme il me faut pouvoir utiliser cette macro à de multiples occasions et dans de multiples classeurs je cherche à ôter tout élément de "localisation" dans la macro même afin de pouvoir passer pas une fonction qui m'offrirait beaucoup plus de souplesse.

Et c'est en créant ce code function que mes ennuis commencent. L'idée c'est que la cellule contenant la fonction soit strictement identique à la cellule sélectionnée comme variable.