Discussion :

[maxime00001]

Bonjour, je rencontre un problème lors de l'ouverture de mon fichier excel.
Comme dit dans le titre à chaque ouverture je doit effectuer un débogage via VBA concernant une listbox.
Cela affiche : Erreur d’exécution '424' Objet requis.

Pouvez-vous me dire de quoi cela peut-il venir ?

Voici un extrais du code qui coince en question :

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
26
Private Sub ListBox1_Click()
 
ListBox2.ListFillRange = ListBox1.Value
ListBox2.ListIndex = 0
 
ListBox1.IntegralHeight = False
'ListBox1.Width = 150
'ListBox1.Left = 650
'ListBox1.Height = 125
 
ListBox2.IntegralHeight = False
'ListBox2.Width = 500
'ListBox2.Left = 650
'ListBox2.Height = 350
 
        For j = 0 To 1
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = "-"
        Next j
        For j = 2 To 2
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = Cells(2, 20)
        Next j
        For j = 3 To 4
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = "-"
        Next j
 
End Sub

[clementmarcotte]

Bonjour,

Sur quelle ligne ?

[maxime00001]

Le problème se produit sur la deuxième ligne

Je ne comprend pas bien, pouvez vous développer ? Merci

[Patrice740]

Bonjour,

Avec l'explorateur d'objets :

[Patrice740]

Je ne comprend pas bien, pouvez vous développer ? Merci

En utilisant l'explorateur d'objet (touche raccourci F2) tu peux constater :
1) L'objet Listbox ne possède pas de propriété ListFillRange
2) La propriété ListFillRange concerne un objet ControlFormat ou un Object OLEObject

Il est donc normal que VBA ne trouve pas le bon objet pour « ListBox2.ListFillRange = .... »

[zenpbb]

Bonjour,
C'est vrai qu'avec les contrôles ActiveX on a parfois des comportements bizarres...
J'ai reproduit le problème (uniquement au démarrage), on peut le contourner en ajoutant un test

Code :

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

1
2
3
4
5
6
7
Private Sub ListBox1_Click()
    If Not IsEmpty(ListBox2) Then
        ListBox2.ListFillRange = ListBox1.Value
        ListBox2.ListIndex = 0
    End If
    '...
End Sub

C'est comme si à l'ouverture du classeur, la sub ListBox1_Click était exécutée alors que l'objet ListBox2 n'était pas encore instancié ??!!

[maxime00001]

Bonjour,
Merci beaucoup, j'ai mis votre code avant le code existant cependant le bug est encore la...
Peut être est-ce moi qui ne l'ai pas bien inséré ou autres, pouvez vous me dire si cela vient de moi ?

Code VBA :

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
26
27
28
29
30
31
32
33
34
35
Private Sub ListBox1_Click()

 If Not IsEmpty(ListBox2) Then
        ListBox2.ListFillRange = ListBox1.Value
        ListBox2.ListIndex = 0
 End If
ListBox2.ListFillRange = ListBox1.Value

 
ListBox2.ListIndex = 0

ListBox1.IntegralHeight = False
'ListBox1.Width = 150
'ListBox1.Left = 650
'ListBox1.Height = 125

ListBox2.IntegralHeight = False
'ListBox2.Width = 500
'ListBox2.Left = 650
'ListBox2.Height = 350
           
        For j = 0 To 1
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = "-"
        Next j
        For j = 2 To 2
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = Cells(2, 20)
        Next j
        For j = 3 To 4
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = "-"
        Next j
 
 


End Sub

[zenpbb]

En fait, il faut conditionner l'exécution de toutes les lignes faisant intervenir Listbox2 au fait que l'objet ListBox2 soit bien défini.
Ton code légèrement remanié peut donc donner ça

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
26
27
28
Private Sub ListBox1_Click()
 
    ListBox1.IntegralHeight = False
    'ListBox1.Width = 150
    'ListBox1.Left = 650
    'ListBox1.Height = 125
 
    If Not IsEmpty(ListBox2) Then
        ListBox2.ListFillRange = ListBox1.Value
        ListBox2.ListIndex = 0
 
        ListBox2.IntegralHeight = False
        'ListBox2.Width = 500
        'ListBox2.Left = 650
        'ListBox2.Height = 350
    End If
 
    For j = 0 To 1
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = "-"
    Next j
    For j = 2 To 2
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = Cells(2, 20)
    Next j
    For j = 3 To 4
        Cells(500, j + 1).End(xlUp).Offset(1, 0) = "-"
    Next j
 
End Sub

Je ne peux pas tester actuellement, mais comme ça, ça devrait passer.