Additionner des valeurs qui sont dans 2 formulaires différents [Résolu]

Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
- - Dernière réponse : jmfmarques
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
- 5 juil. 2007 à 11:58
Bonjour,
Je voudrais additionner la valeur 1 a chaque fois qu'un texBox se trouvant dans le formulaire 1 est différent de 0 a la valeur d'un TextBox2 se trouvant dans un formulaire 2 et le resultat est dans ce text Box.
exemple
Formulaire2.TextBox2 = Formulaire2.TextBox2 + 1
Pouvez vous m'aider a trouver la bonne syntaxe ?
Merci
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
3
Merci
Bonjour,
Je voudrais additionner la valeur 1 a chaque fois qu'un texBox se trouvant dans le formulaire 1 est différent de 0 a la valeur d'un TextBox2 se trouvant dans un formulaire 2 et le resultat est dans ce text Box.
exemple
Formulaire2.TextBox2 = Formulaire2.TextBox2 + 1
Pouvez vous m'aider a trouver la bonne syntaxe ?
Merci



Répondre à ce message

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 142 internautes nous ont dit merci ce mois-ci

Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
0
Merci
Bonjour,
je crois qu'il faut faire une boucle mais je ne suis pas assez calée pour cela, je crois aussi que pour la syntaxe des valeurs il faut préciser val(textBox2). sinon cela concatenate et non additionne. il me semble attention...
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
0
Merci
Bonjour, voilà je viens de faire cette solution :

Private Sub CommandButton1_Click()
If TextBox1 <> 0 Then
UserForm2.TextBox1 = Val(UserForm2.TextBox1) + 1
Else: UserForm2.TextBox1 = Val(UserForm2.TextBox1) + 0
End If
UserForm2.Show
End Sub
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
0
Merci
Bonjour, voilà je viens de faire cette solution :

Private Sub CommandButton1_Click()
If TextBox1 <> 0 Then
UserForm2.TextBox1 = Val(UserForm2.TextBox1) + 1
Else: UserForm2.TextBox1 = Val(UserForm2.TextBox1) + 0
End If
UserForm2.Show
End Sub
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
18
0
Merci
Et biens sur... tout çà, pour toi, c'est du VB.Net (la présente section) !!!