Sujet Précédent Sujet Suivant

Erreur définie par l'application ou par l'objet [Résolu/Fermé]

Signaler
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
 -
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
 -
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
Messages postés
32942
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
12 juin 2021
 3 557
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
Signaler
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
 48
Ca marche, merci beaucoup.
Posez votre question