Modification de type de variable
roi001
Messages postés
1
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
23 janvier 2003
-
23 janv. 2003 à 14:02
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 23 janv. 2003 à 16:46
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 23 janv. 2003 à 16:46
A voir également:
- Modification de type de variable
- Variable objet ou variable de bloc with non définie ✓ - Forum Visual Basic
- Type de variable vba ✓ - Forum Visual Basic
- Type mismatch - Forum Visual Basic
- Ecart type matlab ✓ - Forum C# / .NET
- Variable objet ou variable bloc with non défini ✓ - Forum Visual Basic 6
2 réponses
cs_Boris88
Messages postés
3
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
23 janvier 2003
23 janv. 2003 à 14:28
23 janv. 2003 à 14:28
Il faut que tu essayes avec la commande
format("text1.text",#,##).
Je ne suis plus trop sur de la syntaxe mais c un truc dans le style.
format("text1.text",#,##).
Je ne suis plus trop sur de la syntaxe mais c un truc dans le style.
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
23 janv. 2003 à 16:46
23 janv. 2003 à 16:46
Bonjour
Le Sub ci-dessous accepte point ou virgule comme séparateur et l'écrit sous formr de virgule.
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 46 Then ' remplace le point .
KeyAscii = 44 ' par la virgule ,
Exit Sub
End If
Select Case KeyAscii
Case 8, 44, 48 To 57 ' Autorisés : 44 virgule 8 BackSpace 48 à 57 chiffres
Case Else ' Interdits : tous les autres
Beep
KeyAscii = 0
Exit Sub
End Select
End Sub
Le Sub ci-dessous accepte point ou virgule comme séparateur et l'écrit sous formr de virgule.
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 46 Then ' remplace le point .
KeyAscii = 44 ' par la virgule ,
Exit Sub
End If
Select Case KeyAscii
Case 8, 44, 48 To 57 ' Autorisés : 44 virgule 8 BackSpace 48 à 57 chiffres
Case Else ' Interdits : tous les autres
Beep
KeyAscii = 0
Exit Sub
End Select
End Sub