XL 2016 Atteindre toutes les listbox (for each ?)

[StanSigma]

Bonjour,

Je suis à la recherche d'un code pour pouvoir atteindre en boucle chaque zone de liste de mon workbook.
Mon cas concret est que je souhaite au travers d'une macro pouvoir désélectionner tous les champs de chacune de mes listbox (sélection multiple).
Voici mon fichier ci-joint.
Je n'arrive pas à les atteindre par leur noms car je ne sais pas comment modifier ceux-ci ni même trouver leur liste de noms.

 

[_Thierry]

Bonsoir @StanSigma , le Forum

Ah oui ca me dit quelque chose ce fichier...
Voilà "Léon le nettoyeur" en masse et en Loop des selections de tes ListBoxes Form.Controls...

Il re restera à y ajouter tes macro adéquates pour le Tableau...

Bonne soirée
@+Thierry

 

[_Thierry]

Et en complémént Stan, pour lister en loop tes noms de ListBox :

Sub Mass_Listboxes_Form_Control_Names()
Dim WS As Worksheet
Dim Lbx  As ListBox
Dim i As Integer
Dim MyList As String

Set WS = ThisWorkbook.Worksheets("GR1")

For Each Lbx In WS.ListBoxes
    MyList = MyList & Lbx.Name & vbCrLf

Next

MsgBox MyList

End Sub

Bonne soirée
@+Thierry

Et pour renommer une ListBox , tu la sélectionnes et en haut à gauche....... valider avec Entrée...

 

[StanSigma]

ca fonctionne nickel merci