Addition , Devision dans plusieurs USF

job75

XLDnaute Barbatruc

• 5 Mai 2015

• #16

Re : Addition , Devision dans plusieurs USF

Bonjour tatiak, le fil,

Ou simplement comme je l'ai fait au post #9 :

Code:

sep = Mid(0.1, 2, 1)

A+

 

Vote positif 0 Vote négatif

Marti Marti

XLDnaute Occasionnel

• 5 Mai 2015

• #17

Re : Addition , Devision dans plusieurs USF

Bonjour .. Bravo LAETITIA
genial et excellent resultat de ta part .. je suis tres heureux de ce magnifique resultat .. grace a toi .. mille fois merci
j'ai une remarque LAETITIA est ce qu'on peut faire le resultat d'une textbox n'importe quel textbox par exemple ici textbox 5 comme le resultat d'une calculatrice .. dans ce classeur j'ai trouve dans un simple exemple le resultat dans textbox5 ( 1.31 ) j'ai fais le calcul avec calculatrice j'ai trouve ( 1.3000....) est ce qu'on peut faire le resultat comme ceci (1.30).
merci d'avance
cordialement
Marti Marti

 

Dernière édition: 5 Mai 2015

Vote positif 0 Vote négatif

Marti Marti

XLDnaute Occasionnel

• 5 Mai 2015

• #18

Re : Addition , Devision dans plusieurs USF

Bonjour TATIAK..
merci pour ton genial passage ..
cordialement
Marti Marti

 

Vote positif 0 Vote négatif

Marti Marti

XLDnaute Occasionnel

• 5 Mai 2015

• #19

Re : Addition , Devision dans plusieurs USF

Bonjour JOB75 ..
mille fois merci .. ton passage me laisse satisfait ..encore merci
cordialement
Marti Marti

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Mai 2015

• #20

Re : Addition , Devision dans plusieurs USF

Re,

Ma contribution au superbe travail de Laetitia, le code du Module de classe :

Code:

Private Sub txt_Change()
txt = Replace(txt, " ", "")
If txt <> "" Then txt = Val(Replace(txt, ",", ".")) & IIf(InStr(",.", Right(txt, 1)), Mid(0.1, 2, 1), "")
a.T3 = Format(Val(Replace(a.T1, ",", ".")) + Val(Replace(a.T2, ",", ".")), "0.00")
a.T4 = Format(Val(Replace(a.T3, ",", ".")) / 2, "0.00")
UserForm3.T5 = Format((Val(Replace(UserForm1.T4, ",", ".")) + _
  Val(Replace(UserForm2.T4, ",", ".")) + Val(Replace(UserForm3.T4, ",", "."))) / 3, "0.00")
End Sub

Fichier joint.

A+

 

Pièces jointes

• Copie de CALCUL USERFORM(1).xls

  74.5 KB · Affichages: 20

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Mai 2015

• #21

Re : Addition , Devision dans plusieurs USF

Re,

Une petite amélioration pour éviter la frappe d'un 2ème séparateur :

Code:

Private Sub txt_Change()
txt = Replace(txt, " ", "")
If txt <> "" Then txt = Val(Replace(txt, ",", ".")) & _
  IIf(InStr(",.", Right(txt, 1)), Mid(0.1, 2, 1), "")
txt = Application.Substitute(txt, Mid(0.1, 2, 1), "", 2) 'évite un 2ème séparateur
a.T3 = Format(Val(Replace(a.T1, ",", ".")) + Val(Replace(a.T2, ",", ".")), "0.00")
a.T4 = Format(Val(Replace(a.T3, ",", ".")) / 2, "0.00")
UserForm3.T5 = Format((Val(Replace(UserForm1.T4, ",", ".")) + _
  Val(Replace(UserForm2.T4, ",", ".")) + Val(Replace(UserForm3.T4, ",", "."))) / 3, "0.00")
End Sub

Fichier (2).

A+

 

Pièces jointes

• Copie de CALCUL USERFORM(2).xls

  76 KB · Affichages: 23

