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 Une boucle ?

Une boucle ?

4 réponses
Avatar
Didier Novarin
Bonsoir
J'ai dans un textbox1 des éléments séparés par le signe +, je souhaite
savoir combien d'éléments j'ai dans mon textbox1
ceci dans textbox2
Par exemple
si textbox1 <> "" et si je n'ai pas de + dans textbox1 alors je dois avoir 1
dans textbox2
si j'ai 3 + dans le textbox1, je dois avoir 4 dans le textbox2
Je vous remercie
Didier
Signaler un problème avec ce contenu

4 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
JLuc
*Bonjour Didier Novarin*,
Avec 2000 et +
toto = Split(TextBox1, "+")
TextBox2 = UBound(toto) + 1 'Lbound(toto) = 0

Bonsoir
J'ai dans un textbox1 des éléments séparés par le signe +, je souhaite savoir
combien d'éléments j'ai dans mon textbox1
ceci dans textbox2
Par exemple
si textbox1 <> "" et si je n'ai pas de + dans textbox1 alors je dois avoir 1
dans textbox2
si j'ai 3 + dans le textbox1, je dois avoir 4 dans le textbox2
Je vous remercie
Didier


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Didier Novarin
Bonsoir
Je suis avec Excel 97
Merci
Didier

"JLuc" a écrit dans le message de news:

*Bonjour Didier Novarin*,
Avec 2000 et +
toto = Split(TextBox1, "+")
TextBox2 = UBound(toto) + 1 'Lbound(toto) = 0

Bonsoir
J'ai dans un textbox1 des éléments séparés par le signe +, je souhaite
savoir combien d'éléments j'ai dans mon textbox1
ceci dans textbox2
Par exemple
si textbox1 <> "" et si je n'ai pas de + dans textbox1 alors je dois
avoir 1 dans textbox2
si j'ai 3 + dans le textbox1, je dois avoir 4 dans le textbox2
Je vous remercie
Didier


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
Youky
ceci doit faire
Private Sub TextBox1_Change()
tx = TextBox1.Text
tt = 1
For k = 1 To Len(tx)
If Mid(tx, k, 1) = "+" Then tt = tt + 1
Next
TextBox2.Text = tt
End Sub
Youky
"Didier Novarin" a écrit dans le message de
news: OdXu%
Bonsoir
Je suis avec Excel 97
Merci
Didier

"JLuc" a écrit dans le message de news:

*Bonjour Didier Novarin*,
Avec 2000 et +
toto = Split(TextBox1, "+")
TextBox2 = UBound(toto) + 1 'Lbound(toto) = 0

Bonsoir
J'ai dans un textbox1 des éléments séparés par le signe +, je souhaite
savoir combien d'éléments j'ai dans mon textbox1
ceci dans textbox2
Par exemple
si textbox1 <> "" et si je n'ai pas de + dans textbox1 alors je dois
avoir 1 dans textbox2
si j'ai 3 + dans le textbox1, je dois avoir 4 dans le textbox2
Je vous remercie
Didier


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O









Avatar
Didier Novarin
Bonsoir Youki
C'est tout simplement parfait !
Encore merci
Didier

"Youky" a écrit dans le message de news:

ceci doit faire
Private Sub TextBox1_Change()
tx = TextBox1.Text
tt = 1
For k = 1 To Len(tx)
If Mid(tx, k, 1) = "+" Then tt = tt + 1
Next
TextBox2.Text = tt
End Sub
Youky
"Didier Novarin" a écrit dans le message de
news: OdXu%
Bonsoir
Je suis avec Excel 97
Merci
Didier

"JLuc" a écrit dans le message de news:

*Bonjour Didier Novarin*,
Avec 2000 et +
toto = Split(TextBox1, "+")
TextBox2 = UBound(toto) + 1 'Lbound(toto) = 0

Bonsoir
J'ai dans un textbox1 des éléments séparés par le signe +, je souhaite
savoir combien d'éléments j'ai dans mon textbox1
ceci dans textbox2
Par exemple
si textbox1 <> "" et si je n'ai pas de + dans textbox1 alors je dois
avoir 1 dans textbox2
si j'ai 3 + dans le textbox1, je dois avoir 4 dans le textbox2
Je vous remercie
Didier


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O