Autres changer les références absolues en références relatives dans une page complète

[papat]

bonjour,
comment faire passé les cellules d'une page qui sont en références absolues en références relatives et inversement ?
merci

 

[chris]

Bonjour

Dans un sens c'est facile : rechercher $ et remplacer par rien en précisant formules dans les options de recherche

Dans l'autre c'est plus compliqué selon le nombre de références différentes...

 

[papat]

merci, on se trouve nul de ne pas y avoir penser tout seul !!

 

[Staple1600]

Bonsoir le fil, papat, chris

[moment recyclerie]
>Issu de ce fil de 2008, une petite macro<

https://www.excel-downloads.com/threads/figer-les-referencements.98988/#post-559915

Sub Convertir_F_ref_absolue()
Dim Mycell As Range
For Each Mycell In ActiveSheet.UsedRange
          If Len(Mycell.Formula) > 0 Then
                'Stores cell's formula as variable
                MyFormula = Mycell.Formula
                'Converts formula to absolute reference style
                NewFormula = Application.ConvertFormula _
                    (Formula:=MyFormula, _
                    fromReferenceStyle:=xlA1, _
                    toReferenceStyle:=xlA1, _
                    toAbsolute:=xlAbsolute)
                'Replaces old formula with new absolute formula
                Mycell.Formula = NewFormula
            End If
        Next
End Sub

 

[Staple1600]

Re

[moment recyclerie - bis]
C'est plutôt cette version qui colle à la question

https://www.excel-downloads.com/threads/supprimer.100122/#post-567947

Sub Convertir_ref_absolue_REL()
Dim Mycell As Range
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:= _
"Veuillez sélectionner les cellules à convertir", _
Title:="Convertion en références relatives", Type:=8)
For Each Mycell In Plage
          If Len(Mycell.Formula) > 0 Then
             
                MyFormula = Mycell.Formula
             
                NewFormula = Application.ConvertFormula _
                    (Formula:=MyFormula, _
                    fromReferenceStyle:=xlA1, _
                    toReferenceStyle:=xlA1, _
                    toAbsolute:=xlRelative)
              
                Mycell.Formula = NewFormula
            End If
        Next
End Sub

 

[papat]

Bonjour, merci pour vos réponses .