textbox

[thunder]

Bonjour a tous


Voila j'ai plusieus textbox sur ufm qui s'additionne
et qui donne un resutat dans textbox et cette textbox s'additionne
entre elle, le probleme c'est quand je met des nombres decimals
ca ne marche et jai essayer avec cdbl et val


j'espere que j'ai ete assez clair

ps : en fait je voudrais faire un livre de recette journalier
avec les depence

merci

 

[Creepy]

Heloo le Forum, Thunder,

Esaie ca :

CCur(textbox2.value) & CCur(text3.value) etc... (ccur = convertir currency(monnaie en eanglais)) tu as aussi cint, cdbl, cstr(string) etc...

++

Creepy

 

[thunder]

salut Creepy


ca ne marche pas

je joins mon fichier

peut etre que ce sera plus facile

 

[thunder]

salut Creepy


ca ne marche pas

je joins mon fichier

peut etre que ce sera plus facile

 

[thunder]

un bout du code parce que je n'arrive pas a joindre le fichier

merci d'avance



Private Sub Dat_Change()
Sheets('feuil1').Range('B2').Value = Dat.Value
End Sub


Private Sub Report_Change()
Sheets('feuil1').Range('C18').Value = Report.Value
TotalJ.Value = Val(TotalR.Value) + Val(Report.Value)

End Sub


''''''''''''''''''formule recette''''''''''''''''''''

Private Sub Entree_Change()
Sheets('feuil1').Range('C5').Value = Entree.Value
TotalR.Value = Val(Entree.Value) + Val(Vente.Value) + Val(Vestiaire.Value) + Val(RDisco.Value) + Val(RPub.Value)

End Sub


Private Sub Vente_Change()
Sheets('feuil1').Range('C7').Value = Vente.Value
TotalR.Value = Val(Entree.Value) + Val(Vente.Value) + Val(Vestiaire.Value) + Val(RDisco.Value) + Val(RPub.Value)

End Sub

Private Sub Vestiaire_Change()
Sheets('feuil1').Range('C9').Value = Vestiaire.Value
TotalR.Value = Val(Entree.Value) + Val(Vente.Value) + Val(Vestiaire.Value) + Val(RDisco.Value) + Val(RPub.Value)

End Sub
Private Sub RDisco_Change()
Sheets('feuil1').Range('C11').Value = RDisco.Value
TotalR.Value = Val(Entree.Value) + Val(Vente.Value) + Val(Vestiaire.Value) + Val(RDisco.Value) + Val(RPub.Value)

End Sub

Private Sub RPub_Change()
Sheets('feuil1').Range('C13').Value = RPub.Value
TotalR.Value = Val(Entree.Value) + Val(Vente.Value) + Val(Vestiaire.Value) + Val(RDisco.Value) + Val(RPub.Value)

End Sub

