[excel] textbox champs calculé
Résolu/Fermé
zook
Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
-
28 mars 2008 à 11:46
zook Messages postés 38 Date d'inscription jeudi 13 mai 2004 Statut Membre Dernière intervention 6 juillet 2015 - 31 mars 2008 à 10:56
zook Messages postés 38 Date d'inscription jeudi 13 mai 2004 Statut Membre Dernière intervention 6 juillet 2015 - 31 mars 2008 à 10:56
A voir également:
- [excel] textbox champs calculé
- Liste déroulante excel - Guide
- Calculer une moyenne sur excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
4 réponses
zook
Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
5
31 mars 2008 à 10:54
31 mars 2008 à 10:54
Comme je suis la règle du site, je vais récapituler la solution :
Pour faire la somme de 2 textbox dans une 3ème et que le résultat apparaisse automatiquement en sortant des textbox :
Private Sub TextBox1_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
Ne pas oublier d'insérer ce code dans les 2 textbox!!
Pour exporter les résultats dans une feuille excel sous format numérique:
Val(TextBox1.Value)
Val(TextBox2.Value),...
Et toutes ces infos grâce à LePierre
Merci beaucoup à toi, tu m'as fait gagner un temps précieux
et surtout facillité le programme. De toute façon je n'aurai jamais trouvé toute seule!!
Bonne journée
Pour faire la somme de 2 textbox dans une 3ème et que le résultat apparaisse automatiquement en sortant des textbox :
Private Sub TextBox1_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
Ne pas oublier d'insérer ce code dans les 2 textbox!!
Pour exporter les résultats dans une feuille excel sous format numérique:
Val(TextBox1.Value)
Val(TextBox2.Value),...
Et toutes ces infos grâce à LePierre
Merci beaucoup à toi, tu m'as fait gagner un temps précieux
et surtout facillité le programme. De toute façon je n'aurai jamais trouvé toute seule!!
Bonne journée
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
338
28 mars 2008 à 14:38
28 mars 2008 à 14:38
bonjour
en supposant que tes TextBox sont :
TextBox1 : entrée 1ère valeur
TextBox2 : entrée 2ème valeur
TextBox3 : recevant le calcul
ajoute le code :
Private Sub TextBox1_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
à plus
en supposant que tes TextBox sont :
TextBox1 : entrée 1ère valeur
TextBox2 : entrée 2ème valeur
TextBox3 : recevant le calcul
ajoute le code :
Private Sub TextBox1_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
à plus
zook
Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
5
31 mars 2008 à 10:56
31 mars 2008 à 10:56
J'ai oublié de cocher problème résolu, voir message précédent
zook
Messages postés
38
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 juillet 2015
5
28 mars 2008 à 15:23
28 mars 2008 à 15:23
C'est géant...merci beaucoup...vraiment!!!
Il ne me reste plus qu'à trouver la solution pour convertir
les textbox en numérique quand les données de celles-ci
sont transférées dans une feuille excel.
Il ne me reste plus qu'à trouver la solution pour convertir
les textbox en numérique quand les données de celles-ci
sont transférées dans une feuille excel.
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
338
28 mars 2008 à 16:40
28 mars 2008 à 16:40
bonjour
utilise la fonction Val()
tu peux t'inspirer de l'exemple ci dessous :
Sub test()
UserForm1.Show
x = Val(UserForm1.TextBox3.Value)
Cells(1, 1).Value = UserForm1.TextBox3.Value
Unload UserForm1
End Sub
tu récupère dans la variable x une valeur numérique avec Val()
et normalement tu récupères également une valeur dans la cellule A1
à plus
utilise la fonction Val()
tu peux t'inspirer de l'exemple ci dessous :
Sub test()
UserForm1.Show
x = Val(UserForm1.TextBox3.Value)
Cells(1, 1).Value = UserForm1.TextBox3.Value
Unload UserForm1
End Sub
tu récupère dans la variable x une valeur numérique avec Val()
et normalement tu récupères également une valeur dans la cellule A1
à plus