-------------------------------
Réponse au message :
-------------------------------
> Private Sub Text1_LostFocus()
Text1.Text = PointVirgule(Text1.Text)
End Sub
Function PointVirgule(StrDonnees As String) As String
Pointeur = InStr(StrDonnees, ".")
If Pointeur > 0 Then
PointVirgule = Left$(StrDonnees, Pointeur - 1) & "," & Right$(StrDonnees, Len(StrDonnees) - Pointeur)
Else
PointVirgule = StrDonnees
End If
End Function
> ----------------------
> He bien écoute ca marche tre bien j'ai testé mais essai d'enlever la propriété index a ton composant c'est peu etre ca qui bug...
>
>
>
>
>
[Laxis]WhiteDwarf
> ----------------------
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour à tous...
> >
> > J'ai toujours le problème pour que lorsque l'utilisateur utilise le point, celui ci devrait etre comme une virgule
> >
> > J'utilise cette ligne de code
> >
> > Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
> > If KeyAscii = 46 Then
> > KeyAscii = 44 ' remplace le point par la virgule
> > End If
> > End Sub
> >
> > Cependant, le programme plante toujours...
> >
> > Je suis débutant et, selon moi, je doit faire un erreur stupide de ma part... mais j ene vois pas où...
> >
> > Si quelque'un peux m'aider....
> >
> > Merci à l'avance...
>