''''''''''''Formule pour les depence''''''''''''''''''''''''''''''''''''''''

Private Sub CbEntree_Change()
Sheets('feuil1').Range('F5').Value = CbEntree.Value
TotalDepence.Value = Val(CbEntree.Value) + Val(CbEntree2.Value) + Val(CbDisco.Value) + Val(CbDisco2.Value) + Val(CbPub.Value) + Val(CbPub2.Value) + Val(Banque.Value) + Val(divers.Value)
End Sub

Private Sub CbEntree2_Change()
Sheets('feuil1').Range('F7').Value = CbEntree2.Value
TotalDepence.Value = Val(CbEntree.Value) + Val(CbEntree2.Value) + Val(CbDisco.Value) + Val(CbDisco2.Value) + Val(CbPub.Value) + Val(CbPub2.Value) + Val(Banque.Value) + Val(divers.Value)

End Sub

Private Sub cbDisco_Change()
Sheets('feuil1').Range('F9').Value = CbDisco.Value
TotalDepence.Value = Val(CbEntree.Value) + Val(CbEntree2.Value) + Val(CbDisco.Value) + Val(CbDisco2.Value) + Val(CbPub.Value) + Val(CbPub2.Value) + Val(Banque.Value) + Val(divers.Value)

End Sub

Private Sub cbDisco2_Change()
Sheets('feuil1').Range('F11').Value = CbDisco2.Value
TotalDepence.Value = Val(CbEntree.Value) + Val(CbEntree2.Value) + Val(CbDisco.Value) + Val(CbDisco2.Value) + Val(CbPub.Value) + Val(CbPub2.Value) + Val(Banque.Value) + Val(divers.Value)

End Sub

Private Sub cbPub_Change()
Sheets('feuil1').Range('F13').Value = CbPub.Value
TotalDepence.Value = Val(CbEntree.Value) + Val(CbEntree2.Value) + Val(CbDisco.Value) + Val(CbDisco2.Value) + Val(CbPub.Value) + Val(CbPub2.Value) + Val(Banque.Value) + Val(divers.Value)

End Sub

Private Sub cbPub2_Change()
Sheets('feuil1').Range('F15').Value = CbPub2.Value
TotalDepence.Value = Val(CbEntree.Value) + Val(CbEntree2.Value) + Val(CbDisco.Value) + Val(CbDisco2.Value) + Val(CbPub.Value) + Val(CbPub2.Value) + Val(Banque.Value) + Val(divers.Value)

End Sub

Private Sub Banque_Change()
Sheets('feuil1').Range('F17').Value = Banque.Value
TotalDepence.Value = Val(CbEntree.Value) + Val(CbEntree2.Value) + Val(CbDisco.Value) + Val(CbDisco2.Value) + Val(CbPub.Value) + Val(CbPub2.Value) + Val(Banque.Value) + Val(divers.Value)

End Sub
Private Sub Divers_Change()
Sheets('feuil1').Range('F19').Value = divers.Value
TotalDepence.Value = Val(CbEntree.Value) + Val(CbEntree2.Value) + Val(CbDisco.Value) + Val(CbDisco2.Value) + Val(CbPub.Value) + Val(CbPub2.Value) + Val(Banque.Value) + Val(divers.Value)

End Sub

''''''''''''''''''''total depence'''''''''''''''''''''''''''''''''''''

Private Sub TotalDepence_Change()
TotalD = TotalDepence.Value
Sheets('feuil1').Range('F22,C22').Value = TotalDepence.Value

End Sub

'''''''''''''''''''''total recette'''''''''''''''''''''''
'Private Sub TotalR_Change()

'Sheets('feuil1').Range('C16').Value = TotalR.Value
'TotalJ.Value = val(TotalR.Value) + val(Report.Value)
'End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''total recette + report''''''''''''''''''''

'Private Sub TotalJ_Change()

'Sheets('feuil1').Range('C20').Value = TotalR.Value
'TOTAL.Value = val(TotalJ.Value) - val(TotalD.Value)

'End Sub

Private Sub TOTAL_enter()
TOTAL.Value = Val(TotalJ.Value) - Val(TotalD.Value)
Sheets('feuil1').Range('C24').Value = TOTAL.Value
'TOTAL.Value = Format(TOTAL.Value, '#,##0.00 [$F-40C]')
End Sub

Private Sub TotalJ_enter()
Sheets('feuil1').Range('C16').Value = TotalR.Value
TotalJ.Value = Val(TotalR.Value) + Val(Report.Value)
End Sub

 

[thunder]

thunder écrit:

salut Creepy


ca ne marche pas

je joins mon fichier

peut etre que ce sera plus facile

 

[thunder]

thunder écrit:

thunder écrit:

salut Creepy


ca ne marche pas

je joins mon fichier

peut etre que ce sera plus facile [file name=recettes.zip size=20809]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/recettes.zip[/file]

 

[Eric C]

Bonjoir le forum
Bonjoir Thunder, bonjoir Creepy

Ci joint une tite démo de ce que Creepy te propose.

Bonne soirée à toutes & à tous [file name=Addition.zip size=6206]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Addition.zip[/file]

 

[thunder]

bonjour eric c

la somme de 2 textbox donne un resultat et ce resultat s'ajoute à une autre textbox dont le resultat a ete obtenu par la somme de 2 autre textbox qui ne marche pas

[file]

 

[thunder]

bonjour eric c

la somme de 2 textbox donne un resultat et ce resultat s'ajoute à une autre textbox dont le resultat a ete obtenu par la somme de 2 autre textbox qui ne marche pas

[file]

 

[Eric C]

Re le forum
Re bonjour Creepy, re bonjour thunder

Je n'ai pas repris ton code car il me faudrait décrypter tes TextBoxs (renommés) ... et je n'ai pas le temps. Donc au vu de ta réponse, une nouvelle démo qui fonctionne impec sous XL2000.
Bonne journée à toutes & à tous

Sorry pour hier : je te joints la démo [file name=Addition_20050811091635.zip size=6771]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Addition_20050811091635.zip[/file]

Message édité par: Eric C, à: 11/08/2005 09:16

 

[thunder]

merci eric

j'attend ta demo avec impatience