Conversion de formules

[Olivier]

Comment puis je convertir des cellules en Euro, qui contiennent des formules?

Je sais que si la formule reprend des numeros de cellulles il suffit de convertir les cellules concernees.

Mais si la formule est du genre : =250000+250
Comment puis je faire?

Si vous saviez me repondre a cette adresse: Jarod2014@caramail.com, merci Bcp!

Oli

 

[Stéphane]

bonjour


http://disciplus.simplex.free.fr

tu trouveras des "eurotrucs" là-bas

bye
stéphane

 

[Olivier]

En fait ce n'est pas un programme qu'il me faut, j'ai deja un logiciel.Ce qu'il me faudrait, c une macro, ou qqch comme ca.

Merci qd meme!

 

[svpcok]

Sub euro()

modif = Range("e2").Formula
modif = Replace(modif, "=", "=0.55957*")
modif = Replace(modif, "+", "+0.55957*")
modif = Replace(modif, "-", "-0.55957*")
Range("f2") = modif
End Sub

 

[chris]

Souhaites tu conserver les formules ?
Si non tu peux créer un feuille qui fait référence à la première en divisant chaque cellule par 6.55957 (cellule par cellule : tu mets la formule dans A1 et tu recopies). Ensuite tu copies cette feuille sur elle-même en collage spécial valeur. Puis tu détruis l'original.

Si oui il faut effectivement traiter chaque valeur à l'intérieur des formules.
Des softs font cela, sinon il faut créer une macro.
Chris

 

[Sylvain]

on peut essayer aussi :
taper 6.55957 dans une cellule
édition copier
on sélectionne les cellules à modifier
édition collage spécial opération division

attention aux sommes de cellules qui ne doivent pas être modifiées.

A+

 

[Olivier]

MErci pr la formule de conversion des formules mais il me reste encore un problemes, comment puis je faire pour lui dire que si c'est une formule du genre =Somme🙂) de ne pas la modifier? Tout en continuant de modifier les cellules contentant les formules du genre =250000+25

Merci de votre aide!

Oli

 

[Stéphane]

par exemple un truc parmi d'autres

Sub hj()
For Each cl In Selection
If InStr(1, cl.Formula, "SUM") > 0 Then
MsgBox ("modif de " & cl.Address(0, 0))
'modif
Else
'nomodif
MsgBox ("no modif de " & cl.Address(0, 0))
End If
Next cl
End Sub

 

[David]

Salut tout le monde

Olivier je te conseille de regarder le code la macro de conversion euro que j'ai réalisé et qui est disponible sur le site.
Tout le code est disponible et tu pourras peut être trouver ce genre d'infos!
Lis le fichier txt qui explique comment tout cela fonctionne et tu verras que j'ai à peu près pris les même regles de conversion que ce que tu souhaites faire!

A+

David