Objet spécifié introuvable

[Luc]

Bonjour le forum,

Dans le code suivant j'ai : « Objet spécifié introuvable » ?

Quelqu'un peut m'aider ? Merci

Private Sub Combo3_Change()
Dim tabtempachat As Variant
Dim tabtempachat1 As Variant
Dim O, N, P, Q As Integer

With Worksheets('Feuil1')
O = .Range('a15000').End(xlUp).Row
tabtempachat = .Range('A2:k' & O).Value
End With

For O = 1 To UBound(tabtempachat, 1)
If tabtempachat(O, 1) = CStr(Me.Combo1.Value) And tabtempachat(O, 2) = CStr(Me.Combo2.Value) _
And tabtempachat(O, 3) = CStr(Me.Combo3.Value) Then

For N = 1 To 4
If tabtempachat(O, N + 3) <> '' Then
Controls('ListBox' & N).AddItem tabtempachat(O, N + 3)
End If
Next N

With Worksheets('Feuil1')
Q = .Range('a15000').End(xlUp).Row
tabtempachat1 = .Range('a2:k' & Q).Value
End With

For Q = 1 To UBound(tabtempachat1, 1)
If tabtempachat1(Q, 1) = CStr(Me.Combo1.Value) And tabtempachat1(Q, 2) = CStr(Me.Combo2.Value) _
And tabtempachat1(Q, 3) = CStr(Me.Combo3.Value) Then
For P = 1 To 1
If tabtempachat1(Q, P + 10) <> '' Then
Controls('ListBox5' & P).AddItem tabtempachat1(Q, P + 10)
End If
Next P
End If

Next Q
End If
Next O
End Sub

 

[Jam]

Salut Luc,

2 choses:
La première: Où ça ???

La seconde:
Variant = beurk, beurk, beurk ! Utilise si possible le format approprié. Cela te permettra de mieux trouver certain problème.
Autre chose:
Dim O, N, P, Q As Integer signifie que seule Q est un integer, O, N P sont des Variant (aïe) car VBA n'accepte pas cette façon de déclarer les variables.

Bon courage