Discussion :

[c.piette]

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 !

[eriiic]

Bonjour,

ajoute après ton for :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[c.piette]

Salut,


Ca a marché !

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


Merci à toi !