Conversion en devise ds USF

[XC]

Bonsoir,

ben je reviens pour un autre pb. :whistle:
J`ai besoin de convertir des donnees saisies en monnaies locales en Euros - voir exemple ci-joint. Userform

Ds l`userform, ds la textbox1 la personne saisie le montant en devise locale, elle selectionne la devise ds la combobox1 et j`aimerais que ds la textbox 2 apparaisse le montant en euros.

Donc la personne ne peut pas saisir ds la textbox 2

c`est simple je pense mais j`ai pas trouve d`exemple de ce type ds les archives.

Je vous remercie

XC [file name=convertisseur.zip size=9667]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/convertisseur.zip[/file]

 

[Robert]

Bonsoir XC, bonsoir le forum,

En pièce jointe ton fichier modifié avec les codes commentés. [file name=convertisseur2.zip size=13860]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/convertisseur2.zip[/file]

 

[excalibur]

bonsoir xc robert le forum une autre facon de traiter le pb il faut dabord renseigner la textbox1 Private Sub ComboBox1_Change()
Dim m As Integer
With Worksheets('DEVISE')
m = ComboBox1.ListIndex + 1
TextBox2 = .Cells(m, 2)
End With
If TextBox1 <> '' Then TextBox2 = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)
End Sub'eventuelement le bt validate ne sert plus salutations

 

[XC]

Bonjour a tous les 2 et merci

c'est exactement ce que je voulais faire et comme d'habitude c'est impeccable

merci beaucoup :woohoo:

Je vous souhaite un bon WE

XC