listbox à coche (plusieurs questions basiques)

[david33]

Bonjour tous le monde

J'ai plusieur question qui concerne le meme point (je sais pas si il faut créer plusieur sujet??)

1°) Comment fait on pour cocher toutes les cases d'une listbox à case par code

2°) pour les décocher

3°) plus compliqué :
Lire uniquement les lignes qui sont coché et inscrire leur noms dans un message, validé, puis passer a la deuxième ligne coché et ainsi de suite.


Merci par avance, j'ai cherché dans les archives mais je n'ai pas trouvé ce que je voulais

David

 

[Hervé]

bonjour david, salut le forum

pour la question 1, essayes comme ceci :

Dim i As Byte

For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = True
Next i

pour la 2, il suffit de remplacer dans la question 1 le true par false.

pour la 3 :

Dim i As Byte

For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then MsgBox ListBox1.List(i)
Next i

salut

 

[david33]

Merci beaucoup Hervé

Tous fonctionne parfaitement.