Forcer le point dans toutes les TextBox

**Arcvif** · 12/02/2021, 19h26

Bonjour,

Merci à tous car jusqu'à maintenant la seule consultation des posts déjà disponible avait suffit à m'aider, seulement maintenant je bloque et je ne sais pas d'où viens le souci.

J'ai créé un petit utilitaire à l'attention de la force de vente permettant de remplir automatiquement des listes de prix telles que celle que l'on peut trouver sur des devis.

Pour renseigner la remise appliquée, j'ai utilisé des TextBox qui doivent me renvoyer un nombre, pour cela, il faut être sur que ce nombre soit écrit, le cas échéant, avec un séparateur de décimal représenté par un ".".
Mon code devenant assez lourd, j'ai décidé d'utiliser les modules de classe pour gérer cela dans toutes les Textbox, et alors que cela fonctionnait sans les module de classe, avec, ça ne fonctionne pas, les TextBox me renvois systématiquement des nombre avec un séparateur à virgule et au format texte, donc inexploitable.

Je suis perdu.

Voilà ce que j'ai fait :

Le module de classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public WithEvents TextBoxEvent As MSForms.TextBox
 
Private Sub TextBoxEvent_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
        Case 44, 46: KeyAscii = Asc(Format(0, "."))
    End Select
 
 
End Sub

Le code dans UserForm :

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
21
22
Option Explicit
Private TextBoxCollection As Collection
 
'Dim Nbref As Integer
 
Private Sub Userform_Initialize()
 
Dim Ctrl As Control
Dim TextBoxInstance As TextBoxClasse
Set TextBoxCollection = New Collection
 
For Each Ctrl In Me.Controls
 
    If TypeName(Ctrl) = "TextBox" Then
        Set TextBoxInstance = New TextBoxClasse
        Set TextBoxInstance.TextBoxEvent = Ctrl
        TextBoxCollection.Add TextBoxInstance
    End If
 
Next Ctrl
 
End Sub

J'ai du mal faire, mais je trouve pas où

(je précise que je ne suis pas pro et autodidacte, certaines notions peuvent parfois être un peu compliqué à appréhender pour moi)

Si quelqu'un pouvait me dire comment me corriger, je lui en serais éternellement reconnaissant.

**ARTURO83** · 13/02/2021, 08h19

Bonjour,

Question:
Après le remplissage de la textbox, avez-vous essayé d'ajouter à la suite, une ligne comme celle-ci

Code :

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

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

Cdlt

**Nicolas JACQUIN** · 13/02/2021, 08h45

Bonjour,
Créer un module de classe et y mettre ce code:

Code :

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

1
2
3
4
5
6
7
8
Public WithEvents TextBoxGroup As MSForms.Textbox
 
Private Sub TextBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    'transforme le point en virgule
    If KeyAscii = 46 Then KeyAscii = 44
 
End Sub

@+