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
ng
Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1 combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*;*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1) tblSep = Split(sVar,";",,vbTextCompare) Debug.Print tblSep(0) Debug.Print tblSep(1) Debug.Print tblSep(2) Debug.Print tblSep(3) Erase tblSep sVar = "" End If
Nicolas.
"Louis" a écrit dans le message de news: 6e7201c3e749$6e789150$
comment a partir de la lecture d'un fichier ini contenant une variable Mxx;10;21;25 je peux afficher 08 10 21 25 dans une liste deroulante ?
Merci ...
Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1 combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String
sVar = "Mxx;10;21;25"
List1.Clear
if sVar like "*=*;*;*;*" Then
sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1)
tblSep = Split(sVar,";",,vbTextCompare)
Debug.Print tblSep(0)
Debug.Print tblSep(1)
Debug.Print tblSep(2)
Debug.Print tblSep(3)
Erase tblSep
sVar = ""
End If
Nicolas.
"Louis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 6e7201c3e749$6e789150$a101280a@phx.gbl...
comment a partir de la lecture d'un fichier ini contenant
une variable Mxx;10;21;25 je peux afficher 08 10 21 25
dans une liste deroulante ?
Essaye ceci, list1 peut être aussi bien une listbox qu'1 combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*;*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1) tblSep = Split(sVar,";",,vbTextCompare) Debug.Print tblSep(0) Debug.Print tblSep(1) Debug.Print tblSep(2) Debug.Print tblSep(3) Erase tblSep sVar = "" End If
Nicolas.
"Louis" a écrit dans le message de news: 6e7201c3e749$6e789150$
comment a partir de la lecture d'un fichier ini contenant une variable Mxx;10;21;25 je peux afficher 08 10 21 25 dans une liste deroulante ?
Merci ...
Louis
Merci, mais comment je fais si je connais pas le nombre de param apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
-----Message d'origine----- Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1
combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*;*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare) Debug.Print tblSep(0) Debug.Print tblSep(1) Debug.Print tblSep(2) Debug.Print tblSep(3) Erase tblSep sVar = "" End If
Nicolas.
"Louis" a écrit
dans le message de
news: 6e7201c3e749$6e789150$
comment a partir de la lecture d'un fichier ini
contenant
une variable Mxx;10;21;25 je peux afficher 08 10 21
25
dans une liste deroulante ?
Merci ...
.
Merci,
mais comment je fais si je connais pas le nombre de param
apres Mxx= (Ex: Mxx=01;02;......;70;71;...;80)
-----Message d'origine-----
Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1
combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String
sVar = "Mxx=08;10;21;25"
List1.Clear
if sVar like "*=*;*;*;*" Then
sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare)
Debug.Print tblSep(0)
Debug.Print tblSep(1)
Debug.Print tblSep(2)
Debug.Print tblSep(3)
Erase tblSep
sVar = ""
End If
Nicolas.
"Louis" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 6e7201c3e749$6e789150$a101280a@phx.gbl...
comment a partir de la lecture d'un fichier ini
contenant
une variable Mxx=08;10;21;25 je peux afficher 08 10 21
Merci, mais comment je fais si je connais pas le nombre de param apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
-----Message d'origine----- Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1
combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*;*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare) Debug.Print tblSep(0) Debug.Print tblSep(1) Debug.Print tblSep(2) Debug.Print tblSep(3) Erase tblSep sVar = "" End If
Nicolas.
"Louis" a écrit
dans le message de
news: 6e7201c3e749$6e789150$
comment a partir de la lecture d'un fichier ini
contenant
une variable Mxx;10;21;25 je peux afficher 08 10 21
25
dans une liste deroulante ?
Merci ...
.
François Picalausa
Bonjour/soir,
Sur un tableau, lbound pour la limite inférieure et ubound pour la limite supérieur. Avec un For i = lbound(tbl) to ubound(tbl), tu devrais t'en sortir ;-)
"Louis" a écrit dans le message de news:7aba01c3e779$b7e71660$
Merci, mais comment je fais si je connais pas le nombre de param apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
-----Message d'origine----- Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1 combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*;*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare) +1) tblSep = Split(sVar,";",,vbTextCompare) Debug.Print tblSep(0) Debug.Print tblSep(1) Debug.Print tblSep(2) Debug.Print tblSep(3) Erase tblSep sVar = "" End If
Nicolas.
"Louis" a écrit dans le message de news: 6e7201c3e749$6e789150$
comment a partir de la lecture d'un fichier ini contenant une variable Mxx;10;21;25 je peux afficher 08 10 21 25 dans une liste deroulante ?
Merci ...
.
Bonjour/soir,
Sur un tableau, lbound pour la limite inférieure et ubound pour la limite
supérieur.
Avec un For i = lbound(tbl) to ubound(tbl), tu devrais t'en sortir ;-)
"Louis" <karoly.louis@cimaest.msa.fr> a écrit dans le message de
news:7aba01c3e779$b7e71660$a601280a@phx.gbl
Merci,
mais comment je fais si je connais pas le nombre de param
apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
-----Message d'origine-----
Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1 combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String
sVar = "Mxx;10;21;25"
List1.Clear
if sVar like "*=*;*;*;*" Then
sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare) +1)
tblSep = Split(sVar,";",,vbTextCompare)
Debug.Print tblSep(0)
Debug.Print tblSep(1)
Debug.Print tblSep(2)
Debug.Print tblSep(3)
Erase tblSep
sVar = ""
End If
Nicolas.
"Louis" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 6e7201c3e749$6e789150$a101280a@phx.gbl...
comment a partir de la lecture d'un fichier ini contenant
une variable Mxx;10;21;25 je peux afficher 08 10 21 25
dans une liste deroulante ?
Sur un tableau, lbound pour la limite inférieure et ubound pour la limite supérieur. Avec un For i = lbound(tbl) to ubound(tbl), tu devrais t'en sortir ;-)
"Louis" a écrit dans le message de news:7aba01c3e779$b7e71660$
Merci, mais comment je fais si je connais pas le nombre de param apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
-----Message d'origine----- Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1 combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*;*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare) +1) tblSep = Split(sVar,";",,vbTextCompare) Debug.Print tblSep(0) Debug.Print tblSep(1) Debug.Print tblSep(2) Debug.Print tblSep(3) Erase tblSep sVar = "" End If
Nicolas.
"Louis" a écrit dans le message de news: 6e7201c3e749$6e789150$
comment a partir de la lecture d'un fichier ini contenant une variable Mxx;10;21;25 je peux afficher 08 10 21 25 dans une liste deroulante ?
Merci ...
.
ng
Salut,
Dim sVar as String,tblSep() as String, i as Integer sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1) tblSep = Split(sVar,";",,vbTextCompare) for i=0 to ubound(tblSep) Debug.Print tblSep(i) next Erase tblSep sVar = "" End If
"Louis" a écrit dans le message de news: 7aba01c3e779$b7e71660$ Merci, mais comment je fais si je connais pas le nombre de param apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
-----Message d'origine----- Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1
combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*;*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare) Debug.Print tblSep(0) Debug.Print tblSep(1) Debug.Print tblSep(2) Debug.Print tblSep(3) Erase tblSep sVar = "" End If
Nicolas.
"Louis" a écrit
dans le message de
news: 6e7201c3e749$6e789150$
comment a partir de la lecture d'un fichier ini
contenant
une variable Mxx;10;21;25 je peux afficher 08 10 21
25
dans une liste deroulante ?
Merci ...
.
Salut,
Dim sVar as String,tblSep() as String, i as Integer
sVar = "Mxx;10;21;25"
List1.Clear
if sVar like "*=*;*" Then
sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1)
tblSep = Split(sVar,";",,vbTextCompare)
for i=0 to ubound(tblSep)
Debug.Print tblSep(i)
next
Erase tblSep
sVar = ""
End If
"Louis" <karoly.louis@cimaest.msa.fr> a écrit dans le message de news:
7aba01c3e779$b7e71660$a601280a@phx.gbl...
Merci,
mais comment je fais si je connais pas le nombre de param
apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
-----Message d'origine-----
Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1
combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String
sVar = "Mxx;10;21;25"
List1.Clear
if sVar like "*=*;*;*;*" Then
sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare)
Debug.Print tblSep(0)
Debug.Print tblSep(1)
Debug.Print tblSep(2)
Debug.Print tblSep(3)
Erase tblSep
sVar = ""
End If
Nicolas.
"Louis" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 6e7201c3e749$6e789150$a101280a@phx.gbl...
comment a partir de la lecture d'un fichier ini
contenant
une variable Mxx;10;21;25 je peux afficher 08 10 21
Dim sVar as String,tblSep() as String, i as Integer sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1) tblSep = Split(sVar,";",,vbTextCompare) for i=0 to ubound(tblSep) Debug.Print tblSep(i) next Erase tblSep sVar = "" End If
"Louis" a écrit dans le message de news: 7aba01c3e779$b7e71660$ Merci, mais comment je fais si je connais pas le nombre de param apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
-----Message d'origine----- Salut,
Essaye ceci, list1 peut être aussi bien une listbox qu'1
combobox :
/! Code non testé (car pas VB sur cette machine) /!
Dim sVar as String,tblSep() as String sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*;*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare) Debug.Print tblSep(0) Debug.Print tblSep(1) Debug.Print tblSep(2) Debug.Print tblSep(3) Erase tblSep sVar = "" End If
Nicolas.
"Louis" a écrit
dans le message de
news: 6e7201c3e749$6e789150$
comment a partir de la lecture d'un fichier ini
contenant
une variable Mxx;10;21;25 je peux afficher 08 10 21
25
dans une liste deroulante ?
Merci ...
.
ng
Au lieu de Debug.Print tblSep(i) mets List1.Additem tblSep(i)
"ng" a écrit dans le message de news:
Salut,
Dim sVar as String,tblSep() as String, i as Integer sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1) tblSep = Split(sVar,";",,vbTextCompare) for i=0 to ubound(tblSep) Debug.Print tblSep(i) next Erase tblSep sVar = "" End If
"Louis" a écrit dans le message de news: 7aba01c3e779$b7e71660$ Merci, mais comment je fais si je connais pas le nombre de param apres Mxx= (Ex: Mxx;02;......;70;71;...;80) >-----Message d'origine----- >Salut, > >Essaye ceci, list1 peut être aussi bien une listbox qu'1 combobox : > >/! Code non testé (car pas VB sur cette machine) /! > >Dim sVar as String,tblSep() as String >sVar = "Mxx;10;21;25" >List1.Clear >if sVar like "*=*;*;*;*" Then > sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare) +1) > tblSep = Split(sVar,";",,vbTextCompare) > Debug.Print tblSep(0) > Debug.Print tblSep(1) > Debug.Print tblSep(2) > Debug.Print tblSep(3) > Erase tblSep > sVar = "" >End If > >Nicolas. > >"Louis" a écrit dans le message de >news: 6e7201c3e749$6e789150$ >> comment a partir de la lecture d'un fichier ini contenant >> une variable Mxx;10;21;25 je peux afficher 08 10 21 25 >> dans une liste deroulante ? >> >> Merci ... > > >. >
Au lieu de Debug.Print tblSep(i) mets List1.Additem tblSep(i)
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
Ou7NhC85DHA.1936@TK2MSFTNGP12.phx.gbl...
Salut,
Dim sVar as String,tblSep() as String, i as Integer
sVar = "Mxx;10;21;25"
List1.Clear
if sVar like "*=*;*" Then
sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1)
tblSep = Split(sVar,";",,vbTextCompare)
for i=0 to ubound(tblSep)
Debug.Print tblSep(i)
next
Erase tblSep
sVar = ""
End If
"Louis" <karoly.louis@cimaest.msa.fr> a écrit dans le message de news:
7aba01c3e779$b7e71660$a601280a@phx.gbl...
Merci,
mais comment je fais si je connais pas le nombre de param
apres Mxx= (Ex: Mxx;02;......;70;71;...;80)
>-----Message d'origine-----
>Salut,
>
>Essaye ceci, list1 peut être aussi bien une listbox qu'1
combobox :
>
>/! Code non testé (car pas VB sur cette machine) /!
>
>Dim sVar as String,tblSep() as String
>sVar = "Mxx;10;21;25"
>List1.Clear
>if sVar like "*=*;*;*;*" Then
> sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
> tblSep = Split(sVar,";",,vbTextCompare)
> Debug.Print tblSep(0)
> Debug.Print tblSep(1)
> Debug.Print tblSep(2)
> Debug.Print tblSep(3)
> Erase tblSep
> sVar = ""
>End If
>
>Nicolas.
>
>"Louis" <anonymous@discussions.microsoft.com> a écrit
dans le message de
>news: 6e7201c3e749$6e789150$a101280a@phx.gbl...
>> comment a partir de la lecture d'un fichier ini
contenant
>> une variable Mxx;10;21;25 je peux afficher 08 10 21
25
>> dans une liste deroulante ?
>>
>> Merci ...
>
>
>.
>
Au lieu de Debug.Print tblSep(i) mets List1.Additem tblSep(i)
"ng" a écrit dans le message de news:
Salut,
Dim sVar as String,tblSep() as String, i as Integer sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)+1) tblSep = Split(sVar,";",,vbTextCompare) for i=0 to ubound(tblSep) Debug.Print tblSep(i) next Erase tblSep sVar = "" End If
"Louis" a écrit dans le message de news: 7aba01c3e779$b7e71660$ Merci, mais comment je fais si je connais pas le nombre de param apres Mxx= (Ex: Mxx;02;......;70;71;...;80) >-----Message d'origine----- >Salut, > >Essaye ceci, list1 peut être aussi bien une listbox qu'1 combobox : > >/! Code non testé (car pas VB sur cette machine) /! > >Dim sVar as String,tblSep() as String >sVar = "Mxx;10;21;25" >List1.Clear >if sVar like "*=*;*;*;*" Then > sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare) +1) > tblSep = Split(sVar,";",,vbTextCompare) > Debug.Print tblSep(0) > Debug.Print tblSep(1) > Debug.Print tblSep(2) > Debug.Print tblSep(3) > Erase tblSep > sVar = "" >End If > >Nicolas. > >"Louis" a écrit dans le message de >news: 6e7201c3e749$6e789150$ >> comment a partir de la lecture d'un fichier ini contenant >> une variable Mxx;10;21;25 je peux afficher 08 10 21 25 >> dans une liste deroulante ? >> >> Merci ... > > >. >
Merci a vous ...
-----Message d'origine----- Au lieu de Debug.Print tblSep(i) mets List1.Additem
tblSep(i)
"ng" a écrit dans le message de news:
Salut,
Dim sVar as String,tblSep() as String, i as Integer sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare) for i=0 to ubound(tblSep) Debug.Print tblSep(i) next Erase tblSep sVar = "" End If
"Louis" a écrit dans le
message de news:
7aba01c3e779$b7e71660$ Merci, mais comment je fais si je connais pas le nombre de
param
apres Mxx= (Ex: Mxx;02;......;70;71;...;80) >-----Message d'origine----- >Salut, > >Essaye ceci, list1 peut être aussi bien une listbox
qu'1
combobox : > >/! Code non testé (car pas VB sur cette machine) /! > >Dim sVar as String,tblSep() as String >sVar = "Mxx;10;21;25" >List1.Clear >if sVar like "*=*;*;*;*" Then > sVar = Mid$(sVar, Instr
(1,sVar, "=",,vbTextCompare)
+1) > tblSep = Split(sVar,";",,vbTextCompare) > Debug.Print tblSep(0) > Debug.Print tblSep(1) > Debug.Print tblSep(2) > Debug.Print tblSep(3) > Erase tblSep > sVar = "" >End If > >Nicolas. > >"Louis" a écrit dans le message de >news: 6e7201c3e749$6e789150$ >> comment a partir de la lecture d'un fichier ini contenant >> une variable Mxx;10;21;25 je peux afficher 08 10
21
25 >> dans une liste deroulante ? >> >> Merci ... > > >. >
.
Merci a vous ...
-----Message d'origine-----
Au lieu de Debug.Print tblSep(i) mets List1.Additem
tblSep(i)
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
Ou7NhC85DHA.1936@TK2MSFTNGP12.phx.gbl...
Salut,
Dim sVar as String,tblSep() as String, i as Integer
sVar = "Mxx=08;10;21;25"
List1.Clear
if sVar like "*=*;*" Then
sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare)
for i=0 to ubound(tblSep)
Debug.Print tblSep(i)
next
Erase tblSep
sVar = ""
End If
"Louis" <karoly.louis@cimaest.msa.fr> a écrit dans le
message de news:
7aba01c3e779$b7e71660$a601280a@phx.gbl...
Merci,
mais comment je fais si je connais pas le nombre de
param
apres Mxx= (Ex: Mxx=01;02;......;70;71;...;80)
>-----Message d'origine-----
>Salut,
>
>Essaye ceci, list1 peut être aussi bien une listbox
qu'1
combobox :
>
>/! Code non testé (car pas VB sur cette machine) /!
>
>Dim sVar as String,tblSep() as String
>sVar = "Mxx=08;10;21;25"
>List1.Clear
>if sVar like "*=*;*;*;*" Then
> sVar = Mid$(sVar, Instr
(1,sVar, "=",,vbTextCompare)
+1)
> tblSep = Split(sVar,";",,vbTextCompare)
> Debug.Print tblSep(0)
> Debug.Print tblSep(1)
> Debug.Print tblSep(2)
> Debug.Print tblSep(3)
> Erase tblSep
> sVar = ""
>End If
>
>Nicolas.
>
>"Louis" <anonymous@discussions.microsoft.com> a écrit
dans le message de
>news: 6e7201c3e749$6e789150$a101280a@phx.gbl...
>> comment a partir de la lecture d'un fichier ini
contenant
>> une variable Mxx=08;10;21;25 je peux afficher 08 10
21
25
>> dans une liste deroulante ?
>>
>> Merci ...
>
>
>.
>
-----Message d'origine----- Au lieu de Debug.Print tblSep(i) mets List1.Additem
tblSep(i)
"ng" a écrit dans le message de news:
Salut,
Dim sVar as String,tblSep() as String, i as Integer sVar = "Mxx;10;21;25" List1.Clear if sVar like "*=*;*" Then sVar = Mid$(sVar, Instr(1,sVar, "=",,vbTextCompare)
+1)
tblSep = Split(sVar,";",,vbTextCompare) for i=0 to ubound(tblSep) Debug.Print tblSep(i) next Erase tblSep sVar = "" End If
"Louis" a écrit dans le
message de news:
7aba01c3e779$b7e71660$ Merci, mais comment je fais si je connais pas le nombre de
param
apres Mxx= (Ex: Mxx;02;......;70;71;...;80) >-----Message d'origine----- >Salut, > >Essaye ceci, list1 peut être aussi bien une listbox
qu'1
combobox : > >/! Code non testé (car pas VB sur cette machine) /! > >Dim sVar as String,tblSep() as String >sVar = "Mxx;10;21;25" >List1.Clear >if sVar like "*=*;*;*;*" Then > sVar = Mid$(sVar, Instr
(1,sVar, "=",,vbTextCompare)
+1) > tblSep = Split(sVar,";",,vbTextCompare) > Debug.Print tblSep(0) > Debug.Print tblSep(1) > Debug.Print tblSep(2) > Debug.Print tblSep(3) > Erase tblSep > sVar = "" >End If > >Nicolas. > >"Louis" a écrit dans le message de >news: 6e7201c3e749$6e789150$ >> comment a partir de la lecture d'un fichier ini contenant >> une variable Mxx;10;21;25 je peux afficher 08 10
21
25 >> dans une liste deroulante ? >> >> Merci ... > > >. >