[paramétrage] adressage absolu par défaut

[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] Convertir_F_REF_ABS()
[COLOR=darkblue]Dim[/COLOR] Mycell [COLOR=darkblue]As[/COLOR] Range
[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] Mycell [COLOR=darkblue]In[/COLOR] ActiveSheet.UsedRange
  [COLOR=darkblue]If[/COLOR] Len(Mycell.Formula) > 0 [COLOR=darkblue]Then[/COLOR]
    [COLOR=green]'Stores cell's formula as variable[/COLOR]
    MyFormula = Mycell.Formula
    [COLOR=green]'Converts formula to absolute reference style[/COLOR]
    NewFormula = Application.ConvertFormula _
        (My[COLOR=darkblue]For[/COLOR]mula, xlA1, xlA1, xlAbsolute)
    [COLOR=green]'Replaces old formula with new absolute formula[/COLOR]
    Mycell.Formula = NewFormula
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]Sub[/COLOR] Convertir_F_ABS_REL()
[COLOR=darkblue]Dim[/COLOR] Mycell [COLOR=darkblue]As[/COLOR] Range
[COLOR=darkblue]Dim[/COLOR] Plage [COLOR=darkblue]As[/COLOR] Range
[COLOR=darkblue]Set[/COLOR] Plage = Application.InputBox(Prompt:= _
"Veuillez sélectionner les cellules à convertir", _
Title:="Convertion en références relatives", Type:=8)
For [COLOR=darkblue]Each[/COLOR] Mycell [COLOR=darkblue]In[/COLOR] Plage
  [COLOR=darkblue]If[/COLOR] Len(Mycell.Formula) > 0 [COLOR=darkblue]Then[/COLOR]
        MyFormula = Mycell.Formula
        NewFormula = Application.ConvertFormula _
            (MyFormula, xlA1, xlA1, xlRelative)
        Mycell.Formula = NewFormula
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]End[/COLOR] Sub[/FONT]