bealie
Octobre 4, 2018, 11:19
1
Bonjour,
J’ai créer un fichier facture automatisée. Je voudrais l’archivage de mes factures avec incrémentation de mon numéro de factures. Je ne m’y connais pas en VBA. J’ai d’ailleurs construis ma facture avec l’aide du tutoriel. Mais voilà, j’ai un erreur 1004, que je ne sais comment corriger. Voici ma macro ‘‘Archiver’’
data (1).xlsm (61,9 Ko)
et en pièce jointe mon fichier. Merci beaucoup. C’est grandement apprécié.
Sub Archiver()
ligne = Sheets(“Archives”).Range(“A76”).End(xlDown).Row + 1
Sheets(“Archives”).Range(“A” & ligne).Value = Sheets(“Facture scolaire”).Range(“C4”).Value
Sheets(“Archives”).Range(“B” & ligne).Value = Sheets(“Facture scolaire”).Range(“C6”).Value
Sheets(“Archives”).Range(“C” & ligne).Value = Sheets(“Facture scolaire”).Range(“I8”).Value
Sheets(“Archives”).Range(“D” & ligne).Value = Sheets(“Facture scolaire”).Range(“C10”).Value
Sheets(“Archives”).Range(“E” & ligne).Value = Sheets(“Facture scolaire”).Range(“C11”).Value
Sheets(“Archives”).Range(“F” & ligne).Value = Sheets(“Facture scolaire”).Range(“C12”).Value
Sheets(“Archives”).Range(“G” & ligne).Value = Sheets(“Facture scolaire”).Range(“C13”).Value
Sheets(“Archives”).Range(“I” & ligne).Value = Sheets(“Facture scolaire”).Range(“C15”).Value
Sheets(“Archives”).Range(“J” & ligne).Value = Sheets(“Facture scolaire”).Range(“H39”).Value
Sheets(“Facture scolaire”).Range(“A20:A26”).ClearContents
Sheets(“Facture scolaire”).Range(“F20:F26”).ClearContents
Sheets(“Facture scolaire”).Range(“C8:E8”).ClearContents
Sheets(“Facture scolaire”).Range(“C35:F39”).ClearContents
Sheets(“Facture scolaire”).Range(“A31”).ClearContents
Sheets(“Facture scolaire”).Range(“F31”).ClearContents
Sheets(“Facture scolaire”).Range(“C4”).Value = Sheets(“Facture scolaire”).Range(“C4”).Value + 1
End Sub
mdo100
Octobre 4, 2018, 3:06
2
Bonjour @bealie ,
A tester:
Sub Archiver()
Ligne = Sheets("Archives").Range("A4").End(xlDown).Row + 1
Sheets("Archives").Range("A" & Ligne).Value = Sheets("Facture scolaire").Range("C4").Value
Sheets("Archives").Range("B" & Ligne).Value = Sheets("Facture scolaire").Range("C6").Value
Sheets("Archives").Range("C" & Ligne).Value = Sheets("Facture scolaire").Range("I8").Value
Sheets("Archives").Range("D" & Ligne).Value = Sheets("Facture scolaire").Range("C10").Value
Sheets("Archives").Range("E" & Ligne).Value = Sheets("Facture scolaire").Range("C11").Value
Sheets("Archives").Range("F" & Ligne).Value = Sheets("Facture scolaire").Range("C12").Value
Sheets("Archives").Range("G" & Ligne).Value = Sheets("Facture scolaire").Range("C13").Value
Sheets("Archives").Range("I" & Ligne).Value = Sheets("Facture scolaire").Range("C15").Value
Sheets("Archives").Range("J" & Ligne).Value = Sheets("Facture scolaire").Range("H39").Value
Sheets("Facture scolaire").Range("A20:A26").ClearContents
Sheets("Facture scolaire").Range("F20:F26").ClearContents
Sheets("Facture scolaire").Range("C8:E8").ClearContents
Sheets("Facture scolaire").Range("B35").MergeArea.ClearContents
Sheets("Facture scolaire").Range("A31").ClearContents
Sheets("Facture scolaire").Range("F31").ClearContents
Sheets("Facture scolaire").Range("C4").Value = Sheets("Facture scolaire").Range("C4").Value + 1
End Sub
Fichier ICI==> bealie V1.xlsm (57,4 Ko)
Cordialement.
Bonjour,
Quand je disais que l’élève allait dépasser le maître
Autre version
Sub Archiver()
ligne = Sheets("Archives").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Archives").Range("A" & ligne).Value = "E-" & Sheets("Facture scolaire").Range("C4").Value
Sheets("Archives").Range("B" & ligne).Value = Sheets("Facture scolaire").Range("C6").Value
Sheets("Archives").Range("C" & ligne).Value = Sheets("Facture scolaire").Range("I8").Value
Sheets("Archives").Range("D" & ligne).Value = Sheets("Facture scolaire").Range("C10").Value
Sheets("Archives").Range("E" & ligne).Value = Sheets("Facture scolaire").Range("C11").Value
Sheets("Archives").Range("F" & ligne).Value = Sheets("Facture scolaire").Range("C12").Value
Sheets("Archives").Range("G" & ligne).Value = Sheets("Facture scolaire").Range("C13").Value
Sheets("Archives").Range("I" & ligne).Value = Sheets("Facture scolaire").Range("C15").Value
Sheets("Archives").Range("J" & ligne).Value = Sheets("Facture scolaire").Range("H39").Value
Sheets("Facture scolaire").Range("A20:A26,F20:F26,C8:E8,C35:F39,A31,F31") = ""
Sheets("Facture scolaire").Range("C4").Value = Sheets("Facture scolaire").Range("C4").Value + 1
End Sub
data (1).xlsm (56,2 Ko)
mdo100
Octobre 4, 2018, 3:57
4
Re @Mimimathy ,
Sans tes petits Exercices, je dois bien t’avouer que je ne m’y serais pas lancé.
Juste une chose, comment maintenir l’incrémentation dans la feuille « Facture scolaire » avec un " E- " devant le nombre.
@+
Re,
Regarde sur mon classeur
sur la facture j’ai mis un format perso
et sur la macro
Sheets("Archives").Range("A" & ligne).Value = "E-" & Sheets("Facture scolaire").Range("C4").Value
bealie
Octobre 5, 2018, 2:15
6
Un gros merci. Le tout fonctionne à merveille. Je suis très reconnaissante !!
system
A fermé ce sujet ()
Novembre 4, 2018, 2:18
7
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.