Discussion :

[Rogeure]

Bonsoir,

Je souhaiterai éviter la saisie du sigle Euro dans une textbox.

Merci pour votre aide et bonne soirée.

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
'Verification de la saisie de la TxtBoxPriAch
Private Sub TxtBoxPriAch_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim chaine
chaine = "0123456789,€"
'Si la saisie n'est pas un caractère compris entre 0 et 9, et la virgule
'et qu'elle n 'est pas non plus une des touches supprimer
'ou qu'elle n'est pas non plus une seconde virgule
If InStr(chaine, Chr(KeyAscii)) = 0 And Not KeyAscii = 8 Or InStr(TxtBoxPriAch.Value, ",") <> 0 And Chr(KeyAscii) = "," Then
    'Alors emettre un bip et afficher un message d'erreur
    Beep
    MsgBox "Le prix d'achat doit être une valeur numèrique et le séparateur décimal doit être une virgule !", , "PRIX D'ACHAT"
    'Assigner un KeyAscii vide à la txtBoxPriAch
    KeyAscii = 0
End If
End Sub

[Invité]

Bonjour,

Une solution parmi d'autres pour contrôler la saisie dans le textbox et le nombre de virgules.

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
 
Private Sub TxtBoxPriAch_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
Dim CtrI As Integer
Dim NbVirgules As Integer
 
    On Error Resume Next
    If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
 
    For CtrI = 1 To Len(TxtBoxPriAch)
        Select Case Mid(TxtBoxPriAch, CtrI, 1)
            Case ","
                 NbVirgules = NbVirgules + 1
                 If NbVirgules > 1 Then
                    KeyAscii = 0
                    TxtBoxPriAch = Mid(TxtBoxPriAch, 1, Len(TxtBoxPriAch) - 1)
                    MsgBox ("Il ne peut y avoir qu'une seule virgule !")
                 End If
       End Select
   Next CtrI
 
End Sub

Cordialement.

[Rogeure]

Merci Eric,

C'est parfait !!!

Serait-ce trop te demander que de m'expliquer ton code ?

Encore merci et bonne soirée

[Invité]

Bonjour,

Code :

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

InStr("1234567890,-", Chr(KeyAscii)) = 0

n'autorise la saisie que des caractères compris dans "1234567890,-".

Se pose le problème du nombre de virgules (et éventuellement du signe -) puisque ce caractère est autorisé. Il faut donc compter à chaque nouveau caractère, s'il y a plusieurs virgules. On compare chaque caractère contenu dans le textbox et pour chaque "," on incrémente un compteur. Si ce compteur est égal à 2, on enlève le dernier caractère saisi.

Cordialement.

[Rogeure]

Chapeau bas et encore merci.