Référence absolue sur une plage

Kiseki · 11 Août 2011

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 · 11 Août 2011

Re : Référence absolue sur une plage

Bonjour Kiseki,

Code:

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 · 11 Août 2011

Re : Référence absolue sur une plage

Bonjour Job75,

Merci, c'est ce que je voulais.

Référence absolue sur une plage

Kiseki

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Kiseki

XLDnaute Occasionnel

Discussions similaires