pb VBA pour archivage devis

65debutant

XLDnaute Nouveau
Bonjour
J'essaye avec mes faibles connaissances de créer un suivi des devis et factures pour ma fille qui est artisan
J'ai trouvé un code VBA pour créer un historique des devis ( onglet Historique devis). Il fonctionnait au début puis j'ai du par erreur effacer ou modifier quelque chose, car il ne fonctionne plus.
Malgré mes recherches je ne trouve pas la solution
Pourriez vous m'aider à trouver la raison de ce non fonctionnement
Merci d'avance
 

Pièces jointes

  • facturier 1.xlsm
    91.6 KB · Affichages: 23

cp4

XLDnaute Barbatruc
Bonjour, J'ai un peu retoucher ta macro. Je te laisse le soin de tester.
VB:
Sub Archiver()
   Dim ligne As Long
   With Sheets("Historique_devis")
ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1    'dernière ligne non vide en colonne A

      'copier-coller les cellules indiquées de la feuille Devis dans la feuille Historique Devis
      .Range("A" & ligne).Value = Sheets("Devis").Range("J10").Value   'n° devis
      .Range("B" & ligne).Value = Sheets("Devis").Range("e10").Value   'date émission devis
      .Range("C" & ligne).Value = Sheets("Devis").Range("f13").Value   'nom client
      .Range("D" & ligne).Value = Sheets("Devis").Range("f14").Value   'nom correspondant
      .Range("E" & ligne).Value = Sheets("Devis").Range("k36").Value   'montant HT
      .Range("F" & ligne).Value = Sheets("Devis").Range("k37").Value   'total TVA
      .Range("G" & ligne).Value = Sheets("Devis").Range("k38").Value   'total port
      .Range("H" & ligne).Value = Sheets("Devis").Range("k39").Value   'total TTC
      .Range("I" & ligne).Value = Sheets("Devis").Range("h6:h7").Value   ' ancien devis
   End With
   With Sheets("Devis")
      'efface les données des cellules indiquées de la feuille Devis
      .Range("b24:g30").ClearContents   'lignes devis
      .Range("i24:i30").ClearContents   ' lignes remises
      .Range("b32:g34").ClearContents   'lignes prestations associees
      .Range("i32:i34").ClearContents   'lignes remises sur prestations
      .Range("f13:k13").ClearContents   'nom client
      .Range("d19:l19").ClearContents   'prestation
      .Range("d21:l21").ClearContents   'nature
      .Range("d36:e36").ClearContents   'lieu des travaux
      .Range("d37:e37").ClearContents   'transport aller
      .Range("d38:e38").ClearContents   'transport retour
      .Range("b47:l49").ClearContents   'observations
      .Range("f41:g41").ClearContents   ' acompte à la cde
      .Range("e43:g43").ClearContents   ' conditions reglement
      .Range("e43:g43").ClearContents   'echeance
      .Range("k38:l38").ClearContents   'transport
      .Range("h6:h7").ClearContents   'ancien devis

      'incrémente de +1 le numéro de Devis
      .Range("j10").Value = .Range("j10").Value + 1
   End With
End Sub
 

Discussions similaires

Réponses
26
Affichages
762