XL 2016 Atteindre toutes les listbox (for each ?)

StanSigma

XLDnaute Junior
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.
 

Pièces jointes

  • Copie de Analyse entrepôt - NoName.xlsm
    490.6 KB · Affichages: 9

_Thierry

XLDnaute Barbatruc
Repose en paix
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
 

Pièces jointes

  • XLD_StanSigma_Analyse_Entrepôt_Mass_ListBoxes_Form_Control_v00_xlsm.xlsm
    502.7 KB · Affichages: 6

_Thierry

XLDnaute Barbatruc
Repose en paix
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


1595535588864.png


Bonne soirée
@+Thierry

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

1595535767343.png
 

Discussions similaires

Réponses
6
Affichages
707