Erreur 1004

Fermé

tetro14 Messages postés 8 Date d'inscription lundi 8 août 2016 Statut Membre Dernière intervention 15 août 2016 - 15 août 2016 à 14:43
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 15 août 2016 à 16:35

Bonjour, je tente de faire un copier-coller sur une plage X, mon problème est que je veux qu'un bouton active ce copier-coller sur plusieurs page différente. voici mon code :

Sub Formule()

Dim DernLigne As Long
Dim lastcolumn As Long

With Sheets("Liste")
.Cells(5, 3) = Sheets("Liste").Cells(1, 2).Formula
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Liste").Cells(5, 3).AutoFill Destination:=Range("C5", "C" & DernLigne)
Sheets("Liste").Cells(5, 5) = Sheets("Liste").Cells(2, 2).Formula
Sheets("Liste").Cells(5, 5).AutoFill Destination:=Range("E5", "E" & DernLigne)
End With

With Sheets("Actifs")
lastcolumn = Cells(5, Columns.Count).End(xlToLeft).Column
Sheets("actifs").Range("D7").AutoFill Destination:=Range(Sheets("actifs").Cells(7, 4), Sheets("actifs").Cells(7, lastcolumn))
End With

With Sheets("Geo")
lastcolumn = Cells(5, Columns.Count).End(xlToLeft).Column
.Cells(7, 4).AutoFill Destination:=Range(Cells(7, 4), Cells(7, lastcolumn))
End With
End Sub

La section en italique est où apparaît l'erreur

A voir également:

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

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
15 août 2016 à 16:35

Bonjour Tetro, bonjour el forum,

Tu oublies souvent le point faisant référence au With devant certains Range ou Cells. Ton code modifié mais non testé :

Sub Formule()
Dim DernLigne As Long
Dim lastcolumn As Integer

With Sheets("Liste")
    .Cells(5, 3).Formula = .Cells(1, 2).Formula
    DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
    .Cells(5, 3).AutoFill Destination:=.Range("C5:C" & DernLigne)
    .Cells(5, 5).Formula = .Cells(2, 2).Formula
    .Cells(5, 5).AutoFill Destination:=.Range("E5:E" & DernLigne)
End With

With Sheets("Actifs")
    lastcolumn = .Cells(5, Columns.Count).End(xlToLeft).Column
    .Range("D7").AutoFill Destination:=.Range(.Cells(7, 4), .Cells(7, lastcolumn))
End With

With Sheets("Geo")
    lastcolumn = .Cells(5, Columns.Count).End(xlToLeft).Column
    .Cells(7, 4).AutoFill Destination:=.Range(.Cells(7, 4), .Cells(7, lastcolumn))
End With
End Sub

Discussions similaires

VBA erreur 1004

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

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

Erreur d'éxecution 1004

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters