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

zebanx

XLDnaute Accro
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
 

Fichiers joints

Dernière édition:

job75

XLDnaute Barbatruc
Bonjour zebanx,
Code:
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+
 

Discussions similaires


Haut Bas