Réinitialiser une ListBox à choix multiples

[marmotte18]

Bonjour,

J'ai récupéré sur ce forum, la méthode qui permet de construire une ListBox à choix multiples. J'en ai fait une petite fiche technique pour mon usage personnel.

Il me manque de savoir comment il faut procéder pour enlever par VBA tous les choix faits antérieurement sans cliquer à l'intérieur de la liste.

Merci par avance

 

[laetitia90]

Re : Réinitialiser une ListBox à choix multiples

bonjour marmotte18 le forum tu peus faire comme cela !! tu clique sur une cellule e1 a e12

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("e1:e12")) Is Nothing Then
For i = 0 To Me.ListBox1.ListCount - 1
 If Me.ListBox1.Selected(i) = True Then Me.ListBox1.Selected(i) = False
Next i: End If
End Sub

eventuellement le code tu peus le mettre dans un bouton ou en cliquant sur une cellule specifique

 

[Fo_rum]

Re : Réinitialiser une ListBox à choix multiples

Salut

puisque c'est fait (avec le String d'Hasco).

 

[marmotte18]

Re : Réinitialiser une ListBox à choix multiples

Bonjour laetitia90 et Fo_rum,

Merci pour vos 2 solutions. Elles fonctionnent admirablement bien !

 

[marmotte18]

Re : Réinitialiser une ListBox à choix multiples

Bonjour,

Existe-t-il une possibilité pour que cette réinitialisation soit automatique lorsqu'on ouvre le fichier ? => pas de clic ou double clic sur la plage E1:E12, pas de clic sur le bouton "Réinitialise"

 

[milpom]

Re : Réinitialiser une ListBox à choix multiples

Salut
Mets ce code dans 'This workbook'

Private Sub Workbook_Open()
'Réinitialise la table interne et les choix de la ListBox quand on clique sur le bouton "réinitialise"
'-----------------------------------------------------------------------------------------------------
    
    [E1:E12] = 0
    With Sheets("feuil1").ListBox1
        For I = 0 To .ListCount - 1
            If .Selected(I) = True Then .Selected(I) = False
        Next I
    End With
End Sub

Normalement, ça marche.

a+

 

[marmotte18]

Re : Réinitialiser une ListBox à choix multiples

Bonjour milpom,

Effectivement, cela fonctionne très bien ! UN GRAND MERCI !!!