dollariser plusieurs cellules et seulement les chiffres

[fabienne6611]

Bonjour à tous,
Je viens de trouver sur le forum une macro permettant de dollariser plusieurs cellules en même temps, mais je voudrais dollariser seulement les chiffres : B20 deviendrait B$20.
Voici la macro utilisé pour dollariser les cellules
Sub absolue()
Dim Mycell As Range
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:= _
"Veuillez sélectionner les cellules à dollariser", _
Title:="Addressage absolu", Type:=8)
For Each Mycell In Plage
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


Merci d'avance
Fabienne

 

[Genii]

Re : dollariser plusieurs cellules et seulement les chiffres

Change la ligne :

toAbsolute:=xlAbsolute)

par

toAbsolute:=xlAbsRowRelColumn)

Ca devrait marcher

 

[fabienne6611]

Re : dollariser plusieurs cellules et seulement les chiffres

Merci cela fonctionne!!