Excel erreur 1004

nodul03 -  
Bonjour,

j'ai créé une facture dans Excel et souhaite faire un historique des factures dans un autre onglet. J'ai créé une macro mais l'erreur 1004 apparaît.

Sub Archiver()
ligne = Sheets("Historique factures").Range("A2").End(xlDown).Row + 1
Sheets("Historique factures").Range("A" & ligne).Value = Sheets("Facture").Range("G2").Value
Sheets("Historique factures").Range("B" & ligne).Value = Sheets("Facture").Range("G4").Value
Sheets("Historique factures").Range("C" & ligne).Value = Sheets("Facture").Range("F8:G8").Value
Sheets("Historique factures").Range("D" & ligne).Value = Sheets("Facture").Range("F8:G9").Value
Sheets("Historique factures").Range("E" & ligne).Value = Sheets("Facture").Range("F10:G10").Value
Sheets("Historique factures").Range("F" & ligne).Value = Sheets("Facture").Range("F14:G14").Value
Sheets("Historique factures").Range("G" & ligne).Value = Sheets("Facture").Range("G42").Value
Sheets("Historique factures").Range("H" & ligne).Value = Sheets("Facture").Range("G44").Value

Sheets("Facture").Range("B26:E37").ClearContents
Sheets("Facture").Range("F8:G8").ClearContents
Sheets("Facture").Range("G2").Value = Sheets("Facture").Range("G2").Value + 1

End Sub

Qqun sait m'aider ?

Merci

2 réponses

  1.  via55
    Bonsoir

    L'erreur provient sans doute de la 1ere ligne si la colonne est A est vide
    Préfères l'instruction : 
    ligne = Sheets("Historique factures").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1


    Quant aux plages F8:G8 et suivantes elle semble correspondre à des cellules fusionnées
    Évite absolument les cellules fusionnées qui font buguer les macros et les formules complexes
    On peut avantageusement remplacer les cellules fusionnées par un Format de cellule Alignement Centré sur plusieurs colonnes

    Cdlmnt
    Via

    0
    1. nodul03
      Merci via55, tout fonctionne
      0

      Discussions similaires

      Erreur code 4001
      contrariness

      1 réponse