XL 2016 erreur de format ou de sourcetab ?

Bonjour,
Ton problème vient du point comme séparateur décimal de la colonne SOMME

M12 à dit:

Bonjour,
Ton problème vient du point comme séparateur décimal de la colonne SOMME

Cliquez pour agrandir...

En effet, il me semble bien que cela vienne de là. Mais je n'arrive pas à comprendre et à rectifier.

Je lis le même code sur les deux fichiers, à savoir :

Private Sub ctrl_Somme_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'que numéric et 1 seule virgule
If KeyAscii = 44 Then KeyAscii = 46
If KeyAscii = 46 And Not TextBox6 Like "*.*" Then Exit Sub
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Sur l'un, le format monétaire est respecté et pas sur l'autre...

Peut-être dois-je modifier autre chose ?

Re,
Modifie cette macro par celle-ci

M12 à dit:

Re,
Modifie cette macro par celle-ci

VB:

Private Sub ctrl_Somme_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
    If KeyAscii = 46 Then KeyAscii = 44
    If KeyAscii = 44 And Not Ctrl_Somme Like "*.*" Then Exit Sub
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Cliquez pour agrandir...

En effet, cela fonctionne. Merci beaucoup