erreur 13

[hdlm]

bonsoir a toutes et tous

Je planche depuis quelques heures sur un petit probléme tres agacant .
Voulant mettre à jour la valeur d'une celulle avec une valeur provenant d'une textbox, je me trouve avec un message d'erreur 13 (incompatiblilté de type).
pour info voici la ligne en cause:
Dim EncaisseCell As Range
.....
....
EncaisseCell.Value = EncaisseCell.value + TextBox5.value ( une info , il n' y a pas d'erreur lorsque TextBox5.Value n' a pas de décimale). EncaisseCell.value et TextBox5.Value représente des montants.

Merci du Coup de main

Hdlm

 

[Excel-lent]

Re : erreur 13

Bonsoir et bienvenu sur le forum Hdlm,

Essaye l'un des deux codes ci-dessous :

EncaisseCell.Value = EncaisseCell.value + CByte(TextBox5).value
ou
EncaisseCell.Value = EncaisseCell.value + CByte(TextBox5)

Bonne fin de WE

 

[hdlm]

Re : erreur 13

Bonsoir et bienvenu sur le forum Hdlm,

Essaye l'un des deux codes ci-dessous :

EncaisseCell.Value = EncaisseCell.value + CByte(TextBox5).value
ou
EncaisseCell.Value = EncaisseCell.value + CByte(TextBox5)

Bonne fin de WE

Merci de répondre , mais ça ne fonctionne pas , les deux valeurs représentent des montants ,donc avec possibilité de centimes.de plus j 'avais essayé la conversion en Double ou Curency, mais rien de probant.

 

[kjin]

Re : erreur 13

Bonsoir,
Essaies de convertir tes valeurs au format Double (sans savoir ce que contient EncaisseCell) pour les additionner ensuite

EncaisseCell= Cdbl(EncaisseCell) + Cdbl(TextBox5)

A+
kjin

 

[Excel-lent]

Re : erreur 13

(...)

réponse erronée

 

[hdlm]

Re : erreur 13

Bonsoir,
Essaies de convertir tes valeurs au format Double (sans savoir ce que contient EncaisseCell) pour les additionner ensuite

EncaisseCell= Cdbl(EncaisseCell) + Cdbl(TextBox5)

A+
kjin

Bonjour Kjin
Merci aussi de ta réponse , mais ca ne fonctionne toujours pas. En revanche en codant ce qui suit cela fonctionne , mais c est un peu lourd .Il doit avoir une solution avec les instructions de conversion.Ou si un internaute peut comprendre pourquoi ca plante, j'aimerais bien comprendre aussi.
Merci d'avance

Voici les lignes qui fonctionnent.
330 AncienEncaisseCell = EncaisseCell
340 EncaisseCell = TextBox5.Value
350 newencaisse = AncienEncaisseCell + EncaisseCell
360 EncaisseCell = newencaisse