Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox un
des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox un
des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox un
des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de news:
emKCZGO9EHA.3076@TK2MSFTNGP15.phx.gbl...
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le mot
sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le mot
sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
uFRbviO9EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de news:
emKCZGO9EHA.3076@TK2MSFTNGP15.phx.gbl...
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le mot
sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le mot
sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le mot
sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
uFRbviO9EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de news:
emKCZGO9EHA.3076@TK2MSFTNGP15.phx.gbl...
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le mot
sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque parti
( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque parti
( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de news:
etlXXmO9EHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
uFRbviO9EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news: emKCZGO9EHA.3076@TK2MSFTNGP15.phx.gbl...
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque parti
( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir,
Quelque chose à insérer et adapter :
'ton texte initial
texte = "titi + toto + tata"
'ce qu'il faut enlever
quoi = "titi"
'remplacer quoi par rien
texte = Application.Substitute(texte, quoi, "")
'remplacer les successions de + (remplacement en milieu
'de chaine
texte = Application.Substitute(texte, " + + ", " + ")
'pour enlever en début de chaine
g = Left(texte, 1) = " " Or Left(texte, 1) = "+"
While g
texte = Right(texte, Len(texte) - 1)
g = Left(texte, 1) = " " Or Left(texte, 1) = "+"
Wend
'pour enlever en fin de chaine
g = Right(texte, 1) = " " Or Right(texte, 1) = "+"
While g
texte = Right(texte, Len(texte) - 1)
g = Right(texte, 1) = " " Or Right(texte, 1) = "+"
Wend
End Sub
Voilà, voilà
@+
FxMBonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir,
Quelque chose à insérer et adapter :
'ton texte initial
texte = "titi + toto + tata"
'ce qu'il faut enlever
quoi = "titi"
'remplacer quoi par rien
texte = Application.Substitute(texte, quoi, "")
'remplacer les successions de + (remplacement en milieu
'de chaine
texte = Application.Substitute(texte, " + + ", " + ")
'pour enlever en début de chaine
g = Left(texte, 1) = " " Or Left(texte, 1) = "+"
While g
texte = Right(texte, Len(texte) - 1)
g = Left(texte, 1) = " " Or Left(texte, 1) = "+"
Wend
'pour enlever en fin de chaine
g = Right(texte, 1) = " " Or Right(texte, 1) = "+"
While g
texte = Right(texte, Len(texte) - 1)
g = Right(texte, 1) = " " Or Right(texte, 1) = "+"
Wend
End Sub
Voilà, voilà
@+
FxM
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
uFRbviO9EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de news:
emKCZGO9EHA.3076@TK2MSFTNGP15.phx.gbl...
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir,
Quelque chose à insérer et adapter :
'ton texte initial
texte = "titi + toto + tata"
'ce qu'il faut enlever
quoi = "titi"
'remplacer quoi par rien
texte = Application.Substitute(texte, quoi, "")
'remplacer les successions de + (remplacement en milieu
'de chaine
texte = Application.Substitute(texte, " + + ", " + ")
'pour enlever en début de chaine
g = Left(texte, 1) = " " Or Left(texte, 1) = "+"
While g
texte = Right(texte, Len(texte) - 1)
g = Left(texte, 1) = " " Or Left(texte, 1) = "+"
Wend
'pour enlever en fin de chaine
g = Right(texte, 1) = " " Or Right(texte, 1) = "+"
While g
texte = Right(texte, Len(texte) - 1)
g = Right(texte, 1) = " " Or Right(texte, 1) = "+"
Wend
End Sub
Voilà, voilà
@+
FxMBonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu un
+
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque parti
( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque parti
( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de news:
etlXXmO9EHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
uFRbviO9EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news: emKCZGO9EHA.3076@TK2MSFTNGP15.phx.gbl...
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque parti
( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du textbox
un des mots,
par exemple un inputbox afin de choisir la position du mot à supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Désolé, pour les + de 50 ans ;-))
vous les anciens, êtes nos exemples !
En fait, une fois, dans le textbox1, on peut valider, et envoyer la
totalité du textbox dans la feuille de calcul
En revanche, je suis preneur de ce bout de code
Merci
Michel
"Pounet95" a écrit dans le message de news:Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque
parti ( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du
textbox un des mots,
par exemple un inputbox afin de choisir la position du mot à
supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Désolé, pour les + de 50 ans ;-))
vous les anciens, êtes nos exemples !
En fait, une fois, dans le textbox1, on peut valider, et envoyer la
totalité du textbox dans la feuille de calcul
En revanche, je suis preneur de ce bout de code
Merci
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
eCQuS0O9EHA.2900@TK2MSFTNGP09.phx.gbl...
Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque
parti ( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de news:
etlXXmO9EHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
uFRbviO9EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news: emKCZGO9EHA.3076@TK2MSFTNGP15.phx.gbl...
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du
textbox un des mots,
par exemple un inputbox afin de choisir la position du mot à
supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Désolé, pour les + de 50 ans ;-))
vous les anciens, êtes nos exemples !
En fait, une fois, dans le textbox1, on peut valider, et envoyer la
totalité du textbox dans la feuille de calcul
En revanche, je suis preneur de ce bout de code
Merci
Michel
"Pounet95" a écrit dans le message de news:Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque
parti ( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le cas
? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans liste
déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens se
trompent, je souhaite qu'ils puissent avoir un inputbox, afin de retirer
proprement le mot à retirer. Ils seraient bien incapable de retirer le
mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du
textbox un des mots,
par exemple un inputbox afin de choisir la position du mot à
supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Bonsoir François
En fait, il peut s'agir également de phrases, mais toujours séparées
par des +
Michel
Bonsoir François
En fait, il peut s'agir également de phrases, mais toujours séparées
par des +
Michel
Bonsoir François
En fait, il peut s'agir également de phrases, mais toujours séparées
par des +
Michel
Re,
Vite fait ( bien ?) fait ...
A mettre dans le module du USF et à adapter bien sûr
Private Sub CommandButton1_Click()
a$ = ""
For i = 0 To ListBox1.ListCount - 1
a$ = a$ & ListBox1.List(i) & " "
Next i
MsgBox a$
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub
Private Sub OptionButton1_Click()
Ajoute "Alpha"
End Sub
Private Sub OptionButton2_Click()
Ajoute "Beta"
End Sub
Private Sub OptionButton3_Click()
Ajoute "Charly"
End Sub
Private Sub OptionButton4_Click()
Ajoute "Delta"
End Sub
Function Ajoute(cMot As String)
ListBox1.AddItem cMot
End Function
Private Sub UserForm_Initialize()
ListBox1.Clear
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Désolé, pour les + de 50 ans ;-))
vous les anciens, êtes nos exemples !
En fait, une fois, dans le textbox1, on peut valider, et envoyer la
totalité du textbox dans la feuille de calcul
En revanche, je suis preneur de ce bout de code
Merci
Michel
"Pounet95" a écrit dans le message de news:Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque
parti ( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le
cas ? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans
liste déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens
se trompent, je souhaite qu'ils puissent avoir un inputbox, afin de
retirer proprement le mot à retirer. Ils seraient bien incapable de
retirer le mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du
textbox un des mots,
par exemple un inputbox afin de choisir la position du mot à
supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Re,
Vite fait ( bien ?) fait ...
A mettre dans le module du USF et à adapter bien sûr
Private Sub CommandButton1_Click()
a$ = ""
For i = 0 To ListBox1.ListCount - 1
a$ = a$ & ListBox1.List(i) & " "
Next i
MsgBox a$
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub
Private Sub OptionButton1_Click()
Ajoute "Alpha"
End Sub
Private Sub OptionButton2_Click()
Ajoute "Beta"
End Sub
Private Sub OptionButton3_Click()
Ajoute "Charly"
End Sub
Private Sub OptionButton4_Click()
Ajoute "Delta"
End Sub
Function Ajoute(cMot As String)
ListBox1.AddItem cMot
End Function
Private Sub UserForm_Initialize()
ListBox1.Clear
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de news:
Opg1aPP9EHA.3476@TK2MSFTNGP15.phx.gbl...
Désolé, pour les + de 50 ans ;-))
vous les anciens, êtes nos exemples !
En fait, une fois, dans le textbox1, on peut valider, et envoyer la
totalité du textbox dans la feuille de calcul
En revanche, je suis preneur de ce bout de code
Merci
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
eCQuS0O9EHA.2900@TK2MSFTNGP09.phx.gbl...
Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque
parti ( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le
cas ? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans
liste déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news: etlXXmO9EHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens
se trompent, je souhaite qu'ils puissent avoir un inputbox, afin de
retirer proprement le mot à retirer. Ils seraient bien incapable de
retirer le mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
uFRbviO9EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" <michel.giara@lavieestbelle.fr> a écrit dans le message de
news: emKCZGO9EHA.3076@TK2MSFTNGP15.phx.gbl...
Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du
textbox un des mots,
par exemple un inputbox afin de choisir la position du mot à
supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub
Re,
Vite fait ( bien ?) fait ...
A mettre dans le module du USF et à adapter bien sûr
Private Sub CommandButton1_Click()
a$ = ""
For i = 0 To ListBox1.ListCount - 1
a$ = a$ & ListBox1.List(i) & " "
Next i
MsgBox a$
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub
Private Sub OptionButton1_Click()
Ajoute "Alpha"
End Sub
Private Sub OptionButton2_Click()
Ajoute "Beta"
End Sub
Private Sub OptionButton3_Click()
Ajoute "Charly"
End Sub
Private Sub OptionButton4_Click()
Ajoute "Delta"
End Sub
Function Ajoute(cMot As String)
ListBox1.AddItem cMot
End Function
Private Sub UserForm_Initialize()
ListBox1.Clear
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de news:Désolé, pour les + de 50 ans ;-))
vous les anciens, êtes nos exemples !
En fait, une fois, dans le textbox1, on peut valider, et envoyer la
totalité du textbox dans la feuille de calcul
En revanche, je suis preneur de ce bout de code
Merci
Michel
"Pounet95" a écrit dans le message de news:Re,
Et bien voilà une belle opinion sur les "vieux" dont je fais presque
parti ( 53 ans ) ;o))))
Si je comprends bien le problème ( serai-je excusé si ce n'est pas le
cas ? ) , je ferai plutôt
de la façon suivante :
au lieu d'utiliser un textbox, utiliser une liste déroulante.
quand l'utilisateur coche un bouton d'option, il ajoute le nom dans
liste déroulante.
il suffit de double-cliquer sur le nom dans la liste pour l'enlever.
un bouton permet de valider la liste déroulante
Mais ce n'est qu'une idée de vieux re ;o)))))
Si problème pour écrire ces bouts de code, continuer sur ce fil
A+
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir Pounet95
Ouh là, dans mon service, la moyenne d'âge est de 55 ans, si les gens
se trompent, je souhaite qu'ils puissent avoir un inputbox, afin de
retirer proprement le mot à retirer. Ils seraient bien incapable de
retirer le mot sans en retirer un autre ou le +
j'ai besoin de ces mots pour mes stats.
Michel
"Pounet95" a écrit dans le message de news:Bonsoir,
Quel besoin de créer une InputBox pour retirer un mot d'un TextBox ?
Il suffit à l'utilisateur de sélectionner le mot dans ce dernier et un
appui sur Supp
doit être suffisant, non ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel" a écrit dans le message de
news:Bonsoir,
j'ai cette procédure qui mets dans un textbox des mots avec au milieu
un +
je souhaite donner à l'utilisateur la possibilité de retirer du
textbox un des mots,
par exemple un inputbox afin de choisir la position du mot à
supprimer.
Merci beaucoup et bonne soirée
Michel
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub