Soyez le premier à donner votre avis sur cette source.
Vue 3 427 fois - Téléchargée 177 fois
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
Private Sub txtEuro_Click()
txtFF = ""
txtEuro = ""
End Sub
Private Sub txtFF_Click()
txtFF = ""
txtEuro = ""
End Sub
ça a le meme effet que le bouton effacer sauf ke ca efface les textbox kan l'on veut en modifier le contenu
autrement c très bien
if isNumeric(text1.text)
A faire sur le lost focus du textBox....
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 46) And (KeyAscii <> 8) Then KeyAscii = 0 ' chiffre de 0 à 9, le point (.) et [backspace]
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.