Erreur 1004

Fermé

Lepops - 27 mars 2019 à 16:25
Lepops - 27 mars 2019 à 19:11

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

A voir également:

Erreur 1004
Erreur 0x80070643 - Guide
Erreur 38 free ✓ - Forum Mobile
Erreur 1004 vba ✓ - Forum VB / VBA
Iptv erreur de lecture - Forum TV & Vidéo
Code erreur f3500-32 ✓ - Forum Bbox Bouygues

2 réponses

Réponse 1 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
27 mars 2019 à 17:20

Bonjour le pops, bonjour le forum,

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 mars 2019 à 17:38

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

Lepops
27 mars 2019 à 19:11

Merci! Ça fonctionne!

Réponse 2 / 2

Lepops
27 mars 2019 à 18:32

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

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

MACRO : Problème " Erreur d'exécution '1004' "

Erreur vidéo inconnue sur le Freebox Player

Erreur d'éxecution 1004

Discussions similaires

Newsletters