Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel récupérer une formule

récupérer une formule

5 réponses
Avatar
Misange
b'soir
comment par VBA récupérer une formule écrite dans une formule, avec ses
références pour pouvoir ensuite la modifier ?
Ex : si en B1 j'ai écrit = ln(A1) je voudrais modifier *par VBA* cette
formule pour mettre un truc comme =si(A1<>0;ln(A1);"")
merci :-)
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ru-th
Salut la volatile

une possibilité
Sub TEST()
rep = Mid([c1].FormulaLocal, 2, 9 ^ 9)
[d1].FormulaLocal = "=si(a1<>0;" & rep & ";"""")"
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange" a écrit dans le message de news:

b'soir
comment par VBA récupérer une formule écrite dans une formule, avec ses
références pour pouvoir ensuite la modifier ?
Ex : si en B1 j'ai écrit = ln(A1) je voudrais modifier *par VBA* cette
formule pour mettre un truc comme =si(A1<>0;ln(A1);"")
merci :-)
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta



Avatar
michdenis
Bonjour Misange,

En A1, la formule suivante : = Ln(B1)

Dim Rg As String
Rg = Range("A1").DirectPrecedents.Address
Range("A1").FormulaLocal = "=si(" & Rg & "<>0;Ln(" & Rg & ");"""")"


Salutations!



"Misange" a écrit dans le message de news:
b'soir
comment par VBA récupérer une formule écrite dans une formule, avec ses
références pour pouvoir ensuite la modifier ?
Ex : si en B1 j'ai écrit = ln(A1) je voudrais modifier *par VBA* cette
formule pour mettre un truc comme =si(A1<>0;ln(A1);"")
merci :-)
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Avatar
ru-th
Variante
parce que pas tout compris
Sub test2()
For i = 1 To 5
Cells(i, 3).FormulaLocal = "=si(" & Cells(i, 1).Address & "<>0;" & Cells(i,
1).Address & ";"""")"
Next
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange" a écrit dans le message de news:

b'soir
comment par VBA récupérer une formule écrite dans une formule, avec ses
références pour pouvoir ensuite la modifier ?
Ex : si en B1 j'ai écrit = ln(A1) je voudrais modifier *par VBA* cette
formule pour mettre un truc comme =si(A1<>0;ln(A1);"")
merci :-)
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta



Avatar
Misange
merci à tous les deux, c'est exactement ça :-)
le sourire et la rapidité en prime !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


ru-th wrote:
Salut la volatile

une possibilité
Sub TEST()
rep = Mid([c1].FormulaLocal, 2, 9 ^ 9)
[d1].FormulaLocal = "=si(a1<>0;" & rep & ";"""")"
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange" a écrit dans le message de news:


b'soir
comment par VBA récupérer une formule écrite dans une formule, avec ses
références pour pouvoir ensuite la modifier ?
Ex : si en B1 j'ai écrit = ln(A1) je voudrais modifier *par VBA* cette
formule pour mettre un truc comme =si(A1<>0;ln(A1);"")
merci :-)
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta








Avatar
Michel Gaboly
Bonsoir Misange,

J'arrive après la bataille ;-((,mais j'ai fait un classeur sur ce thème hier
pour un client ; je te l'envoie en BAL.

Bonne année



merci à tous les deux, c'est exactement ça :-)
le sourire et la rapidité en prime !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

ru-th wrote:
Salut la volatile

une possibilité
Sub TEST()
rep = Mid([c1].FormulaLocal, 2, 9 ^ 9)
[d1].FormulaLocal = "=si(a1<>0;" & rep & ";"""")"
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange" a écrit dans le message de news:


b'soir
comment par VBA récupérer une formule écrite dans une formule, avec ses
références pour pouvoir ensuite la modifier ?
Ex : si en B1 j'ai écrit = ln(A1) je voudrais modifier *par VBA* cette
formule pour mettre un truc comme =si(A1<>0;ln(A1);"")
merci :-)
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta








--
Cordialement,

Michel Gaboly
http://www.gaboly.com