Erreur d'exécution "1004" sur Excel 2019 fr

Bonjour à tous,

je commence le codage VBA depuis 1 mois et je bloque actuellement sur une erreur d'éxécution "1004"

dans mon fichier excel, je voudrais que ma macro "Archiver" copie les données de l'onglet "Facture" à l'onglet "Suivi_client" mais au moment d'éxecuter la macro elle me donne le code "1004".

le module de la macro est le 5.

j'ai chercher sur le forum mais je n'ai pas trouvé de solution.

Ci-joint le fichier

Pouvez-vous m'aider svp

en vous remerciant d'avance

luccio88

bonjour,

remplace ta première instruction par celle-ci

ligne = Sheets("Suivi_facture").Cells(Rows.CountLarge, 2).End(xlUp).Row + 1

Bonjour,

Utilise plutôt ligne = Sheets("Suivi_facture").Range("b1048576").End(xlUp).Row + 1,

Visiblement, ligne = Sheets("Suivi_facture").Range("b8").End(xlDown).Row + 1 ne fonctionne pas si ta première ligne est vide

Cordialement

bonjour,

merci à tous les 2, cela fonctionne nettement mieux, bonne journée à vous

à très vite

Bonjour,

Sub Archiver()

 With ActiveWorkbook.Worksheets("Suivi_facture")

        derlign = IIf([B8] = "", 1, [B65536].End(xlUp).Row + 1)

.Range("B" & derlign).Value = Sheets("Facture").Range("G10").Value
.Range("C" & derlign).Value = Sheets("Facture").Range("f10").Value
.Range("D" & derlign).Value = Sheets("Facture").Range("f13").Value
.Range("E" & derlign).Value = Sheets("Facture").Range("f15").Value
.Range("F" & derlign).Value = Sheets("Facture").Range("f16").Value
.Range("G" & derlign).Value = Sheets("Facture").Range("g38").Value
.Range("H" & derlign).Value = Sheets("Facture").Range("g40").Value
.Range("I" & derlign).Value = Sheets("Facture").Range("g42").Value

End With

End Sub

Bonne journée