Erreur 1004

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

Configuration: Windows / Chrome 73.0.3683.86

2 réponses

  1.  ThauTheme
    Bonjour le pops, bonjour le forum,

    Ton code semble correct. Comment veux-tu que nous devinions quelle est la ligne qui plante ?!...

    1. f894009
      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
    2. Lepops
      Merci! Ça fonctionne!
  2. Lepops
    Ouais pas fort le pop’s! C’est la premier fois que je demande deml’aide Alors.... c’ddr La deuxième ligne! Merci

    Discussions similaires

    Erreur 3005 sur France TV
    Cambodgil

    6 réponses
    Panne T32 sur telecommande Orange
    rayseg22G

    6 réponses
    Problème streaming France 2
    95 indomptable

    1 réponse
    Code erreur 3000
    Laurent

    5 réponses
    Erreur 4101 Le Pilote d'affichage Nvlddmkm ne répondait plus
    coeurlee22

    1 réponse