Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

textbox

  • Initiateur de la discussion thunder
  • Date de début
T

thunder

Guest
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
 
Trier par date Trier par votes
C

Creepy

XLDnaute Accro
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
 
Vote positif 0 Vote négatif
T

thunder

Guest
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
 
Vote positif 0 Vote négatif
T

thunder

Guest
thunder écrit:
 

Pièces jointes

  • recettes.zip
    20.3 KB · Affichages: 19
  • recettes.zip
    20.3 KB · Affichages: 17
  • recettes.zip
    20.3 KB · Affichages: 17
Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc
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]
 

Pièces jointes

  • Addition.zip
    6.1 KB · Affichages: 18
  • Addition.zip
    6.1 KB · Affichages: 20
  • Addition.zip
    6.1 KB · Affichages: 17
Vote positif 0 Vote négatif
T

thunder

Guest
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]
 
Vote positif 0 Vote négatif
T

thunder

Guest
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]
 
Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc
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
 

Pièces jointes

  • Addition_20050811091635.zip
    6.6 KB · Affichages: 17
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

I
  • Question
Problème d'addition dans un TextBox
Réponses
6
Affichages
1 K
INFINITY100
I
N
  • Question
XL 2010 Echelle graph variable autours de la moyenne des valeurs de la serie
Réponses
1
Affichages
702
Niouf
N
D
  • Question
probleme avec recherchev
Réponses
5
Affichages
37 K
dd01
D
  • Question
textbox vs decimals
Réponses
1
Affichages
901
Dennnisss
N
  • Question
Comment ajouter des infos d'une user form sur une ligne "libre"
Réponses
5
Affichages
1 K
nissart
N
R
  • Question
Arrondi dans une formule
Réponses
2
Affichages
800
Roquetto
R
S
  • Question
Remplir un Bordereau automatiquement suite a des saisie sur plusieures feuilles
Réponses
2
Affichages
2 K
sp3ktroom
S
P
  • Question
Condition de classement
Réponses
3
Affichages
730
Dranreb
L
  • Question
Calcul avec VBA et prise en compte Weekend et jour ferier
Réponses
1
Affichages
1 K
laskar
L
W
  • Question
Remplissage auto de tableau + week end et jour ferie
Réponses
0
Affichages
1 K
willdolive
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…