Remplacer le point / virgule du * pavé numérique * par un point / point (access XP 2002)
2 réponses
Blaise Cacramp
Bonjour ou bonsoir, selon.
J'ai vu quelques vieilles discussions dans ce forum qui ne me conviennent
pas :
J'ai besoin, dans une zone de texte qui doit accueillir des chiffres,
lettres et signes, que le point / virgule (séparateur décimal à virgule)
devienne un point ET que la "vraie" virgule reste une virgule. Il n'est
donc pas question d'un remplacement de la virgule par un point dans le texte
tapé.
J'ai réfléchi et voici une solution, toute bête, qui fonctionne !.
Private Sub Cmp_Code_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDecimal Then
SendKeys "{BACKSPACE}"
SendKeys "."
End If
End Sub
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
Goupil
Bonjour,
Ta procédure parrait un peut lourde surtout avec les instructions SENKEYS. Peut-être ceci serait plus élégant:
Public Function zz(a As String) As String zz = a If InStr(a, ",") > 0 Then zz = Left(a, InStr(a, ",") - 1) + "." + Mid$(a, InStr(a, ",") + 1) End Function
Goup'
"Blaise Cacramp" a écrit dans le message de news:
Bonjour ou bonsoir, selon.
J'ai vu quelques vieilles discussions dans ce forum qui ne me conviennent pas :
J'ai besoin, dans une zone de texte qui doit accueillir des chiffres, lettres et signes, que le point / virgule (séparateur décimal à virgule) devienne un point ET que la "vraie" virgule reste une virgule. Il n'est donc pas question d'un remplacement de la virgule par un point dans le texte tapé.
J'ai réfléchi et voici une solution, toute bête, qui fonctionne !.
Private Sub Cmp_Code_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDecimal Then SendKeys "{BACKSPACE}" SendKeys "." End If End Sub
Cdt, Blaise ---- ---- ----
Bonjour,
Ta procédure parrait un peut lourde surtout avec les instructions SENKEYS.
Peut-être ceci serait plus élégant:
Public Function zz(a As String) As String
zz = a
If InStr(a, ",") > 0 Then zz = Left(a, InStr(a, ",") - 1) + "." + Mid$(a,
InStr(a, ",") + 1)
End Function
Goup'
"Blaise Cacramp" <Devinez@gmail.com> a écrit dans le message de news:
OcfPHyGNJHA.468@TK2MSFTNGP06.phx.gbl...
Bonjour ou bonsoir, selon.
J'ai vu quelques vieilles discussions dans ce forum qui ne me conviennent
pas :
J'ai besoin, dans une zone de texte qui doit accueillir des chiffres,
lettres et signes, que le point / virgule (séparateur décimal à virgule)
devienne un point ET que la "vraie" virgule reste une virgule. Il n'est
donc pas question d'un remplacement de la virgule par un point dans le
texte tapé.
J'ai réfléchi et voici une solution, toute bête, qui fonctionne !.
Private Sub Cmp_Code_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDecimal Then
SendKeys "{BACKSPACE}"
SendKeys "."
End If
End Sub
Ta procédure parrait un peut lourde surtout avec les instructions SENKEYS. Peut-être ceci serait plus élégant:
Public Function zz(a As String) As String zz = a If InStr(a, ",") > 0 Then zz = Left(a, InStr(a, ",") - 1) + "." + Mid$(a, InStr(a, ",") + 1) End Function
Goup'
"Blaise Cacramp" a écrit dans le message de news:
Bonjour ou bonsoir, selon.
J'ai vu quelques vieilles discussions dans ce forum qui ne me conviennent pas :
J'ai besoin, dans une zone de texte qui doit accueillir des chiffres, lettres et signes, que le point / virgule (séparateur décimal à virgule) devienne un point ET que la "vraie" virgule reste une virgule. Il n'est donc pas question d'un remplacement de la virgule par un point dans le texte tapé.
J'ai réfléchi et voici une solution, toute bête, qui fonctionne !.
Private Sub Cmp_Code_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDecimal Then SendKeys "{BACKSPACE}" SendKeys "." End If End Sub
Cdt, Blaise ---- ---- ----
Blaise Cacramp
Bonjour ou bonsoir, selon.
Et bien non, Goupil (qui est le nom originel de ce qu'on appelle maintenant un renard), c'est très rapide et léger et ta solution, comme mentionnée plus bas ne me convient pas : je veux conserver la possibilité d'avoir une virgule.
Cordialement, Blaise ---- ---- ----
"Goupil" a écrit dans le message de news: 490005b0$0$965$
Bonjour,
Ta procédure parrait un peut lourde surtout avec les instructions SENKEYS. Peut-être ceci serait plus élégant:
Public Function zz(a As String) As String zz = a If InStr(a, ",") > 0 Then zz = Left(a, InStr(a, ",") - 1) + "." + Mid$(a, InStr(a, ",") + 1) End Function
Goup'
"Blaise Cacramp" a écrit dans le message de news:
Bonjour ou bonsoir, selon.
J'ai vu quelques vieilles discussions dans ce forum qui ne me conviennent pas :
J'ai besoin, dans une zone de texte qui doit accueillir des chiffres, lettres et signes, que le point / virgule (séparateur décimal à virgule) devienne un point ET que la "vraie" virgule reste une virgule. Il n'est donc pas question d'un remplacement de la virgule par un point dans le texte tapé.
J'ai réfléchi et voici une solution, toute bête, qui fonctionne !.
Private Sub Cmp_Code_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDecimal Then SendKeys "{BACKSPACE}" SendKeys "." End If End Sub
Cdt, Blaise ---- ---- ----
Bonjour ou bonsoir, selon.
Et bien non, Goupil (qui est le nom originel de ce qu'on appelle maintenant
un renard), c'est très rapide et léger et ta solution, comme mentionnée plus
bas ne me convient pas : je veux conserver la possibilité d'avoir une
virgule.
Cordialement, Blaise
---- ---- ----
"Goupil" <goupil@optojet.fr> a écrit dans le message de news:
490005b0$0$965$ba4acef3@news.orange.fr...
Bonjour,
Ta procédure parrait un peut lourde surtout avec les instructions SENKEYS.
Peut-être ceci serait plus élégant:
Public Function zz(a As String) As String
zz = a
If InStr(a, ",") > 0 Then zz = Left(a, InStr(a, ",") - 1) + "." + Mid$(a,
InStr(a, ",") + 1)
End Function
Goup'
"Blaise Cacramp" <Devinez@gmail.com> a écrit dans le message de news:
OcfPHyGNJHA.468@TK2MSFTNGP06.phx.gbl...
Bonjour ou bonsoir, selon.
J'ai vu quelques vieilles discussions dans ce forum qui ne me conviennent
pas :
J'ai besoin, dans une zone de texte qui doit accueillir des chiffres,
lettres et signes, que le point / virgule (séparateur décimal à virgule)
devienne un point ET que la "vraie" virgule reste une virgule. Il n'est
donc pas question d'un remplacement de la virgule par un point dans le
texte tapé.
J'ai réfléchi et voici une solution, toute bête, qui fonctionne !.
Private Sub Cmp_Code_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDecimal Then
SendKeys "{BACKSPACE}"
SendKeys "."
End If
End Sub
Et bien non, Goupil (qui est le nom originel de ce qu'on appelle maintenant un renard), c'est très rapide et léger et ta solution, comme mentionnée plus bas ne me convient pas : je veux conserver la possibilité d'avoir une virgule.
Cordialement, Blaise ---- ---- ----
"Goupil" a écrit dans le message de news: 490005b0$0$965$
Bonjour,
Ta procédure parrait un peut lourde surtout avec les instructions SENKEYS. Peut-être ceci serait plus élégant:
Public Function zz(a As String) As String zz = a If InStr(a, ",") > 0 Then zz = Left(a, InStr(a, ",") - 1) + "." + Mid$(a, InStr(a, ",") + 1) End Function
Goup'
"Blaise Cacramp" a écrit dans le message de news:
Bonjour ou bonsoir, selon.
J'ai vu quelques vieilles discussions dans ce forum qui ne me conviennent pas :
J'ai besoin, dans une zone de texte qui doit accueillir des chiffres, lettres et signes, que le point / virgule (séparateur décimal à virgule) devienne un point ET que la "vraie" virgule reste une virgule. Il n'est donc pas question d'un remplacement de la virgule par un point dans le texte tapé.
J'ai réfléchi et voici une solution, toute bête, qui fonctionne !.
Private Sub Cmp_Code_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDecimal Then SendKeys "{BACKSPACE}" SendKeys "." End If End Sub