Vote positif 0 Vote négatif

Marti Marti

XLDnaute Occasionnel

• 5 Mai 2015

• #22

Re : Addition , Devision dans plusieurs USF

Slt excellent JOB75 ..
je te remercie infiniment pour cette merveilleuse amelioration .. variment superbe touche d'idee .. je te remencie de tous mes profonds excellent JOB75..une derniere remarque dans ce sujet je l'ai explique dans ce classeur et merci d'avance .
cordialement
Marti Marti

 

Pièces jointes

• CALCUL USERFORM 3.zip

  63.5 KB · Affichages: 25

Dernière édition: 5 Mai 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Mai 2015

• #23

Re : Addition , Devision dans plusieurs USF

Re Marti Marti,

Ce n'est pas très difficile de modifier la macro précédente :

Code:

Private Sub txt_Change()
txt = Replace(txt, " ", "")
If txt <> "" Then txt = Replace(Val(Replace(txt, ",", ".")), ",", ".") & _
  IIf(InStr(",.", Right(txt, 1)), ".", "")
txt = Application.Substitute(txt, ".", "", 2) 'évite un 2ème séparateur
a.T3 = Format(Val(a.T1) + Val(a.T2), "0.00")
a.T4 = Format(Val(Replace(a.T3, ",", ".")) / 2, "0.00")
UserForm3.T5 = Format((Val(Replace(UserForm1.T4, ",", ".")) + _
  Val(Replace(UserForm2.T4, ",", ".")) + Val(Replace(UserForm3.T4, ",", "."))) / 3, "0.00")
End Sub

Fichier (3).

Edit : pour empêcher la modification des TextBoxes T3 T4 T5 j'ai mis leur propriété Locked à True.

Bonne nuit.

 

Pièces jointes

• Copie de CALCUL USERFORM(3).xls

  76.5 KB · Affichages: 19

Dernière édition: 6 Mai 2015

Vote positif 0 Vote négatif

Marti Marti

XLDnaute Occasionnel

• 5 Mai 2015

• #24

Re : Addition , Devision dans plusieurs USF

merci..j'ai appris plusieurs trics .. grace a toi excellent JOB75 .. excellente LAETITIA .. et tous qui m'ont aide .. mille fois merci
Bonne nuit
cordialement
Marti Marti

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Mai 2015

• #25

Re : Addition , Devision dans plusieurs USF

Re,

Voyez l'Edit de mon post précédent.

 

Vote positif 0 Vote négatif

Marti Marti

XLDnaute Occasionnel

• 6 Mai 2015

• #26

Re : Addition , Devision dans plusieurs USF

merci ..merci ..excellentes idees .. locked a true ..vraiment magnifique
je te remercie mille fois
cordialement
Marti Marti

 

Dernière édition: 7 Mai 2015

Vote positif 0 Vote négatif

Marti Marti

XLDnaute Occasionnel

• 7 Mai 2015

• #27

Re : Addition , Devision dans plusieurs USF

slt a tous..je ne sais pas quoi dire sauf je suis fatigue avec ce genre de calcul..apres tout faire.. je bloque dans ce module comme l'indique cette image dans ce classeur.
j'espere votre aide svp
merci d'avance
cordialement
Marti Marti

 

Pièces jointes

• CLASSEUR 4.zip

  87 KB · Affichages: 33
• CLASSEUR 4.zip

  87 KB · Affichages: 41
• CLASSEUR 4.zip

  87 KB · Affichages: 32

Dernière édition: 7 Mai 2015

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 7 Mai 2015

• #28

Re : Addition , Devision dans plusieurs USF

re tous 🙂🙂🙂🙂

normal!!! dans user 3 tu as oublie de renommée la textbox24 en T24

 

Vote positif 0 Vote négatif

Marti Marti

XLDnaute Occasionnel

• 7 Mai 2015

• #29

Re : Addition , Devision dans plusieurs USF

Bonjour .. merci oui c'etait mon probleme ..merci encore une fois
cordialement

 

Vote positif 0 Vote négatif