XL 2016 erreur de format ou de sourcetab ?

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

halecs93

XLDnaute Impliqué
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 ?

erreur.jpg
CORRECT MAIS SANS CASE OPTION.jpg


Un grand merci
 

Pièces jointes

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 ?
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
300
Retour