copier texte formule

[Denis132]

Bonjour à tous,

J'aimerais avoir une macro qui me copie la formule de la cellule sur laquelle je suis dans la cellule de la colonne suivante.

exemple: je suis sur la cellule f5 qui contient la formule =somme(f1:f4), je voudrais que la cellule g5 contienne le texte =somme(f1:f4). Ainsi dès que je me place sur une cellule quelconque et que j'exécute ma macro, j'ai le texte dans la colonne suivante.

Merci

Denis

 

[JCGL]

Re : copier texte formule

Bonjour à tous,

Sans exemple de l'attendu :

Sub Test()
ActiveCell.Copy ActiveCell.Offset(0, 1)
Application.CutCopyMode = False
End Sub

A + à tous

 

[Denis132]

Re : copier texte formule

Bonjour,

Merci jcgl, mais ce n'est pas ce que je voulais(ma question n'était pas très claire) alors voici un fichier exemple.

Merci

 

[Victor21]

Re : copier texte formule

Bonjour, Re, JC

Essayez :

Sub test()
ActiveCell.Offset(0, 1).Value = "'" & ActiveCell.FormulaLocal
End Sub

 

[Denis132]

Re : copier texte formule

Bonjour,

Merci Patrick, c'est exactement ce que je voulais.

Denis