Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion hdlm
  • Date de début Date de début

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 !

H

hdlm

Guest
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
 
Re : erreur 13

Bonsoir et bienvenu sur le forum Hdlm,

Essaye l'un des deux codes ci-dessous :

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

Bonne fin de WE
 
Re : erreur 13


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.
 
Re : erreur 13

Bonsoir,
Essaies de convertir tes valeurs au format Double (sans savoir ce que contient EncaisseCell) pour les additionner ensuite
Code:
EncaisseCell= Cdbl(EncaisseCell) + Cdbl(TextBox5)
A+
kjin
 
Re : erreur 13

Bonsoir,
Essaies de convertir tes valeurs au format Double (sans savoir ce que contient EncaisseCell) pour les additionner ensuite
Code:
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
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
Réponses
13
Affichages
2 K
Stedemart
S
N
Réponses
5
Affichages
3 K
Nicocotte125
N
S
Réponses
9
Affichages
2 K
M
Réponses
20
Affichages
3 K
massol
M
H
Réponses
15
Affichages
3 K
H
S
Réponses
28
Affichages
6 K
S
L
Réponses
7
Affichages
1 K
G
Réponses
2
Affichages
1 K
Grankake
G
E
Réponses
0
Affichages
1 K
earxcurae
E
Z
Réponses
3
Affichages
1 K
G
P
Réponses
2
Affichages
2 K
Piping uP
P
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…