Sujet Précédent Sujet Suivant

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

Résolu/Fermé
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
 - Modifié par Kuartz le 10/11/2015 à 17:25
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
 - 16 nov. 2015 à 14:06
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
35774
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
3 juillet 2022
 4 201
Modifié par jordane45 le 10/11/2015 à 18:08
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
0
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
 55
16 nov. 2015 à 14:06
Ca marche, merci beaucoup.
0