Conversion

[Guest]

Bonjour à tous!

Je sais pas si je serais très claire sans fichier joint mais je vais essayer! D'un côté, j'ai des données brutes que je veux convertir selon un choix de monnaie, ca je sais faire. En revanche, j'ai d'autres données qui sont, elles, issues de formules que je voudrais convertir, or je n'arrive pas à trouver d'outil qui me convertisse directement dans la monnaie voulue... Tout ce que je trouve me convertit la valeur résultante de la formule mais moi, je voudrais que ce soit à la formule elle meme que soit appliquée la conversion....😕

 

[Guest]

Re : Conversion

Voilà un fichier joint ou j'ai crée les macros... la première fonctionne et me donne ce que je veux. La seconde macro aussi mais elle me convertit uniquement la VALEUR de la cellule alors que je voudrais que la formule reste en tant que telle dans ma cellule tout en me donnant une valeur convertie.... 😕

 

[ODVJ]

Re : Conversion

Bonjour,

une proposition sans macro pour les formules.

A+

 

[pierrejean]

Re : Conversion

bonjour lililette

salut ODVJ

@ lililette

une modif de ta macro qui semble fonctionner
(attention il peut y avoir une virgule à transformer en point selon l'option régionale)

@ OVDJ

je jette un oeil à ta solution pour tenter de m'ameliorer coté fonctions

 

[pierrejean]

Re : Conversion

toutes mes excuses !!

la version precedente n'etait pas suffisamment testée

en voici une que j'espere meilleure

testez quand même !!!

 

[Guest]

Re : Conversion

Merci beaucoup à vous 3!Pierre-Jean, c'est exactement ce qu'il me fallait mais pourriez vous m'expliquer un peu plus la macro (le but étant que je la comprenne un peu quand meme! 😀 ) : que veulent dire : "CStr"? "c.FormulaLocal" ?

 

[pierrejean]

Re : Conversion

voila les commentaires
j'espere qu'ils sont suffisamment clairs
(c.formulalocal est la fonction de la cellule c)

For Each c In Range("formulae")
'pour chaque cellule de la plage nommée formulae
    If Right(CStr(c.FormulaLocal), 2) = "67" Then
    'si la fonction utilisée (en l'occurence : =Sheet1!C5*0,67) se termine par 67 alors
    '(cstr transforme la fonction en string)
    c.FormulaLocal = Left(CStr(c.FormulaLocal), Len(CStr(c.FormulaLocal)) - 5)
     'on enleve les 5 derniers termes (*0,67)
     'exactement :prendre a gauche le nombre de termes correspondant a la longueur de la formule -5
    Else
    'sinon
    c.FormulaLocal = CStr(c.FormulaLocal) & "*0,67"
     ' on ajoute a la formule le *0,67
    End If
Next c

au passage mes excuses a jmps que j'ai oublié de saluer