Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Probleme virgule et point du clavier numérique

Probleme virgule et point du clavier numérique

4 réponses
Avatar
Steph
Bonjour,

J'ai un problème dans un textbox à cause du point sur le clavier numérique,
Est-il possible de forcer la virgule à s'afficher au lieu du point en
poussant sur le bouton (.) du clavier numérique ?
(Sans reconfigurer les "Options régionales.." de Windows)

Merci de votre aide,

Steph
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pounet95
Bonjour,
Voici ce que je fais pour contourner ce problème :
le textbox s'appelle txt_Montant

Private Sub txt_Montant_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
'0 à 9 OK
Case 44, 46
'virgule remplacée par point
KeyAscii = 46
Case Else
KeyAscii = Asc(Chr(8))
MsgBox "Caractère non autorisé !"
End Select
End Sub



--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Steph" a écrit dans le message de news:
%
Bonjour,

J'ai un problème dans un textbox à cause du point sur le clavier
numérique,
Est-il possible de forcer la virgule à s'afficher au lieu du point en
poussant sur le bouton (.) du clavier numérique ?
(Sans reconfigurer les "Options régionales.." de Windows)

Merci de votre aide,

Steph




Avatar
Steph
Merci


"Pounet95" a écrit dans le message de news:

Bonjour,
Voici ce que je fais pour contourner ce problème :
le textbox s'appelle txt_Montant

Private Sub txt_Montant_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
'0 à 9 OK
Case 44, 46
'virgule remplacée par point
KeyAscii = 46
Case Else
KeyAscii = Asc(Chr(8))
MsgBox "Caractère non autorisé !"
End Select
End Sub



--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Steph" a écrit dans le message de
news: %
Bonjour,

J'ai un problème dans un textbox à cause du point sur le clavier
numérique,
Est-il possible de forcer la virgule à s'afficher au lieu du point en
poussant sur le bouton (.) du clavier numérique ?
(Sans reconfigurer les "Options régionales.." de Windows)

Merci de votre aide,

Steph







Avatar
Herdet
Bonsoir Steph,
La solution la plus efficace est de passer par un module de classe pour ce
remplacement de point par virgule dans les textbox.
Une solution de Laurent Longre dispo sur Excelabo
http://www.excelabo.net/xl/controles.php#moduleclasse

Cordialement
Robert Dezan

"Steph" a écrit dans le message de news:
#
Bonjour,

J'ai un problème dans un textbox à cause du point sur le clavier
numérique,

Est-il possible de forcer la virgule à s'afficher au lieu du point en
poussant sur le bouton (.) du clavier numérique ?
(Sans reconfigurer les "Options régionales.." de Windows)

Merci de votre aide,

Steph




Avatar
Pounet95
Bonsoir,
Merci de l'info.
Je ne connaissais pas, n'ayant jamais ( osé ) utiliser les modules de classe

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Herdet" a écrit dans le message de news:
%
Bonsoir Steph,
La solution la plus efficace est de passer par un module de classe pour ce
remplacement de point par virgule dans les textbox.
Une solution de Laurent Longre dispo sur Excelabo
http://www.excelabo.net/xl/controles.php#moduleclasse

Cordialement
Robert Dezan

"Steph" a écrit dans le message de
news:
#
Bonjour,

J'ai un problème dans un textbox à cause du point sur le clavier
numérique,

Est-il possible de forcer la virgule à s'afficher au lieu du point en
poussant sur le bouton (.) du clavier numérique ?
(Sans reconfigurer les "Options régionales.." de Windows)

Merci de votre aide,

Steph