OVH Cloud OVH Cloud

remplacer le point du clavier numérique

1 réponse
Avatar
msillienne
"Remplacer le point du clavier num=E9rique par une virgule=20
dans une cellule en excel"

bonjour,=20
je vais poster ce mm message dans la rubrique vb6 car mon=20
porbleme est le suivant.
j'utilise une spreadsheet (feuille excel) que je met dans=20
un useform, mon probleme et que je voudrais que quand mon=20
utilisateur met un point =E0 la place d'une virgule je=20
transforme ce point en virgule avec le keyasccii.
je sais le faire sur un textBox mais pas dans une cellule=20
excel.
pouvez vous m'aider svp=20
merci

1 réponse

Avatar
Benead
Bonjour Msillienne,

Je ne sais pas si cela peux t'aider, mais le remplacement de texte dans une cellule d'Excel peut se faire de cette façon :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count = 1 Then
Target = WorksheetFunction.Substitute(Target.Text, ".", ",")
End If
End Sub

A+
Benead
XL97


msillienne a écrit:
"Remplacer le point du clavier numérique par une virgule
dans une cellule en excel"

bonjour,
je vais poster ce mm message dans la rubrique vb6 car mon
porbleme est le suivant.
j'utilise une spreadsheet (feuille excel) que je met dans
un useform, mon probleme et que je voudrais que quand mon
utilisateur met un point à la place d'une virgule je
transforme ce point en virgule avec le keyasccii.
je sais le faire sur un textBox mais pas dans une cellule
excel.
pouvez vous m'aider svp
merci