compatibilite......

C

Chris

Guest
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
 
C

Chris

Guest
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
 

Discussions similaires

Réponses
6
Affichages
202
Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510