Coucou
Laeti,
Jean-Marie,
Alain,
Rhodan,
Vériland
G'claire...
Dans l'ordre d'apparition inverse à l'écran
Et oui un record de solutions... En voici une autre, plus spécifique, mais c'est pour compléter ce fil dans l'histoire...
Alors pour les UserForms et plus particulièrement
TextBox de saisie... Si on est en clavier FR, le point du pavé numérique fait des siennes... (N'est-ce pas Vincent !!!) Voici la méthode :
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub
Et puis encore un autre truc trouvé aussi un jour de surf :
Sub PointOn()
Application.AutoCorrect.AddReplacement What:=".", Replacement:=","
End Sub
Sub PointOff()
Application.AutoCorrect.DeleteReplacement What:="."
End Sub
Voilà G'Claire, THe XLD's Guiness Man !!!
Bonne Journée à tous et toutes
@+Thierry