J'ai besoin d'aide pour erreur 1004

bealie · Octobre 4, 2018, 11:19

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

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.

Mimimathy · Octobre 4, 2018, 3:47

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

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.

@+

Mimimathy · Octobre 4, 2018, 4:14

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

Un gros merci. Le tout fonctionne à merveille. Je suis très reconnaissante !!

system · Novembre 4, 2018, 2:18

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.