Discussion :

[orcinus]

bonjour,
je voudrais juste savoir si il est possible de remplacer la virgule par le point du clavier numérique.
J'ai essayer plusieurs chose trouver à droit et à gauche mais sa ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
'procédure permettant le formatage automatique en euros
Private Sub tfacturation_AfterUpdate()
With Tfacturation
If IsNumeric(.Value) Then
.Value = Format(.Value, "# ##0.00 €")
.ForeColor = IIf(.Value < 0, vbRed, vbBlack)
Else
MsgBox "Erreur de saisie", 64, "la saisie doit être numérique"
End If
End With

[unparia]

Bonjour
Ce n'est pas la donnée, qu'il faut formater, mais la cellule qui la reçoit.
Voilà
Et ta question (VBA) relève de la section VBA et non de la section Excel
Voilà également

[Pierre Fauconnier]

Salut.

Après saisie, tu peux utiliser ceci:

Code :

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

1
2
3
Private Sub tFacturation_AfterUpdate()
  tFacturation = Replace(tFacturation.Value, ",", ".")
End Sub

[orcinus]

Re
merci pour vos réponses.
C'est par souci de commodité que je souhaiterais avoir possibilité de taper le point du clavier numérique de mon ordit portable à la place de virgule .
Et pour le placement de ma question, je ferais attention la prochaine fois.

[orcinus]

Salut.

Après saisie, tu peux utiliser ceci:

Code :

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

1
2
3
Private Sub tFacturation_AfterUpdate()
  tFacturation = Replace(tFacturation.Value, ",", ".")
End Sub

merci pour la réponse mais désolé je ne comprend pas.
C'est lors de la frappe que je souhaite mettre le point au lieu de la virgule.
Pouvez-vous m'éclairer la dessus par rapport à mon code actuel.
Merci d'avance

[unparia]

Pour substituer un "." à la "," en cours de frappe --->>

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If KeyAscii = Asc(",") Then KeyAscii = Asc(".")
End Sub

Et si c'est le contraire, que tu veux faire (frapper le "." et obtenir une ",") --->>

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub

je ne traite dans ces exemples que la substitution. A toi de mettre tes autres conditions

[Pierre Fauconnier]

Pour substituer un "." à la "," en cours de frappe --->>[...]

Parfois, je me demande à quoi cela sert qu'une solution, valide qui plus est, soit postée, puisqu'il est manifeste qu'elle n'est pas testée par le demandeur...

Orcinus, teste la solution qui t'a été proposée par unparia, elle est fonctionnelle et te voilà tiré d'affaire.

Après, même si tu es non-informaticien, tu peux te documenter dessus (et sur les solutions proposées pour tes autres questions) pour devenir moins dépendant du forum par la suite... (Mais au moins, teste les solutions proposées... )

[kiki29]

Salut, pour info : Obliger une saisie numérique dans une TextBox

[Invité]

Bonjour,

À toutes fins utiles (le contexte n'est pas obligatoirement le même), j'ai ce code dans un formulaire :

Private Sub Tb_val_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Tb_val = nom de la TextBox
If InStr("1234567890.", Chr(KeyAscii)) = 0 Or InStr(Tb_val.Value, ".") <> 0 And _
Chr(KeyAscii) = "." Then
MsgBox "Vous avez tapé " & "'" & Chr(KeyAscii) & "'" & " : les caractères valables sont les" _
& " chiffres et si décimale(s), un seul point !"
KeyAscii = 0
End If

End Sub

Private Sub Tb_val_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Tb_val.Value <> "" Then
valt = Tb_val.Value
tnum = Replace(tnum, ",", ".")
End If
End sub

[orcinus]

re,
désolé pour l'absence de balises,
voila j'ai essayer d'adapter avec ce que vous m'avez indiqué, de différentes façon, mais sa ne fonctionne pas.
Ci-dessous le dernier code essayé mais la sa m'indique une erreur de compilation et de syntaxe.
Je suis pas informaticien. Je regarde ,j'essaye de comprendre, j'adapte mais des fois sa veux rien savoir.
Encore merci pour votre attention

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
'procédure permettant le formatage automatique en euros
Private Sub tFacturation_AfterUpdate()
With Tfacturation
If IsNumeric(.Value) Then
.Value = Format(.Value, "# ##0.00 €")
.ForeColor = IIf(.Value < 0, vbRed, vbBlack)
Else
MsgBox "Erreur de saisie", 64, "la saisie doit être numérique"
End If
End With
'procédure permettant d'autoriser que des chiffres et un point
If InStr("1234567890.", Chr(KeyAscii)) = 0 Or InStr(Tfacturation_val.Value, ".") <> 0 And
Chr(KeyAscii) = "." Then
KeyAscii = 0
End If
End Sub

[unparia]

Ouais...
Les rudiments (au moins ceux-là) sont à apprendre avant de commencer à développer et il est évident que tu ne les as pas encore acquis.
Le contrôle de saisie en cours de saisie est une chose
La vérification de cohérence en fin de saisie en est une autre.
La valeur de Keyascii est inconnue dans l'évènement AfterUpdate. On ne peut tout mélanger ainsi.
Ne mets s'il te plait pas la charrue avant les boeufs. Commence par l'acquisition des rudiments, si tu veux développer. Dans le cas contraire, tu seras TOUJOURS dépendant, y compris pour les choses les plus simples, de la bienveillance de Pierre, Paul ou Jacques (qui se lasseront vite, crois-moi).

[Pierre Fauconnier]

Tu donnais le code sur AfterUpdate, donc j'en ai conclus que tu voulais transformer après saisie.

Pour la transformation durant saisie, tu pourrais utiliser le code suivant. J'ai trouvé la valeur 188 par test, car je pense qu'il n'existe pas de constante vbKey pour la virgule.

Code :

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

1
2
3
4
5
6
Private Sub tFacturation_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Select Case KeyCode
    Case 188
      tFacturation.Text = Replace(tFacturation.Text, ",", ".")
  End Select
End Sub

EDIT: solution de Jacques plus simple... Je cherchais midi à quatorze heures...