Erreur 1004
Lepops
-
Lepops -
Lepops -
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
A voir également:
- Erreur 1004
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur upes 1025 - Forum Téléviseurs
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
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