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.

A voir également:

Erreur définie par l'application ou par l'objet
Erreur 0x80070643 - Accueil - Windows
Application mobile - Guide
Vente objet occasion entre particulier - Guide
Comment recuperer whatsapp supprimé par erreur - Guide
Son notification par application android - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38296 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 19 novembre 2024 4 704
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

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
16 nov. 2015 à 14:06

Ca marche, merci beaucoup.

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture sur iptv smarters