Discussion :

[antoine0207]

Bonjour deux petites questions

Alors question 1
Comment ajouter une valeur à une liste ?

QUestion 2
COmment entrer dans un champ plusieurs valeurs d'une liste

[Ce que j'ai fait Question 1 ]
si on sait déja la valeur on écrit (cf faq)

Me!MyList.RowSource=Me!MyList.RowSource & ";NouvelElement"

Mais si je veux faire saisir cette valeur par l'utilisateur coment je fais
j'ai essayé

Me!MyList.RowSource=Me!MyList.RowSource & Me!Texte89

Mais chou blanc ...

J'ai aussi essayé de créer une variable locale str et de faire

Me!MyList.RowSource=Me!MyList.RowSource & ";[str]"

Mais non plus

[Ce que j'ai fait question 2]
Une commande sur un bouton

Private Sub Valider_Click()
Dim VarLr As Variant
Dim StrResult As String
For Each VarLr In Me![Liste85].ItemsSelected
StrResult = StrResult & VarLr & ";"
Next VarLr
Me![nature des locaux] = StrResult
End Sub

je suis arrivé à un résultat mais quand je sélectionne par exemple les 2 pemieres valeurs qui sont disons "arbre" et "panda"
et bah au lieu de me sortir arbre;panda;
il me sort 0;1; (numéro de la valeur dans la liste)
peut etre le "Me!MaListe.ItemsSelected" sélectionne le numéro de la valeur ?

[Arkham46]

slt,

pour la 1 :

Code avec un contrôle :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Me!MyList.RowSource=Me!MyList.RowSource & ";" & Me!Texte89

Code avec une variable :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Me!MyList.RowSource=Me!MyList.RowSource & ";" & str

il peut être utile de rajouter ensuite un rafraichissement de la liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me!MyList.RowSource.Requery

pour la 2 :
ben c'est une question par message
même si ce sont des petites questions c'est bien plus pratique

[antoine0207]

Salut, merci beacoup pour la question 1

pour la question 2 je ne vois pas trop ce que tu veux dire en sachant que ce que je voudrais faire (mais tu as l'air de me proposer une autre manière ce qui irait aussi) c'est sélectionner dans ma liste plusieurs valeurs cliquer sur un bouton qui les entre dans un champ d'une table séparés d'un ;

[scorpion1611]

je suis arrivé à un résultat mais quand je sélectionne par exemple les 2 pemieres valeurs qui sont disons "arbre" et "panda"
et bah au lieu de me sortir arbre;panda;
il me sort 0;1; (numéro de la valeur dans la liste)
peut etre le "Me!MaListe.ItemsSelected" sélectionne le numéro de la valeur ?

Vérifie peut-être au niveau des propriétés de ta liste, le numéro de la colonne liée
Par exemple :
tu as 2 colonnes
0 arbre
1 panda

Si colonne liée = 1 alors résultat = 0 et 1
Si colonne liée = 21 alors résultat = arbre et panda

[antoine0207]

malheuresment je n'ai qu'une colonne car c'est une liste de valeurs

[Arkham46]

Ma remarque sur la question 2 c'était juste pour dire que si tu poses plusieurs questions dans le même message ça devient vite le bordel dans les réponses qui se croisent.
Une question par message c'est la règle

Sinon pour l'utilisation de ItemSelected fais une recherche dans le forum, tu trouveras ce qu'il faut.

[scorpion1611]

essaye ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim VarLr As Variant
Dim StrResult As String
For Each VarLr In Me![Liste85].ItemsSelected
StrResult = StrResult & Me![Liste85].ItemData(VarLr) & ";"
Next VarLr
Me.Me![nature des locaux] = StrResult

En gras, la partie que j'ai changé

[antoine0207]

Il fallait méler les deux en fait

Me.Liste85.ItemData (Me.Liste85.ItemsSelected(varLr))

Merci à tous les deux

Bonne journée

[antoine0207]

Ca marche

Private Sub Valider_Click()
Dim varLr As Variant
Dim StrResult As String
For Each varLr In Me![Liste85].ItemsSelected
StrResult = StrResult & Me.Liste85.ItemData(Me.Liste85.ItemsSelected(varLr)) & " ; "
Next varLr
Me![nature des locaux] = StrResult
End Sub

sauf que il marche que si je selectionne le premier ou les deux premiers ou les 3 premiers de la liste (etc)

si je selectionne le 2eme et le 3eme ou le 1er et le 4eme (etc)
ça marche pas

[antoine0207]

Donc alors pour résumer

Je veux toujours faire une selection multiple

avec

Private Sub Valider_Click()
Dim varLr As Variant
Dim StrResult As String
For Each varLr In Me![Liste85].ItemsSelected
StrResult = StrResult & Me.Liste85.ItemData(Me.Liste85.ItemsSelected(varLr)) & " ; "
Next varLr
Me![nature des locaux] = StrResult
End Sub

Ca ne marche que pour les premiers lots (1 et 2 ; ou 1 et 2 et 3)
et ca ne marche pas pours des lots disjoints et ne parant pas de 1 (1 et 3 ; ou 2 et 4)

A votre avis, qu'est ce qui cloche ?

[antoine0207]

Ma remarque sur la question 2 c'était juste pour dire que si tu poses plusieurs questions dans le même message ça devient vite le bordel dans les réponses qui se croisent.
Une question par message c'est la règle

Sinon pour l'utilisation de ItemSelected fais une recherche dans le forum, tu trouveras ce qu'il faut.

tu as raison je mets resolu et je la pose dans un autre post