XL 2010 Substituer touche point en touche virgule

[cathodique]

Bonjour,

Mes recherches m'ont aboutir à ce code (de Fanch) pour une textbox

Private Sub TextBoxREch_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'KeyAscii = 46 ----> virgule (,) et KeyAscii = 44 ----> point (.)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Je suis bloqué pour adapter ce code pour une feuille excel.
Mon séparateur de décimaux est la virgule. Je n'ai pas de pavé numérique.
Je me mets donc mode majuscule pour saisir les chiffres et utilise la touche Shift pour la virgule.
Pas très pratique, je voudrais un code pour transformer la pression du point en virgule. Ceci n'agissant qu'en colonne B à partir de la ligne 6.

Ci-joint un fichier pour test.

En vous remerciant par avance.

 

[chris]

Bonjour

Utiliser Excel sans pavé numérique demande une sacré dose de masochisme

Tu as des pavés numériques à partir de 10 € à brancher en USB...

 

[Lolote83]

Bonjour Cathodique.
Je ne sais pas si cela est faisable directement sur une feuille XL.
A mon sens, il n'existe pas d’événement équivalent à "KeyPress" directement sur une feuille.
La seule possibilité est un événement "change" sur une cellule mais c'est la validation "ENTER" ou autre qui déclenche cet événement. Donc je ne vois pas de solution.
Mais cela m'interresse et je vais donc suivre cette discussion.
Courage
@+ Lolote83

 

[cathodique]

J'ai trouvé mon bonheur. Merci.

@chris : Je ne suis pas radin à ce point. En réalité, ce n'est pas pour moi mais pour un voisin. Vu sa situation, tu m'inspires pour faire une bonne action. Je vais offrir un pavé numérique.

@Lolote83 : En effet, il n'y a pas d'évènement Keypress pour une feuille et c'est ce qui m'a bloqué. Merci.

La solution est la suivante changer les paramètres à l'ouverture du fichier.

Private Sub Workbook_Open()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With
end sub

 

[chris]

RE

Je ne suis pas radin à ce point.

je ne pensais pas à cela mais des fois, on n'y pense pas au pavé séparé...

 

[cathodique]

RE

je ne pensais pas à cela mais des fois, on n'y pense pas au pavé séparé...

T'inquiètes pas, j'ai pris ça du bon côté (d'où mon clin d’œil).
En effet, des fois on n'y pense pas mais ça rend service.