Remplacer point par virgule dans usf

[christian.bedere]

Bonsoir,
Est il possible, dans la saisie d'un userform de remplacer automatiquement les points par des virgules afin de faciliter la saisie sur le pavé numérique ?
Merci pour votre aide

 

[Bernard_XLD]

Bonjour christian, le forum

voici un petit exemple sur une textbox

 Private Sub TextBox1_Change()
With Me.TextBox1
    If Not (IsNumeric(.Value)) Then
            If Right(.Value, 1) = '.' Then .Value = Left(.Value, Len(.Value) - 1) & ','
    End If
End Sub

Cordialement, A+

 

[christian.bedere]

Bonsoir Yeahou !
Merci pour votre grande aide, tout fonctionne !!
Merci

 

[Robert]

Bonjour Christian, bonjour Yeahou, bonjour le forum,

Je ne sais plus à quel illustre de ce forum je dois ce plan... mais voici une autre méthode :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

 

[Bernard_XLD]

Bonjour Christian, Robert, le forum

Voici l'astuce de MDF sur une démonstration de module de classe. Ce code original permet de la déclarer pour toute les texbox d'un projet, pratique lorsqu'on en a beaucoup.
à placer dans un module de classe

Option Explicit
'--------------------------------
'   myDearFriend! - 30/12/2004
'--------------------------------
Public WithEvents GroupTxt As MSForms.TextBox

Private Sub GroupTxt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = IIf(KeyAscii = 46, 44, KeyAscii)
End Sub

Cordialement, A+