Discussion :

[c.piette]

Bonjour à tous,


J'essaie de boucler sur tous les ListView de mon UserForm pour récupérer tous leur nom.

Voici mon code:

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
Private Sub CommandButtonTestTypeCtrl_Click()
 
Dim Ctrl As Control
Dim i As Integer
 
i = 0
Message = ""
 
    For Each Ctrl In UserFormParametrerAgent.Controls 'Le UserForm s'appel "UserFormParametrerAgent"
 
        If TypeName(Ctrl) = "ListView4" Then
 
            Sheets("Test").Cells(i, 1).Value = Ctrl.Name 'Ligne qui bug lors du débogage
 
        End If
 
    Next Ctrl
 
End Sub

Cependant le message d'erreur 1004 : "erreur définie par l'application ou par l'objet" s'affiche...


Des idées ?


merci d'avance

[Captain_JS]

Tu initialise i à 0, donc quand tu travaille sur la cellule (0, 1) ça plante
Initialise i à 1 et ça devrait mieux se passer

[c.piette]

Bonjour,

Ca fonctionne magnifiquement bien ! Et au passage j'avais en plus oublié d'incrémenter i !


Bonne journée