compatibilite......

[Chris]

Bonjour à tous,

J'ai une macro à faire pour le travail, mais une de mes lignes est incompatible avec office97 (je travail sous office2000)...quelqu'un pourrai m'aider à déboguer ces lignes ???

L'erreur se produit

Sub copie()
Worksheets("feuil1").Activate
Application.ScreenUpdating = False
For Each cel In Range("M8:M" & Range("M65536").End(xlUp).Row)
-----------------------------------------------------------------------------------------
'L'erreur ser produit ici sous office 97
If cel.Value > 31 And cel.Value <> 66666 And cel.Value < 1000 Then
cel.EntireRow.Copy
-----------------------------------------------------------------------------------------
Worksheets("retard").Activate
If ActiveSheet.Range("A1") = "" Then
ActiveSheet.Range("A1").Select
Else
ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Select
End If
ActiveSheet.Paste
Worksheets("feuil1").Activate
End If
Next
Application.ScreenUpdating = True
End Sub


Merci.

Chris

 

[Chris]

RE....une erreur c'est glisser ci-dessus...

Bonjour à tous,

J'ai une macro à faire pour le travail, mais une de mes lignes est incompatible avec office97 (je travail sous office2000)...quelqu'un pourrai m'aider à déboguer ces lignes ???

L'erreur se produit

Sub copie()
Worksheets("feuil1").Activate
Application.ScreenUpdating = False
For Each cel In Range("M8:M" & Range("M65536").End(xlUp).Row)
-----------------------------------------------------------------------------------------
'L'erreur ser produit ici sous office 97 (alors qu(avec le chriffre 66666, cela ce passe à merveille !!!! seulement il me faut l'inscription RECU dans la cellule.....'

If cel.Value > 31 And cel.Value <> RECU And cel.Value < 1000 Then
cel.EntireRow.Copy
-----------------------------------------------------------------------------------------
Worksheets("retard").Activate
If ActiveSheet.Range("A1") = "" Then
ActiveSheet.Range("A1").Select
Else
ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Select
End If
ActiveSheet.Paste
Worksheets("feuil1").Activate
End If
Next
Application.ScreenUpdating = True
End Sub


Merci.

Chris

 

[chris]

Bonjour
Recu devrait être entre " puisque c'est un texte inscrit dans la cellule si je comprends bien

"RECU"

CHris

 

[Chris]

Salut Chris...

Même en mettant "RECU" il n'en veut pas sous excel 97....

C'est bizarre, je ne voit vraiment pas d'ou vient le probleme...