Erreur 1004

Lepops -
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

Afficher la suite

A voir également:

Erreur 1004
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
J'aime par erreur facebook notification - Forum Facebook
Code erreur f3500-31 ✓ - Forum Bbox Bouygues
Java code erreur 1603 ✓ - Forum Windows

2 réponses

Réponse 1 / 2

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Merci! Ça fonctionne!

Réponse 2 / 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

Code erreur 3000

Panne T32 sur telecommande Orange

Problème streaming France 2

impossible lire vidéos france 2

Votre réponse

Discussions similaires