Erreur définie par l'application ou par l'objet

Résolu
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -  
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai cette erreur sur le code suivant : 

Option Explicit

Function DL(j As Integer)

DL = Sheets(j).Cells(Application.Rows.Count, 1).End(xlUp).Row

End Function

Sub Code()

Dim DernL As Long

Dim i As Integer
Dim x As Long

x = 1

For i = 2 To ActiveWorkbook.Sheets.Count
        Sheets(i).Range(Cells(2, 1), Cells(DL(i), 3)).Copy Sheets(1).Cells(x + 1, 1)
        DernL = Sheets(1).Cells(Application.Rows.Count, 1).End(xlUp).Row
        x = DernL
Next i

End Sub


Je ne comprend pas pourquoi. La ligne ne se surligne pas en jaune.

Merci d'avance.

1 réponse

Réponse 1 / 1
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

As tu essayé : 
With ActiveWorkbook.Sheets(i)
  .Activate
  .Range(Cells(2, 1), Cells(DL(i), 3)).Copy Sheets(1).Cells(x + 1, 1)
End With


Cordialement,
Jordane
1
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Ca marche, merci beaucoup.
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses