Erreur 424, objet requis...pourquoi?

[Callimea]

Bonjour,

Je comprends vraiment pas pourquoi j'obtiens cette erreur d'objet, j'ai beau faire des modifs, rien ne fonctionne. Mais je ne vois pas d'erreur dans l'appellation de ma variable... Et vous?


Private Sub Worksheet_Change(ByVal Target As Range)
Dim NumSE As Variant, n As Long
n = Target.Row
For x = 1 To 17
If Cells(n, 1) <> "" And Cells(n, 6) = "" Or Cells(n, 7) = "En attente" Or Cells(n, 7) = "" Or Cells(n, 9) = "" Or Cells(n, 11) = "" Then
Cells(n, x).Interior.ColorIndex = 3
End If
If Cells(n, 4) = "canceled" And Cells(n, 17) = "Validé" Then
Cells(n, x).Interior.ColorIndex = 41
End If
If Cells(n, 4) = "canceled" And Cells(n, 17) = "Validé" Then
Set NumSE = Cells(n, 6)
End If
If NumSE Is Change Then ' Lerreur ce produit sur cette ligne
For A = 9 To 100
For b = 1 To 17
If Cells(A, 6) = NumSE Then
Cells(A, b).Interior.ColorIndex = 41
End If
Next b '
Next A '
End If
Set NumSE = Nothing
Next x '
End Sub



Merci d'avance pour votre aide

 

[zeb]

Bonjour,

Merci de respecter le règlement et de mettre ton code entre les balises

..[[i]/[/i]code].

 

[drul]

Bonjour,

Je comprends vraiment pas pourquoi j'obtiens cette erreur d'objet, j'ai beau faire des modifs, rien ne fonctionne. Mais je ne vois pas d'erreur dans l'appellation de ma variable... Et vous?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NumSE As Variant, n As Long
n = Target.Row
For x = 1 To 17
If Cells(n, 1) <> "" And Cells(n, 6) = "" Or Cells(n, 7) = "En attente" Or Cells(n, 7) = "" Or Cells(n, 9) = "" Or Cells(n, 11) = "" Then
Cells(n, x).Interior.ColorIndex = 3
End If
If Cells(n, 4) = "canceled" And Cells(n, 17) = "Validé" Then
Cells(n, x).Interior.ColorIndex = 41
End If
If Cells(n, 4) = "canceled" And Cells(n, 17) = "Validé" Then
Set NumSE = Cells(n, 6)
End If
If NumSE Is Change Then '[b] Lerreur ce produit sur cette ligne[/b][u][/u]
For A = 9 To 100
For b = 1 To 17
If Cells(A, 6) = NumSE Then
Cells(A, b).Interior.ColorIndex = 41
End If
Next b '
Next A '
End If
Set NumSE = Nothing
Next x '
End Sub

Merci d'avance pour votre aide

Vu que tu initialise NumSE sous un if, si les conditions de ce if ne sont pas réaliser, alors NumSE est vide et ton code plante ...

Un peu d'indentation ne ferait pas de mal a ton code ...