Erreur 1004

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

Configuration: Windows / Chrome 73.0.3683.86

2 réponses

  1.
    ThauTheme Messages postés 1564 Statut Membre 160
     
    Bonjour le pops, bonjour le forum,

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

    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
      0
    2. Lepops
       
      Merci! Ça fonctionne!
      0
  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
    0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
JeanPierre -

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

1 réponse
Erreur code 4001
contrariness -
CCMBot -

1 réponse
Erreur 0x80070570 sur clé USB
Carmen31 -
Philou76 -

11 réponses
Erreur s3 bbox wifi 7 bouygues
Fido62 -
Gwensam -

14 réponses