Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Calculs et textbox

Calculs et textbox

3 réponses
Avatar
boblebob
salut,

j'ai 9 Textbox dans lesquels je peux mettre des nombres (il ne sont pas tous
forcément remplis), ce que je voudrais c'est qu'à chaque changement dans
l'un de ces 9 textbox, la somme se fasse automatiquement dans un autre
textbox (textbox numéro 10).

comment faire l'automatisme ?


--

a+
nosp-00-boblebob@voila.fr
(enlever nosp-00-)
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Dans chaque textbox (noms à adapter) sur l'évènement Change :
Private Sub TextBox1_Change()
If TextBox1 <> "" And IsNumeric(TextBox1) Then
If TextBox10 <> "" Then
TextBox10 = CLng(TextBox1) + CLng(TextBox10)
Else: TextBox10 = CLng(TextBox1)
End If
End If
End Sub

Cordialement
Pascal


"boblebob" a écrit dans le message de
news:
salut,

j'ai 9 Textbox dans lesquels je peux mettre des nombres (il ne sont pas
tous

forcément remplis), ce que je voudrais c'est qu'à chaque changement dans
l'un de ces 9 textbox, la somme se fasse automatiquement dans un autre
textbox (textbox numéro 10).

comment faire l'automatisme ?


--

a+

(enlever nosp-00-)




Avatar
boblebob
salut et merci,

j'aurais bien voulu un moyen qui éviterait de devoir mettre une macro dans
chaque textbox because c'est galère quand il y en a beaucoup !

--

a+

(enlever nosp-00-)
"papou" a écrit dans le message de
news:
Bonjour
Dans chaque textbox (noms à adapter) sur l'évènement Change :
Private Sub TextBox1_Change()
If TextBox1 <> "" And IsNumeric(TextBox1) Then
If TextBox10 <> "" Then
TextBox10 = CLng(TextBox1) + CLng(TextBox10)
Else: TextBox10 = CLng(TextBox1)
End If
End If
End Sub

Cordialement
Pascal


"boblebob" a écrit dans le message de
news:
salut,

j'ai 9 Textbox dans lesquels je peux mettre des nombres (il ne sont pas
tous

forcément remplis), ce que je voudrais c'est qu'à chaque changement dans
l'un de ces 9 textbox, la somme se fasse automatiquement dans un autre
textbox (textbox numéro 10).

comment faire l'automatisme ?


--

a+

(enlever nosp-00-)








Avatar
Pascal Engelmajer
Salut,
le presque moins (ou alors il faut recourir à VBComponents)
http://www.ilyapa.net/baseExcel/txtBoxSomme.xls
utilise un module de classe et construit dynamiquement les articles...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"boblebob" a écrit dans le message de news:

salut et merci,

j'aurais bien voulu un moyen qui éviterait de devoir mettre une macro dans
chaque textbox because c'est galère quand il y en a beaucoup !

--

a+

(enlever nosp-00-)
"papou" a écrit dans le message de
news:
Bonjour
Dans chaque textbox (noms à adapter) sur l'évènement Change :
Private Sub TextBox1_Change()
If TextBox1 <> "" And IsNumeric(TextBox1) Then
If TextBox10 <> "" Then
TextBox10 = CLng(TextBox1) + CLng(TextBox10)
Else: TextBox10 = CLng(TextBox1)
End If
End If
End Sub

Cordialement
Pascal


"boblebob" a écrit dans le message de
news:
salut,

j'ai 9 Textbox dans lesquels je peux mettre des nombres (il ne sont
pas



tous
forcément remplis), ce que je voudrais c'est qu'à chaque changement
dans



l'un de ces 9 textbox, la somme se fasse automatiquement dans un autre
textbox (textbox numéro 10).

comment faire l'automatisme ?


--

a+

(enlever nosp-00-)