erreur d'execution "91"

[eduraiss]

Bonjour le forum

Voila j'ai un code qui verifie les postes dans un fichier ce code marche trés bien sous excel 2003 mais bug "erreur d'exécution"au niveau de "With ActiveSheet" sous excel 2010
Voici le code
Merci de votre aide

Sub VerifPoste()
Dim Nom As String, Poste As String
Dim Lg As Integer, Col As Integer, cel As Variant, l As Variant, c As Variant
With ActiveSheet
For Each cel In Range("A2:A65536").SpecialCells(xlCellTypeConstants)
Nom = cel.Value
Poste = Range("D" & cel.Row).Value
Lg = cel.Row
Set l = Range("L:L").Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
Set c = Range("2:2").Find(Poste, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing And Not l Is Nothing Then
Col = c.Column
If Not Cells(l.Row, c.Column) <> "" Then
cel.Interior.ColorIndex = 38

Else
cel.Interior.ColorIndex = xlNone
End If
End If
Next
End With
End Sub

 

[GeoTrouvePas]

Re : erreur d'execution "91"

Bonjour,

Difficile à dire avec si peu d'éléments. Tu n'aurais pas un fichier exemple ?

++

P.S. : N'oublie pas le balise code pour faciliter la lecture.

 

[JNP]

Re : erreur d'execution "91"

Bonjour le fil 🙂,
De toute façon, le With ActiveSheet ne sert doublement à rien vu qu'il n'est pas utilisé ensuite (aucun "." devant les Range), et qu'en plus, de toute façon, par défaut, c'est la feuille active qui est utilisé 🙄...
Donc tu peux le supprimer en même temps que le End With 😛...
Bonne suite 😎
Ajout : Salut Pierrot 🙂

 

[Pierrot93]

Re : erreur d'execution "91"

Bonjour,

petite remarque au passage, tu as un bloc "with", mais à priori tu ne t'en sers pas... supprime le ou utilise le .....

bon après midi
@+

Edition : bonjour JNP🙂

 

[eduraiss]

Re : erreur d'execution "91"

Bonjour a vous tous
Merci pour vos réponse

j'ai enlevé With ActiveSheet et le End with , mais je ne comprends toujours pas le fichier marche sous 2003 et sous 2010 il bug a

"For Each cel In Range("A2:A65536").SpecialCells(xlCellTypeConstant s)"
Merci a vous

 

[Pierrot93]

Re : erreur d'execution "91"

Re,

peut être une espace en trop, ici :

xlCellTypeConstants

ou bien pas de valeur correspondante renvoyée....