Discussion :

[condorcondor]

comment peut on faire pour ce genre de calcul des textbox dans plusieurs users..
j'ai tous explique dans ce classeur
merci d'avance
cordialement
CondorCondorPièce jointe 176779

[Bergay]

Tu viens d'enfreindre la règle qui figure dans le message du haut du forum qui consiste à ne pas envoyer de fichier attaché dès l'ouverture d'une discussion. Le problème est à poser par écrit clairement.
Et justement on ne comprend pas bien la nature de ton problème.

[condorcondor]

je suis debute .. j'ai pas fais attention .. mes profonds excuses je vais retirer ce classeur
mon probleme est :
j'ai un classeur de 3 userforms .
une textbox soit numero 1 dans userform1
une textbox soit numero 1 dans userform 2
deux textbox numero 1 et numero 2 dans userform 3
je veux calculer la somme de ( textbox1 usf 1 + textbox 1 usf 2 + textbox 1 usf 3 ) / 3
le resultat sera affiche biensure dans textbox 2 de userform 3.

[joe.levrai]

Bonjour,

si tes 3 Userfom sont chargés (avec éventuellement 2 qui sont masqués), il te suffit d'additionner la valeur indiquées dans chaque textbox. Veiller à bien convertir le format des valeurs, on n'additionne pas des String

sinon, tu auras le choix entre stocker les valeurs de tes textbox dans une feuille Excel, ou utiliser des variables publiques pour transporter les valeurs au fil de tes actions

[condorcondor]

mon cher JOE.LEVRAI je te remercie infiniment pour ton aide ..
je suis debute en excel vba .. et je veux ce calcul pour mon travail..je t'ai pas compris je suis ediot en excel vba
est ce que je peux t'envoyer un classeur comme exemple ou non bien si c'est possible et ce n'est pas interdit d'envoyer des classeurs
merci d'avance
cordialement
condorcondor

[joe.levrai]

Pour ce type de question, un classeur n'est pas nécessaire

montre nous le code actuel qui ne fonctionne pas

[condorcondor]

j'ai essaye avec ce premier code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox2_Change()
TextBox2= Val(UserForm1.TextBox1) + Val(UserForm2.TextBox1) + Val(UserForm3.TextBox1)
End Sub

et apres avec ce deuxieme code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Activate()
 es
End Sub
Private Sub TextBox1_Change()
 es
End Sub
Sub es()
 On Error Resume Next
 If TextBox1 = "" Then TextBox2 = "": Exit Sub
 TextBox2 = Format((CDbl(UserForm1.TextBox1 + CDbl(UserForm2.TextBox1 + CDbl(TextBox1)))) / 3, "0.00")
End Sub

le deuxieme code ca marche avec des nombres naturels seulement et affiche le resultat comme nombre decimal .. moi je veux qu'il fonctionne avec des nombres naturels et aussi decimaux.

[patricktoulon]

Bonsoir
il faut que au moins les 3 userforms soit affichés ou en mode hide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
valeur1=val(userform1.textbox1)
valeur2=val(userform2.textbox1)
valeur3=val(userform3.textbox1)
 
userform3.textbox2=valeur1+valeur2+valeur3

[condorcondor]

merci patrick j'ai fais ton code comme ca mais ca marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub TextBox2_Change()
valeur1 = Val(UserForm1.TextBox1)
valeur2 = Val(UserForm2.TextBox1)
valeur3 = Val(UserForm3.TextBox1)
 UserForm3.TextBox2 = valeur1 + valeur2 + valeur3
End Sub

cordialement
condorcondor

[joe.levrai]

c'est à dire "ça ne marche pas"?

et pourquoi tu utilises un évènement change sur le textbox qui doit recevoir le résultat ?

[condorcondor]

Que dois je mettre donc ??
vraiment je comprend pas vba excel
mille fois merci d'avance

[patricktoulon]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub TextBox2_Change()

tu peut choisir n'importe quel évènement que tu veux sauf celui la bien entendu

tu pourrais mettre ca dans tout les textboxs concernés sauf le textbox2 du userform3
comme ca des que tu change quelque chose dans l'un d'entre eux le calcul se fait

mais n'en sachant pas plus sur le contexte c'est assez difficile de te donner une méthode adaptée

[condorcondor]

ca va me rendrre fou ce calcul .. j'ai bien place ce code dans userform3 :
(nom ambigu detecte )
c'est bien ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub TextBox43_Change()                 43 remplace 2     et 41 remplace textbox1 dans cet exemple
valeur1=val(userform1.textbox42)
valeur2=val(userform2.textbox42)
valeur3=val(userform3.textbox42)
userform3.textbox43=valeur1+valeur2+valeur3
End Sub

[patricktoulon]

essaie de metre ton code entre balise code le bouton "dieze"


ensuite j'ai l'impression de ne pas parler Français
je t'ai dis de choisir les autre évènements que celui qui reçoit le résultat calcul

en gros dans cet l'évènement du 43 tu met rien c'est pas compliqué

a mon avis il faudrait que tu commence par le début car si tu comprend spas ce qu'on te dit on risque pas d'avancer

[condorcondor]

mes excuses .. une derniere question svp et merci d'avance cher PATRICK
je vais choisir autre evenement par exemple quoi comme evenement qui se sera compatible ici
merci d'avance
cordialement

[patricktoulon]

tu n'est pas sérieux la ??,


quel évènement?
ben celui des autres textboxs pardi!
dans le textbox du userform1,dans le textbox du userform2 dans le textbox1 du userform3 mais pas le 2 du userform3
en l'occurrence ici si j'ai bien compris c'est le 43
voila le 43 tu met rien les autres oui!!!

c'est pas compliqué c'est pourtant évident

quand tu ouvre une porte tu abaisse la poignée d'abords non?
et bien si tu veux que lestextbox43 recoive le resultat tu te sert du onchange des autres

[kiki29]

Salut, il serait bon également de lire et assimiler : Obliger une saisie numérique dans une TextBox

[condorcondor]

OUI bienentendu prof PATRICK ..mille fois merci .. mes excuses .. avec tous mes respect une deuxieme fois merci
cordialement

[Docmarti]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'Code dans Userform1
Private Sub TextBox1_Change()
 Set tb = TextBox1
 tp = Replace(tb, ",", ".")
 es
End Sub
 
'Code dans Userform2
Private Sub TextBox1_Change()
 Set tb = TextBox1
 tp = Replace(tb, ",", ".")
 es
End Sub
 
'Code dans Userform3
Private Sub TextBox1_Change()
 Set tb = TextBox1
 tp = Replace(tb, ",", ".")
 es
End Sub
 
'Ce code dans un Module Standard
Sub es()
If UserForm3.TextBox1 = "" Then UserForm3.TextBox2 = "": Exit Sub
UserForm3.TextBox2 = Format(Val(UserForm1.TextBox1.Text) + Val(UserForm2.TextBox1.Text) + Val(UserForm3.TextBox1.Text) / 3, "0.00")
End Sub

[condorcondor]

merci pour l'aide DOCMARTI..c presque tout a fait normal..sauf quand j'additionne comme exemple ( 2.33+2.33+2.33) ..le resultat s'affiche dans textbox 2 (5.44 )
normalement (2.33+2.33+2.33)/3 s'affiche aussi 2.33
merci d'avance
cordialment