Addition 3 textbox
Résolu
Bonjour,
j ai encore un soucis
je n'arrive pas a additionner 3 textbox qui sont des nombres dont voici la macro
Private Sub compte_Change()
Me.p_stoc = CSng(qtte) + CSng(compte)
End Sub
elle fonctionne bien si les 3 cellules sont pleines
du moment que il y en a une de vide la macro se met en "erreur d'execution 13 imcompatibilité de type"
j'ai essayé de mettre de la tourner dans tous les sens je bloque
merci de votre aide
--
Slts A bientôt
Surplus
j ai encore un soucis
je n'arrive pas a additionner 3 textbox qui sont des nombres dont voici la macro
Private Sub compte_Change()
Me.p_stoc = CSng(qtte) + CSng(compte)
End Sub
elle fonctionne bien si les 3 cellules sont pleines
du moment que il y en a une de vide la macro se met en "erreur d'execution 13 imcompatibilité de type"
j'ai essayé de mettre de la tourner dans tous les sens je bloque
merci de votre aide
--
Slts A bientôt
Surplus
3 réponses
-
Bonjour
Et si au lieu de vide tu mets 0 aux valeurs, l'erreur se produit ?
Sinon tu peux sans doute résoudre le cas avec un IF
IF CSng(qtte)="" AND CSng(compte) ="" THEN Me.p_stoc=0
ELSE IF CSng(qtte)="" THEN Me.p_stoc=CSng(compte)
ELSE IF CSng(compte)="" THEN Me.p_stoc=CSng(qtte)
ELSE Me.p_stoc = CSng(qtte) + CSng(compte)
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein -
bonjour
ça ne fonctionne pas je vous mets le classeur en exemple vous vous rendrez mieux compte
https://www.cjoint.com/?DFbquAFdPtr
merci -
Bonjour
c'est bon ça fonctionne comme cela
pour les formats je dois revoir ça
j avais fait le tableau vite fait pour l exemple
merci
