Bug listbox lors de l'ouverture du fichier excel.

Version imprimable

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:

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

04/03/2019, 21h20
clementmarcotte

Bonjour,

Sur quelle ligne ?
04/03/2019, 23h31
Patrice740

1 pièce(s) jointe(s)

Bonjour,

Avec l'explorateur d'objets :
Pièce jointe 454853
05/03/2019, 10h11
maxime00001

Citation:

Envoyé par clementmarcotte

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

Citation:

Envoyé par Patrice740

Je ne comprend pas bien, pouvez vous développer ? Merci
05/03/2019, 16h01
Patrice740

Citation:

Envoyé par maxime00001

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 = .... »
05/03/2019, 16h48
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:

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é ??!!

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:

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

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:

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.

05/03/2019, 18h43
maxime00001

Vous êtes beaucoup trop forts pour moi haha, merci beaucoup le problème est résolu !
Merci encore !