permet de convertir lmes euros en francs et inversement.
Source / Exemple :
3 boutons + une feuille
2 labels
2 text
Option Explicit
Private Const taux = 6.55957
Private Sub CmdConv_Click()
If TxtFF.Text = "" Then
TxtFF.Text = Round(TxtEuro * taux, 2)
End If
If TxtEuro.Text = "" Then
TxtEuro.Text = Round(TxtFF / taux, 2)
End If
End Sub
Private Sub CmdEff_Click()
TxtFF.Text = ""
TxtEuro.Text = ""
End Sub
Private Sub CmdQuit_Click()
Unload Me
End
End Sub
Private Sub TxtFF_KeyPress(KeyAscii As Integer)
'si le caractère tapé est différent de 0123456789, rien n est affiché
If Not Chr(KeyAscii) Like "[0123456789,]" Then KeyAscii = 0
End Sub
Private Sub TxtEuro_KeyPress(KeyAscii As Integer)
'si le caractère tapé est différent de 0123456789, rien n est affiché
If Not Chr(KeyAscii) Like "[0123456789,]" Then KeyAscii = 0
End Sub
Conclusion :
J en convient c est pas trancendant, mais ca marche et je debute....
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.