Référence absolue sur une plage

[Kiseki]

Bonjour,

Je souhaiterai sélectionner une plage et que les formules actuelles passent en absolue.

En résumé :

=Feuil1'A1

Devient :

=Feuil1'$A$1



Car j'ai une multitudes de cellules à faire, F4 c'est bien mais quand on peux faire mieux c'est mieux.

 

[job75]

Re : Référence absolue sur une plage

Bonjour Kiseki,

Sub Convertir()
Dim cel As Range
For Each cel In Intersect(Selection, ActiveSheet.UsedRange)
  If cel.HasFormula Then _
    cel.Formula = Application.ConvertFormula(cel.Formula, xlA1, , True)
Next
End Sub

Edit : si Selection n'est pas un Range, ou si on sélectionne en dehors du UsedRange, la macro beugue.

On peut alors mettre en tête On Error Resume Next

A+

 

[Kiseki]

Re : Référence absolue sur une plage

Bonjour Job75,

Merci, c'est ce que je voulais.