Discussion :

[ben_skywalker]

dans une zone de liste, ou il peut y avoir plusieurs selection aléatiore ou non
ex :
je sélectionne 1, 3, 9 à 20, 35 ect...
comment peut on récupérer les valeurs, j'ai beau essayer, et j'ai ce message d'erreur : "erreur 2480 vous avez fait référence à une prpriété à l'aide d'un argument numérique qui ne fait pas partie des numéros de la propriéte de la collection. je veux tester si le numéro d'indice est sélectioné ou pas pour ensuite faire une insertion dans une table. j'utilise ce code :

Code :

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

Me.MaZL.ItemsSelected(n) = true

[Faw]

Code :

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

1
2
3
4
Dim varElt As Variant
For Each varElt In Me.Liste0.ItemsSelected
MsgBox Me.Liste0.ItemData(varElt)
Next varElt

Le sujet est abordé dans des dizaines et dizaines de topics.

[ben_skywalker]

pourquoi utiliser varElt en Variant, je n'est que des num??

[ben_skywalker]

il y a ce code que je comprends mieux et qui devrais fonctionner comme je le veux. en le remaniant quelque peut.

Code :

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

1
2
3
4
5
6
7
8
9
Dim I As Integer
With MaListe
  For I = 0 To .ListCount - 1
    If .Selected(I) Then
      CurrentDb.Execute "INSERT INTO Clients (NumClient,NomClient) VALUES (" & _
      .Column(0, I) & "," & Chr(34) & .Column(1, I) & Chr(34) & ")"
    End If
  Next I
End With

je vous tient au courant.

[ben_skywalker]

Voici ce que sa donne :

Code :

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

1
2
3
4
5
6
 
For i = 0 to Me.Maliste.Listcount -1
     If Me.Maliste.Selected(i) then
          MsgBox Me.Maliste.itemData(i)
     End If
Next