ListBox

Question

Bonjour à tous, qui pourrai me dire comment faire pour que quand je coche une CheckBox, tous les éléments de ma listBox soient cochés. Ma ListBox est en style " checkbox ". Et comment donnée du code aux éléments de ma ListBox.

Merci de vos réposes.

mortalino · Answer

Salut, voici comment sélectionner Tous les éléments d'une ListBox (et donc les cocher) : Dim i As Integer With ListBox1 For i = 0 To .ListCount - 1 .Selected(i) = True Next i End With ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

ben_singhi · Answer

Merci beaucoup, et pour ce qui est de la programmation des éléments de la liste ?

mortalino · Answer

Ben je ne sais pas ce que tu veux faire ! 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

ben_singhi · Answer

Bha ma ListBox est en style " CheckBox " donc y a les petites cases que l'on peut cocher.  Et quand une des ces cases est coché, elle doit ouvrir une feuille, j'ai 4 items dans ma liste.

mortalino · Answer

Voici un bout de code, en espérant que c'est bien cela que tu cherches : Private Sub ListBox1_Change() If ListBox1.ListIndex = 0 Then ' TaForm.Show ou Sheets("NomFeuille").Activate ElseIf ListBox1.ListIndex = 1Then ' TaForm.Show ou Sheets("NomFeuille").Activate ElseIf ListBox1.ListIndex = 2 Then ' TaForm.Show ou Sheets("NomFeuille").Activate ElseIf ListBox1.ListIndex = 3Then ' TaForm.Show ou Sheets("NomFeuille").Activate End If End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

ben_singhi · Answer

Merci bien pour ton aide. Et bonne soirée.

ListBox

6 réponses

Votre réponse

Discussions similaires