Conversion de devises

[onaghi]

Bonjour le Forum,
Pouvez vous me proposer une macro qui me permet de convertir des devises (autre euro) en euro.
en fait dans une colonne qui contient 6 devises (AUD; CAD; USD; CHF; SGD)et moyenant une marco je veux les converir en euro.
ci-après des conversions que j'ai trouver sur internet.

1 EUR = 1,64630 AUD
1 EUR = 1,51333 CAD
1 EUR = 1,51997 USD
1 EUR = 1,57524 CHF
1 EUR = 2,11276 SGD

Merci de votre aide

 

[Guest]

Re : Conversion de devises

voici, à charge pour l'utilisateur de tenir les taux à jour

Function Convertir(Montant, Devise)
Select Case Devise
Case "AUD": Convertir = Montant * 1.6463
Case "CAD": Convertir = Montant * 1.51333
Case "USD": Convertir = Montant * 1.51997
Case "CHF": Convertir = Montant * 1.57524
Case "SGD": Convertir = Montant * 2.11276
End Select
End Function

 

[onaghi]

Re : Conversion de devises

Merci pour ta réponse,
En fait j'ai mal exprimé mon idée, je cherche une macro qui me permet de faire d'une manière automatique la conversion du devise et m'affiche le resultat dans la colonne C (sans passer par un bouton) [je pense que c'est un peu compliqué]. voir le fichier attaché.

Merci encore une fois de t'on aide

 

[JCGL]

Re : Conversion de devises

Bonjour à tous,

C'est exactement ce que fait la Fonction d'Hasco...

A+

Edition : Tu as des espaces derrières tes libellés devises en B ... Ceci peut expliquer que tu ne sois pas parvenu à faire fonctionner la Fonction d'Hasco..

 

[Guest]

Re : Conversion de devises

Et comme ceci, ça répond mieux à ta demande?

sinon ré-explique de façon plus détaillée.

Tu veux une macro ou une fonction de feuille de calcul?

 

[Guest]

Re : Conversion de devises

Oups, j'ai oublié le fichier Excuses....