Erreur 1004
Bonjour,
voici l'erreur...comment la corriger. merci à l'avance.
Sub Archiver()
ligne = Sheets("renseignements").Range("A8").End(xlDown).Row + 1
Sheets("renseignements").Range("a" & ligne).Value = Sheets("facture").Range("b6").Value
Sheets("renseignements").Range("B" & ligne).Value = Sheets("facture").Range("b6").Value
Sheets("renseignements").Range("c" & ligne).Value = Sheets("facture").Range("b10").Value
Sheets("renseignements").Range("d" & ligne).Value = Sheets("facture").Range("b11").Value
Sheets("renseignements").Range("e" & ligne).Value = Sheets("facture").Range("b13").Value
Sheets("renseignements").Range("f" & ligne).Value = Sheets("facture").Range("f36").Value
Sheets("renseignements").Range("g" & ligne).Value = Sheets("facture").Range("f39").Value
Sheets("renseignements").Range("h" & ligne).Value = Sheets("facture").Range("b14").Value
Sheets("facture").Range("c20:d35").ClearContents
Sheets("facture").Range("b10").ClearContents
Sheets("facture").Range("b11").ClearContents
Sheets("facture").Range("b12").ClearContents
Sheets("facture").Range("b13").ClearContents
Sheets("facture").Range("b14").ClearContents
Sheets("facture").Range("e10").Value = Sheets("facture").Range("e10").Value + 1
voici l'erreur...comment la corriger. merci à l'avance.
Sub Archiver()
ligne = Sheets("renseignements").Range("A8").End(xlDown).Row + 1
Sheets("renseignements").Range("a" & ligne).Value = Sheets("facture").Range("b6").Value
Sheets("renseignements").Range("B" & ligne).Value = Sheets("facture").Range("b6").Value
Sheets("renseignements").Range("c" & ligne).Value = Sheets("facture").Range("b10").Value
Sheets("renseignements").Range("d" & ligne).Value = Sheets("facture").Range("b11").Value
Sheets("renseignements").Range("e" & ligne).Value = Sheets("facture").Range("b13").Value
Sheets("renseignements").Range("f" & ligne).Value = Sheets("facture").Range("f36").Value
Sheets("renseignements").Range("g" & ligne).Value = Sheets("facture").Range("f39").Value
Sheets("renseignements").Range("h" & ligne).Value = Sheets("facture").Range("b14").Value
Sheets("facture").Range("c20:d35").ClearContents
Sheets("facture").Range("b10").ClearContents
Sheets("facture").Range("b11").ClearContents
Sheets("facture").Range("b12").ClearContents
Sheets("facture").Range("b13").ClearContents
Sheets("facture").Range("b14").ClearContents
Sheets("facture").Range("e10").Value = Sheets("facture").Range("e10").Value + 1
Configuration: Windows / Chrome 73.0.3683.86
2 réponses
-
Ouais pas fort le pop’s! C’est la premier fois que je demande deml’aide Alors.... c’ddr La deuxième ligne! Merci
-
Bonjour le pops, bonjour le forum,
Ton code semble correct. Comment veux-tu que nous devinions quelle est la ligne qui plante ?!...
-
Bonjour ThauTheme,
En effet le code ne provoque pas d'erreur. Je l'ai un peu mis au gout Excel
Sub Archiver() Dim Shr As Worksheet Dim Shf As Worksheet Set Shr = Sheets("renseignements") Set Shf = Sheets("facture") ligne = Shr.Range("A" & Rows.Count).End(xlUp).Row + 1 With Shf Shr.Range("A" & ligne).Value = .Range("B6").Value Shr.Range("B" & ligne).Value = .Range("B6").Value Shr.Range("C" & ligne).Value = .Range("B10").Value Shr.Range("D" & ligne).Value = .Range("B11").Value Shr.Range("E" & ligne).Value = .Range("B13").Value Shr.Range("F" & ligne).Value = .Range("B36").Value Shr.Range("G" & ligne).Value = .Range("B39").Value Shr.Range("H" & ligne).Value = .Range("B14").Value .Range("C20:D35,B10:B14").ClearContents .Range("E10").Value = .Range("E10").Value + 1 End With End Sub -
-
