Boucle chaque cellule : modifier référence dans formule (A1 par $A$1)

[zebanx]

Bonjour le forum,

Sur une longue liste dans une colonne, pourriez-vous svp m'indiquer comment procéder pour modifier la formule en appliquant un référencement figeant l'adresse de chaque constituant dans chaque cellule ? (ie : séparation d'une adresse relative par un "+" ou un "-")
Le fichier suivant explique plus clairement cette demande (mais ne serait pas le fichier final qui contiendrait plusieurs colonnes).
Quelques tentatives rapides mais ça ne donne rien..(pas de code inséré du coup)

Je vous remercie par avance pour votre retour et/ou vos commentaires.
(Je continue à chercher de mon côté pour voir si un fil permettrait de traiter aussi le sujet).

Bonne journée
zebanx

 

[job75]

Bonjour zebanx,

Sub ConvertirFormule()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If c.HasFormula Then c = Application.ConvertFormula(c.Formula, xlA1, ToAbsolute:=True)
Next
End Sub

A+

 

[zebanx]

Bonjour @job75

Cela va me permettre de modifier mes colonnes. Merci beaucoup.

@+