Boucler sur les ListView d'un Userform

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:

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 !

Bonjour,

ajoute après ton for :

Code:

Debug.Print TypeName(Ctrl)

et regarde dans la fenêtre d'exécution le type.
Et il faudrait dimensionner ton tableau et incrémenter i dans ta boucle.

eric

Quel est le type d'un ListView

Salut,

Ca a marché !

Le type des ListView (ou en tout cas de celui que j'ai utilisé) est "ListView4".

Merci à toi !