Addition 3 textbox

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
ça ne fonctionne pas je vous mets le classeur en exemple vous vous rendrez mieux compte
https://www.cjoint.com/?DFbquAFdPtr
merci
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
re,

remplace les 4 lignes avec les IF par
Me.p_stoc = Val(qtte) + Val(compte)

par contre revoir les formats au moment de l'inscription dans la BDD, ça ne fonctionne pas correctement pour l'instant

Cdlmnt
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
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
0