Bonjour à tous,


Je souhaite boucler sur tous les ListView de mon Userform pour en récupérer les noms. il y en a une centaine.

J'ai essayé avec ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Public Sub RecolteDesNomsDeListView()
 
Dim Ctrl As Control
Dim i As Integer
Dim tableau() As String
Dim Message As String
 
i = 0
Message = ""
 
    For Each Ctrl In UserFormParametrerAgent.Controls 'Le UserForm s'appel "UserFormParametrerAgent"
 
        If TypeName(Ctrl) = "ListView" Then
 
            tableau(i) = Ctrl.Name
            Message = Message & tableau(i) & vbLf 'Stock les noms les uns à la suite de autres
 
        End If
 
    Next Ctrl
 
MsgBox Message 'Affiche les noms de tous ListView de l'UserForm
 
End Sub

Cependant la MsgBox affichée est vide ... donc je pense avoir buggé quelque part ...

Merci d'avance pour votre aide !