liste modifiable multi choix

Bonjour.

Qu'appelles-tu conserver l'information ? placer les sélections dans une
autre liste, les mettre dans un String , etc.... ou simplement laisser la
liste en l'état ?

--
@+
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


"charley" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:351301c48f59$aa3ea4f0$a501280a@phx.gbl...

Bonjour,

Comment peut-on faire une liste multi-choix dans un
formulaire et conserver l'information.

Merci

Bonjour,

Si j'ai bien compris ta demande qui est un peu succinte.
Tu crées une zone de liste, et dans la propriété "Selection multiple" tu
mets "simple" ou "étendue" (la première permet une selection multiple en
cliquant sur les éléments à choisir, mais sans les touches ctrl et shift, la
deuxième permet de selectionner des plages avec shift)
En revanche qu'entends-tu par conserver l'information ? Enregistrer la
selection dans une table ? dans quel but ? quelles seraient les données ?
Soit un peu plus précis sur ce point pour qu'on puisse t'aider au mieux.

Arnaud

"charley" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:351301c48f59$aa3ea4f0$a501280a@phx.gbl...

Bonjour,

Comment peut-on faire une liste multi-choix dans un
formulaire et conserver l'information.

Merci

Désolé si je n'ai pas été assez précis. Je veux conserver
les valeurs soit dans une zone de texte ou directement
dans la table.

Merci

-----Message d'origine-----
Bonjour.

Qu'appelles-tu conserver l'information ? placer les
sélections dans une

autre liste, les mettre dans un String , etc.... ou
simplement laisser la

liste en l'état ?

--
@+
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


"charley" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:351301c48f59$aa3ea4f0$a501280a@phx.gbl...

Bonjour,

Comment peut-on faire une liste multi-choix dans un
formulaire et conserver l'information.

Merci

.

dans un champ, oui, mais dans une table comment ? une sélection = un
enregistrement ? la table n'est pas reliée à la liste au moins ?
pour un champ:
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
Champ = Champ & Me!Liste1.Selected(I) & "/"
Next I
chaque sélection sera séparé par / (exemple)
--
@+
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


<anonymous@discussions.microsoft.com> a écrit dans le message de
news:359a01c48f60$d4393d90$a501280a@phx.gbl...
Désolé si je n'ai pas été assez précis. Je veux conserver
les valeurs soit dans une zone de texte ou directement
dans la table.

Merci

Voici mon code

Private Sub Commande95_Click()
Dim varI As Variant

If Me.Modèles.ItemsSelected.Count = 0 Then
MsgBox "Aucun modèles n'a été sélectionné"
Else
For Each varI In Me!Modèles.ItemsSelected
Texte91 = Texte91 & Me!Modèles.Selected(varI) & "/"
Next varI
End If
End Sub

ca fonctionne , par contre j'ai la valeur -1 à chaque fois
que je sélectionne une valeur dans la liste exemple -1/-1

Pourquoi?

Merci beaucoup

-----Message d'origine-----
dans un champ, oui, mais dans une table comment ? une
sélection = un

enregistrement ? la table n'est pas reliée à la liste au
moins ?

pour un champ:
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
Champ = Champ & Me!Liste1.Selected(I) & "/"
Next I
chaque sélection sera séparé par / (exemple)
--
@+
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


<anonymous@discussions.microsoft.com> a écrit dans le
message de

news:359a01c48f60$d4393d90$a501280a@phx.gbl...
Désolé si je n'ai pas été assez précis. Je veux conserver
les valeurs soit dans une zone de texte ou directement
dans la table.

Merci


.

je pense que c'est une question de colonnes dans la liste. on récupère ici
le colonne 0 par défaut (1ere colonne) ta donnée doit être peut-être dans
une autre colonne ?
si c'est ailleurs tu fais : Me!Modèles.Selected(varI).Column(?) (ça
commence à 0)
--
@+
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


<anonymous@discussions.microsoft.com> a écrit dans le message de
news:0b2d01c48f6f$c7026020$a401280a@phx.gbl...
Voici mon code

Private Sub Commande95_Click()
Dim varI As Variant

If Me.Modèles.ItemsSelected.Count = 0 Then
MsgBox "Aucun modèles n'a été sélectionné"
Else
For Each varI In Me!Modèles.ItemsSelected
Texte91 = Texte91 & Me!Modèles.Selected(varI) & "/"
Next varI
End If
End Sub

ca fonctionne , par contre j'ai la valeur -1 à chaque fois
que je sélectionne une valeur dans la liste exemple -1/-1

Pourquoi?

Merci beaucoup

deux fois la même erreur le même jour sur la même fonction ( normal
copier/coller):
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
Champ = Champ & Me!Liste1.ItemData(I) & "/"
Next I

C'est Me!Liste1.ItemData(I) qu'il faut mettre.
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

Ça fonctionne !! MERCI !!!

-----Message d'origine-----
deux fois la même erreur le même jour sur la même
fonction ( normal

copier/coller):
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
Champ = Champ & Me!Liste1.ItemData(I) & "/"
Next I

C'est Me!Liste1.ItemData(I) qu'il faut mettre.
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


.