[Résolu] Incompatibilité de type erreur 13 ?

[Cougar]

Bonjour le forum,

Comment corriger cette erreur. J'ai essayé de changé .Value par .Text et vice versa sans succés.

Voir le fichier joint.

Merci

 

[camarchepas]

Re : Incompatibilité de type erreur 13 ?

Bonjour,

Où ce situe l'anomalie ,

et comment la provoque -t-o n ??

Pour le moment je n'est rien constaté

 

[Cougar]

Re : Incompatibilité de type erreur 13 ?

Bonjour camarchepas,

Si tu choisis un produit avec le combobox et que tu entres une valeur sous quantité caisse, l'erreur apparait.

Merci

 

[Paf]

Re : Incompatibilité de type erreur 13 ?

Bonjour camarchepas, Cougar

quand l'erreur survient si on clique sur <déboguage> la ligne de code en cause est surlignée en jaune !

Dans F.Cells(L, 3).Value = Cells(L, 2) * Val(Me("TextBox" & 30 + I)), si l'on est pas sur la feuille "Chèvre", Cells(L, 2) 'ramène' du texte, d'où le message d'erreur. Il faut donc référencer avec la bonne feuille => F.Cells(L, 2)

Bonne suite

 

[Cougar]

Re : Incompatibilité de type erreur 13 ?

Bonjour Paf,

Pourtant la feuille est bien référencée : Set F = Worksheets("Chèvre") ???

Pour les autres, bien voir le problème, de l'onglet Dimanche1, il faut cliquer sur le bouton.

Merci

 

[Dranreb]

Re : Incompatibilité de type erreur 13 ?

Bonsoir.
Faire aussi F.Cells(L, 2) * etc. Voir poste #6 et #9 de cette discussion

 

[Cougar]

Re : Incompatibilité de type erreur 13 ?

Bonjour à tous,

Mal compris la correction. C'est fait et fonctionnel.

Merci