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

Question

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.

jordane45 · Answer

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

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

1 réponse

Votre réponse

Discussions similaires