Remplacer point par virgule dans usf

christian.bedere · 16 Juin 2005

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 · 17 Juin 2005

Bonjour christian, le forum

voici un petit exemple sur une textbox

Code:

 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 · 17 Juin 2005

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

Robert · 17 Juin 2005

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 · 17 Juin 2005

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

Code:

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+

Remplacer point par virgule dans usf

christian.bedere

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

christian.bedere

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires