XL 2019 Imposer une virgule au lieu d'un point dans textbox; procédure ne fonctionne pas

donpopo · 14 Mai 2021

Bonsoir le forum;
dans mon programme, j'utilise sur plusieurs textbox de différents userform la procédure ci-dessous:

VB:

'-------------------------------------------------------------
'imposer encodage de chiffres, d'une virgule pour facture eaux
'-------------------------------------------------------------
Private Sub textbox202_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then KeyAscii = 44
    If InStr("1234567890,", Chr(KeyAscii)) = 0 Or TextBox202.SelStart > 0 And Chr(KeyAscii) = "-" Or InStr(TextBox202.Value, ",") <> 0 And Chr(KeyAscii) = "," Then
        KeyAscii = 0: Beep
    End If
End Sub

Cela fonctionne pour tous mes textbox sauf 2 (dont celui en question dans l'exemple ci-dessus). Si je clique sur le point, celui-ci ne se convertit pas en virgule.
Je ne comprends pas très bien ce qui empêche le point d'être remplacé par une virgule.

Si quelqu'un a une idée, merci d'avance,
donpopo

donpopo · 14 Mai 2021

Merci à tous trois,
je ne sais pas ce qu'il s'est passé, mais j'ai fait un copier/coller d'une procédure dans un autre userform et j'ai modifier l'index du textbox en fonction et cela fonctionne.Encore merci et
A+

cathodique · 14 Mai 2021

Bonsoir donpopo,

Solution ici

A+

cathodique · 14 Mai 2021

Bonsoir,

@donpopo : Vérifie le n° de textbox s'il correspond. Car avec le genre de code on fait des copier/coller et on omet de modifier le n° (index textbox).

Private Sub textbox202_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
If InStr("1234567890,", Chr(KeyAscii)) = 0 Or TextBox202.SelStart > 0 And Chr(KeyAscii) = "-" Or InStr(TextBox202.Value, ",") <> 0 And Chr(KeyAscii) = "," Then
KeyAscii = 0: Beep
End If
End Sub

donpopo · 14 Mai 2021

Bonsoir,
merci pour la réponse, mais les textbox sont bien indexés dans la procédure. Je viens de revérifier.
En fait, ma procédure fonctionnait bien auparavant; je ne vois pas ce que j'aurais pu modifier.

ChTi160 · 14 Mai 2021

Bonsoir donpopo
Bonsoir le Fil , cathodique
edit :
je n'ai pas tout compris Lol
donc :
j'ai supprimé le code joint Loin
Bonne fin de Soirée
jean marie

job75 · 14 Mai 2021

Bonsoir donpopo, cathodique, ChTi160,

donpopo à dit:
En fait, ma procédure fonctionnait bien auparavant; je ne vois pas ce que j'aurais pu modifier.

Pas du tout, il suffit de tester, avec le code du post #1 on ne peut pas mettre un tiret devant un nombre.

Pour y parvenir il suffit d'ajouter un tiret au début du 2ème test :

VB:

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

A+

cathodique · 14 Mai 2021

job75 à dit:
Bonsoir donpopo, cathodique, ChTi160,

Pas du tout, il suffit de tester, avec le code du post #1 on ne peut pas mettre un tiret devant un nombre.

Pour y parvenir il suffit d'ajouter un tiret au début du 2ème test :

VB:

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

A+

Job75, bien vu œil de lynx

donpopo · 14 Mai 2021

Bonsoir Jean-Marie, job75,
j'ai beau tout essayer; cela ne fonctionne pas: le point reste le point.

VB:

If InStr("-1234567890,", Chr(KeyAscii)) = 0 Or TextBox202.SelStart > 0 Or InStr(TextBox202.Value, ",") <> 0 And Chr(KeyAscii) = "," Then

cathodique · 14 Mai 2021

donpopo à dit:
Bonsoir Jean-Marie, job75,
j'ai beau tout essayer; cela ne fonctionne pas: le point reste le point.

VB:

If InStr("-1234567890,", Chr(KeyAscii)) = 0 Or TextBox202.SelStart > 0 Or InStr(TextBox202.Value, ",") <> 0 And Chr(KeyAscii) = "," Then

Sans fichier qui pose problème (sans données confidentielles), je jette l'éponge.

donpopo · 14 Mai 2021

Merci à tous trois,
je ne sais pas ce qu'il s'est passé, mais j'ai fait un copier/coller d'une procédure dans un autre userform et j'ai modifier l'index du textbox en fonction et cela fonctionne.Encore merci et
A+

ChTi160 · 14 Mai 2021

Re
Mdr !
ça fait du bien ! Lol
jean marie

patricktoulon · 14 Mai 2021

bonjour
sans parler de classe tu peux déjà faire une sub générique pour x textboxs

ici les deux textboxs utilisent le même pseudo keypress

VB:

Private Sub texto_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 With ActiveControl
 If KeyAscii = 46 Or KeyAscii = 44 Then KeyAscii = IIf(InStr(.Value, ",") > 0 Or Len(.Value) = 0, 0, 44)
    If InStr(1, "0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
  End With
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
texto_KeyPress KeyAscii
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
texto_KeyPress KeyAscii
End Sub

ChTi160 · 14 Mai 2021

Bonsoir Patrick
va manquer le "-" pour les chiffres négatifs , je crois !
Bonne nuit
jean marie

patricktoulon · 15 Mai 2021

bonjour ChTi160
ben ajoute tout les caractères que tu veux dans le instr

ChTi160 · 15 Mai 2021

Re
Bonsoir Patrick
Oui je sais Lol
Faut aussi remettre le test pour que ce "-" soit positionné en début de saisie !
Bonne fin de soirée
jean marie

XL 2019 Imposer une virgule au lieu d'un point dans textbox; procédure ne fonctionne pas

donpopo

XLDnaute Occasionnel

donpopo

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

donpopo

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

donpopo

XLDnaute Occasionnel

cathodique

XLDnaute Barbatruc

donpopo

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires