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