Il y a quelques jours Pascal m'a donn=E9 une solution pour=20
concat=E9ner tous les =E9l=E9ments d'une listbox dans une cha=EEne=20
de caract=E8res.
Maintenant, apr=E8s un traitement, j'aimerai pouvoir faire=20
l'inverse! C'est-a-dire extraire chaque =E9lement sans=20
les " / " pour remplir =E0 nouveau une listbox de mon=20
userform.
Ma cha=EEne se pr=E9sente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'=E9l=E9ments est variable. La cha=EEne d=E9bute=20
toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous pla=EEt m'aider sur le code vba?
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
papou
Bonjour Dim Lachaine$, Tableau Lachaine = "Element1/Element2/Element3" Tableau = Split(Lachaine, "/") For i = LBound(Tableau) To UBound(Tableau) Userform1.Listbox1.Additem( Tableau(i)) Next i
Cordialement Pascal
"Kyvu" a écrit dans le message de news:13a601c47b95$ba9b4ce0$ Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour concaténer tous les éléments d'une listbox dans une chaîne de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire l'inverse! C'est-a-dire extraire chaque élement sans les " / " pour remplir à nouveau une listbox de mon userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
Merci.
@micalement.
Kyvu On Line!
Bonjour
Dim Lachaine$, Tableau
Lachaine = "Element1/Element2/Element3"
Tableau = Split(Lachaine, "/")
For i = LBound(Tableau) To UBound(Tableau)
Userform1.Listbox1.Additem( Tableau(i))
Next i
Cordialement
Pascal
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:13a601c47b95$ba9b4ce0$a401280a@phx.gbl...
Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour
concaténer tous les éléments d'une listbox dans une chaîne
de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire
l'inverse! C'est-a-dire extraire chaque élement sans
les " / " pour remplir à nouveau une listbox de mon
userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute
toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
Bonjour Dim Lachaine$, Tableau Lachaine = "Element1/Element2/Element3" Tableau = Split(Lachaine, "/") For i = LBound(Tableau) To UBound(Tableau) Userform1.Listbox1.Additem( Tableau(i)) Next i
Cordialement Pascal
"Kyvu" a écrit dans le message de news:13a601c47b95$ba9b4ce0$ Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour concaténer tous les éléments d'une listbox dans une chaîne de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire l'inverse! C'est-a-dire extraire chaque élement sans les " / " pour remplir à nouveau une listbox de mon userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
Dim Lachaine$, Tableau As Variant Lachaine = "Element1/Element2/Element3" Tableau = Split(Lachaine, "/") Userform1.ListBox1.List = Application.Transpose(Tableau)
Salutations!
"Kyvu" a écrit dans le message de news:13a601c47b95$ba9b4ce0$ Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour concaténer tous les éléments d'une listbox dans une chaîne de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire l'inverse! C'est-a-dire extraire chaque élement sans les " / " pour remplir à nouveau une listbox de mon userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
Merci.
@micalement.
Kyvu On Line!
Bonjour Kyvu,
Il n'est pas nécessaire de boucler :
Dim Lachaine$, Tableau As Variant
Lachaine = "Element1/Element2/Element3"
Tableau = Split(Lachaine, "/")
Userform1.ListBox1.List = Application.Transpose(Tableau)
Salutations!
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de news:13a601c47b95$ba9b4ce0$a401280a@phx.gbl...
Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour
concaténer tous les éléments d'une listbox dans une chaîne
de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire
l'inverse! C'est-a-dire extraire chaque élement sans
les " / " pour remplir à nouveau une listbox de mon
userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute
toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
Dim Lachaine$, Tableau As Variant Lachaine = "Element1/Element2/Element3" Tableau = Split(Lachaine, "/") Userform1.ListBox1.List = Application.Transpose(Tableau)
Salutations!
"Kyvu" a écrit dans le message de news:13a601c47b95$ba9b4ce0$ Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour concaténer tous les éléments d'une listbox dans une chaîne de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire l'inverse! C'est-a-dire extraire chaque élement sans les " / " pour remplir à nouveau une listbox de mon userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
Merci.
@micalement.
Kyvu On Line!
papou
Bonjour Denis Bien vu ;-)
Cordialement Pascal
"michdenis" a écrit dans le message de news:
Bonjour Kyvu,
Il n'est pas nécessaire de boucler :
Dim Lachaine$, Tableau As Variant Lachaine = "Element1/Element2/Element3" Tableau = Split(Lachaine, "/") Userform1.ListBox1.List = Application.Transpose(Tableau)
Salutations!
"Kyvu" a écrit dans le message de news:13a601c47b95$ba9b4ce0$
Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour concaténer tous les éléments d'une listbox dans une chaîne de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire l'inverse! C'est-a-dire extraire chaque élement sans les " / " pour remplir à nouveau une listbox de mon userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
Merci.
@micalement.
Kyvu On Line!
Bonjour Denis
Bien vu ;-)
Cordialement
Pascal
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Ogp22e7eEHA.2532@TK2MSFTNGP09.phx.gbl...
Bonjour Kyvu,
Il n'est pas nécessaire de boucler :
Dim Lachaine$, Tableau As Variant
Lachaine = "Element1/Element2/Element3"
Tableau = Split(Lachaine, "/")
Userform1.ListBox1.List = Application.Transpose(Tableau)
Salutations!
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:13a601c47b95$ba9b4ce0$a401280a@phx.gbl...
Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour
concaténer tous les éléments d'une listbox dans une chaîne
de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire
l'inverse! C'est-a-dire extraire chaque élement sans
les " / " pour remplir à nouveau une listbox de mon
userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute
toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
Dim Lachaine$, Tableau As Variant Lachaine = "Element1/Element2/Element3" Tableau = Split(Lachaine, "/") Userform1.ListBox1.List = Application.Transpose(Tableau)
Salutations!
"Kyvu" a écrit dans le message de news:13a601c47b95$ba9b4ce0$
Bonjour,
Il y a quelques jours Pascal m'a donné une solution pour concaténer tous les éléments d'une listbox dans une chaîne de caractères.
Maintenant, après un traitement, j'aimerai pouvoir faire l'inverse! C'est-a-dire extraire chaque élement sans les " / " pour remplir à nouveau une listbox de mon userform.
Ma chaîne se présente comme suit:
"Element1 / Element2 / Element3 / ... / ElementX"
Le nombre d'éléments est variable. La chaîne débute toujours sans "/" et se termine toujours sans "/".
Pouvez-vous s'il vous plaît m'aider sur le code vba?
