Macro pour inserer des $ dans formule excel

[mehdi95mehdi]

Bonjour,

Etant + que novice avec les macros, je vous demande un peu d'aide.

J'ai 500 celules avec une formule du type :
=SI(Personnel!$D5="";"";(Personnel!$F5&"
"&Personnel!$C5&"
"&Personnel!$AX5&"
"&Personnel!$S5))

Je souhaite à l'aide d'une macro inserer des "$" avant le chiffre de la cellule. Sachant que quant je vait copier mes 500 lignes, excel va incrémanter automatiquement les lignes de cellule, par la suite j'ai besoin de copier le résultat de chaque cellule dans une autre feuille de calcul. Pour que cela renvoie bien à la feuille "personnel" et à la bonne cellule, je doit ajouter le caractére "$" avant la lettre et le chiffre référencent la cellule concernée.

Pour résumer, pouvez-vous m'aider à l'aide d'une macro pour passer de cela :
=SI(Personnel!$D5="";"";(Personnel!$F5&"
"&Personnel!$C5&"
"&Personnel!$AX5&"
"&Personnel!$S5))

à cela :
=SI(Personnel!$D$35="";"";(Personnel!$F$5&"
"&Personnel!$C$5&"
"&Personnel!$AX$5&"
"&Personnel!$S$5))

et tous cela de la cellule "L5" à la cellule "L504".

Merci

 

[Staple1600]

Re : Macro pour inserer des $ dans formule excel

Bonjour à tous


mehdi95mehdi
A testersur le classeur que tu as joins (dans mes rêves) à ta question 😉

Sub test()
Dim i&
For i = 5 To 504
Cells(i, "L").Formula = _
Application.ConvertFormula _
(Formula:=Cells(i, "L").Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
Next i
End Sub

 

[mehdi95mehdi]

Re : Macro pour inserer des $ dans formule excel

Bonjour,

Merci Staple 1600 pour cette réponse, c'est exactement la macro qu'il me fallait. J'essayerais de penser à mettre un classeur excel la prochaine fois promis.

Cordialement