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.
Et en complémént Stan, pour lister en loop tes noms de ListBox :
VB:
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...