XL 2016 erreur de format ou de sourcetab ?

[halecs93]

Bonjour,

Grâce aux nombreuses aides du forum, me voici avec deux versions (presque identiques) de mon fichier. Mais l'un me renvoie des erreurs et l'autre pas. Est-ce dû au format monétaire absent ou bien à une mauvaise configuration des sourcetab (fichier 'erreur') ou encore à autre chose ?

Un grand merci

 

[M12]

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

 

[halecs93]

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

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 ?

 

[M12]

Re,
Modifie cette macro par celle-ci

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

 

[halecs93]

Re,
Modifie cette macro par celle-ci

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

En effet, cela fonctionne. Merci beaucoup