Discussion :

[Baladasha]

Bonjour à vous,

Comme expliqué dans le titre, j'ai créé un formulaire dans Excel pour remplir un tableau.
Dans ce tableau, je souhaite insérer ma colonne prix via mon formulaire.
J'ai presque réussi à un détail près.

Après quelques recherches sur le forum j'ai trouvé ce bout de code qui ma permis d'avancer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
 
Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Point) Then
        If InStr(TextBox1, Virgule) = 0 Then
            KeyAscii = Asc(Virgule)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
End Sub

Mon unique problème, c'est que la macro ne permet qu'un seul chiffre après la virgule. Je souhaiterais en avoir deux.
Avez-vous une idée de la modification à faire ?

Mon OS est configuré en Français.

Merci à vous.
Baladasha.

[sebing]

Bonsoir,

Si j'ai bien compris votre besoin, vous avez un formulaire de saisie et vous souhaitez changer le point par une virgule.
Pourquoi ne pas faire un replace tout simplement.
On va récupérer le texte du TextBox1 et on va le convertir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultat_sans_code = Replace(TextBox1, ".", ",")

En espérant vous avoir aidé.
Cordialement

Sebing

[patricktoulon]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 44 Then KeyAscii = 46    ' on remplace la virgule  par le  point
    If TextBox1 = "" And KeyAscii = 46 Then KeyAscii = 0
    If Not Chr(KeyAscii) Like "[01,2,3,4,5,6,7,8,9,.]" Or Right(TextBox1, 3) Like ".##" Then KeyAscii = 0 ' que des nums et 2 decimales
End Sub