Placement des "$" en automatique

Bonjour,

J'aurais voulu savoir s'il était possible de demander à Excel de mettre automatiquement le $ devant l'intitulé de la colonne et de la ligne. J'ai, en effet, une grosse base de données avec des formules mais celles-ci ont été créées sans le verouillage des cellules cibles.

Exemple : toutes mes cellules ont une formule telle que :

=SI('LISTING AIG 2-1'!C14:C14="PPD";1;0)

J'aimerais demandé à Excel de la transformer automatiquement en :

=SI('LISTING AIG 2-1'!$C$14:$C$14="PPD";1;0)

Est-ce possible ?

Si cela n'est pas possible je vais devoir le faire manuellement et cela va me prendre beaucoup de temps ! Mais bon si cette fonctionnalité n'existe pas, je n'ai pas vraiment le choix !

En vous remerciant par avance ,

Cordialement,

Nicolas Fischer

Bonjour,

A tester et adapter dans ton fichier.

Enregistre une copie de ton fichier avant de lancer cette procédure.

Cdlt.

sub DoAbsolut()
 'Tom Ogilvy, mpep
 Dim inputFormula As String
 Dim outputFormula As String
 Dim cell As Range
 Dim rng As Range

 Set rng = Selection ' ActiveSheet.UsedRange.SpecialCells(xlFormulas)
 For Each cell In rng
  inputFormula = cell.Formula
  outputFormula = Application.ConvertFormula( _
      Formula:=inputFormula, _
      fromReferenceStyle:=xlA1, _
      toReferenceStyle:=xlA1, _
      ToAbsolute:=xlAbsolute)
  cell.Formula = outputFormula
 Next

 end sub

C'est ok, ça fonctionne !

Merci énormément !