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 :
Mon unique problème, c'est que la macro ne permet qu'un seul chiffre après la virgule. Je souhaiterais en avoir deux.
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
Avez-vous une idée de la modification à faire ?
Mon OS est configuré en Français.
Merci à vous.
Baladasha.
Partager