contenu zone de liste en boucle ?????

17 réponses

LOU

31/08/2004 à 13:34

bonjour
j'ai une zone de liste1 avec 4 noms
louis
jean
pol
andre
quand je selectionne un nom dans ma liste
avec une comande sur clik j'execute ce code:
qui envoi un message sur le resau (a la personne choisie)

Dim send As String
computer = Liste1.ItemData(Liste1.ListIndex)
send = "net send " & computer & " " & Text1

cela fonctionne tres bien

j'aimerais que lorsque je mets true une case a cocher

qu'il envoie le message a tous les noms qui sont dans la zone de liste1
genre de boucle ????
sais pas comment faire
merci de votre aide

7 réponses

1 2

Raymond [mvp]

31/08/2004 à 18:39

Tu n'aurais pas pu me dire que je te racontais une bétise depuis plusieurs
heures ?
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
STRSEND = "net send " & Me!Liste1.ItemData(I) & " " & Text1
MsgBox STRSEND
Next I

c'est Me!Liste1.ItemData(I) et non Selected
Selected veut dire selectuonné donc true donc -1
toutes mes excuses.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"LOU" a écrit dans le message de
news:4134a645$0$337$

j'ai mis ton code sur clik d'une commande

et voila ce que j'obtiens dans le msgbox
1er msg
net send -1 uuuuuu (uuuu= message)

2eme msg
net send -1 uuuuuu (uuuu= message)

3eme msg
net send -1 uuuuuu (uuuu= message)

or dans ma liste j'ai
angelique
domi
luigi

Pierre CFI [mvp]

31/08/2004 à 18:42

bonjour
hum c'est ItemData
strSend = "net send " & Me!Liste1.ItemData(I) & " " & Text1
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"LOU" a écrit dans le message de news:4134a645$0$337$

j'ai mis ton code sur clik d'une commande

et voila ce que j'obtiens dans le msgbox
1er msg
net send -1 uuuuuu (uuuu= message)

2eme msg
net send -1 uuuuuu (uuuu= message)

3eme msg
net send -1 uuuuuu (uuuu= message)

or dans ma liste j'ai
angelique
domi
luigi
?????????????? la est le probleme
pourtant j'ai bien selectionné les trois noms dans la liste
(qui est bien en selection multiple)
désolé de t'embeter avec ça en principe ça doit aller tout seul ce truc
comprends pas !!!!

"Raymond [mvp]" a écrit dans le message de
news:
si c'est la liste on va y arriver.
fais ceci:
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
strSend = "net send " & Me!Liste1.Selected(I) & " " & Text1
msgbox strsend
Next I
est-ce que tu affiches bien toutes tes sélections et est-ce que le message
est bon ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"LOU" a écrit dans le message de
news:41349584$0$341$
hi
non pas de message d'erreur

j'ai l'impression qu'il ne selectionne pas les noms dans la liste
je ne sais envoyer le message qu'a une personne

or avec vb6 si je coche l'option je sais envoyer sur tout les pc du
reseau

(qui sont dans la liste) en une seule fois
je ne comprends pas parceque je ne suis pas tres expert

encore merci

Raymond [mvp]

31/08/2004 à 18:45

promis, je ne ferais plus de copier/coller et j'arrête le p'tit blanc du
matin.

heureusement que je l'ai vu avant ta réponse ......

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Pierre CFI [mvp]" a écrit dans le message de
news:

bonjour
hum c'est ItemData
strSend = "net send " & Me!Liste1.ItemData(I) & " " & Text1
--
Pierre CFI

Pierre CFI [mvp]

31/08/2004 à 18:50

moi j'avais vu, mais je laissais Raymond s'enfoncer, (comme la pub "je l'aurais...")

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message de news:

Tu n'aurais pas pu me dire que je te racontais une bétise depuis plusieurs
heures ?
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
STRSEND = "net send " & Me!Liste1.ItemData(I) & " " & Text1
MsgBox STRSEND
Next I

c'est Me!Liste1.ItemData(I) et non Selected
Selected veut dire selectuonné donc true donc -1
toutes mes excuses.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"LOU" a écrit dans le message de
news:4134a645$0$337$
j'ai mis ton code sur clik d'une commande

et voila ce que j'obtiens dans le msgbox
1er msg
net send -1 uuuuuu (uuuu= message)

2eme msg
net send -1 uuuuuu (uuuu= message)

3eme msg
net send -1 uuuuuu (uuuu= message)

or dans ma liste j'ai
angelique
domi
luigi

Raymond [mvp]

31/08/2004 à 19:02

Pierre CFI [mvp] avait écrit le 31/08/2004 :

moi j'avais vu, mais je laissais Raymond s'enfoncer, (comme la pub "je
l'aurais...")

--
Pierre CFI

:-@ :-?

il y en a qui auraient corrigé immédiatement. plus de solidarité
maintenant, tout fout le camp. :D

--
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

Pierre CFI [mvp]

31/08/2004 à 19:09

le probléme vient de la conjoncture, pas assez à bouffer pour tout le monde...:o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message de news:

Pierre CFI [mvp] avait écrit le 31/08/2004 :
moi j'avais vu, mais je laissais Raymond s'enfoncer, (comme la pub "je
l'aurais...")

--
Pierre CFI

:-@ :-?

il y en a qui auraient corrigé immédiatement. plus de solidarité
maintenant, tout fout le camp. :D

--
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

LOU

31/08/2004 à 19:54

ha ha !!!
on c'est bien amusés, quel flip
bon ça marche
encore un grand merci

"Raymond [mvp]" a écrit dans le message de
news:

promis, je ne ferais plus de copier/coller et j'arrête le p'tit blanc du
matin.

heureusement que je l'ai vu avant ta réponse ......

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
hum c'est ItemData
strSend = "net send " & Me!Liste1.ItemData(I) & " " & Text1
--
Pierre CFI

1 2

contenu zone de liste en boucle ?????

7 réponses

Veuillez sélectionner un problème