Hello.
Je déterre ce vieux sujet parce que toutes les réponses que j'ai pu lire ne me convenait pas (même en Anglais).
Je voulais:
o copier normalement ma sélection
o amener mon curseur sur la destination
o cliquer une icône "copie formule sans modif" qui allait me recopier mes formules sans les modifier et, tant que l'on y est, me recopier les mises en forme des cellules sources (surtout utile pour les formats de chiffres).
Les histoires avec des modif du "=" ou via notepad sont pas terribles car nécessite pas mal de manipulation.
Bref, ci-dessous les lignes de VBA qui m'ont résolue tout ca :
Sub Colle_Formules_Sans_Modif()
Selection.PasteSpecial Paste:=xlPasteFormats
ActiveSheet.Paste Link:=True
For Each Cell In Selection
Cell.Formula = Range(Right(Cell.Formula, Len(Cell.Formula) - 1)).Formula
Next
End Sub
En fait le colle d'abord les formats, puis colle "par-dessus" les adresses des cellules d'origine.
Une boucle sur la nouvelle sélection qui vient de se faire récupère ses adresses et enlève le "=" devant, ce qui me donne l'adresse d'origine digérable pour un "Range" qui me récupère ainsi la formule de la cellule d'origine pour la recopier dans la cellule de destination.
Ouf.
Il ne me reste plus qu'à mettre dans le ruban une icône pointant vers cette macro (de mon classeur du XLStart).
Si ca peut servir à quelqu'un....
Enjoy
DD