franc ou €uros

[maval]

Bonjour,

Je recherche un code qui peut me convertir une somme qui se trouve dans un textbox sur un USF a l'aide de Bouton Option soit en franc ou en €uros

D'avance merci à qui pourra m'aider.

Cordialement
Maval

 

[phlaurent55]

Re : franc ou €uros

Bonjour Maval,

voir fichier joint

Rem: Conversion en Francs Belges

à++
Philippe

Edit: Bonjour (Bonsoir) Jean-Marcel

 

[maval]

Re : franc ou €uros

Bonsoir Jean Marcel, Philippe

Je vous remercie tout deux. Sur la proposition de Jean Marcel qui est la plus proche de la demande et possible d'avoir la somme convertie dans la cellule soit en francs ou en euros suivant le choix. Je m'explique si je rentre dans la texbox 12.06 au lieu d'avoir ceci
79,1084142 avoir 79.11€ ou si l'on choisie en francs 486,49

Merci et bonne soirée

 

[camarchepas]

Re : franc ou €uros

Bonjour,

A mettre dans le code du userform

Private Sub CommandButton1_Click()
Dim Taux As Double
 
  Taux = 6.55957
  Range("E5") = Round(IIf(Me.OptEuro, CDbl(TextBox1) * Taux, CDbl(TextBox1) / Taux), 2)
 
End Sub

 

[maval]

Re : franc ou €uros

Bonjour Camarchepas,

Je te remercie mais j'ai un "message d'erreur de compilation membre de méthode ou de données introuvable"

Bonne journée

Max

 

[Misange]

Re : franc ou €uros

Bonjour,

en complément de la réponse de Jean Marcel (que je salue au passage 🙂 ) :

j'allais supprimer ces astuces d'excelabo pensant que ça n'intéressait plus personne maintenant, voilà qui va m'inciter à les y laisser...
ce sujet a fait couler beaucoup d'encre lors du passage à l'euro et des solutions vraiment intéressantes et différentes par leur approche ont été proposées par plusieurs contributeurs du forum MPFE et d'excelabo.
Les différentes solutions sont regroupées dans ce classeur.
Ce lien n'existe plus

les solutions complètes originales des différents contributeurs sont ici :
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus

 

[maval]

Re : franc ou €uros

Bonjour Misange

Je te remercie et te souhaite une bonne journée

Max