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.