Erreur Autofill 1004

Vidadou47 · 8 Juin 2018

Bonjour ,

Dans le cadre de mon travail je dois modifier une macro qui a était faite il y'a 10 ans .
Le problème est le suivant :

Nous devons créer une colonne " Couleur" dans la colonne H .
Cette dernière étant utilisé dans le code pour effectuer un copier coller j'aimerai que cela se fasse dans une autre colonne ( I ) .
Je ne connais rien en VBA et lorsque que je modifie " H" Par "I" j'ai une erreur " erreur 1004 : Autofill ..."

Voir le fichier ci-joint.

Merci

vgendron · 8 Juin 2018

Hello et bienvenu
de quelle macro parles tu?
peux tu expliquer ce qu'elle est censée faire?

Lone-wolf · 8 Juin 2018

Bonjour Vidadou et bienvenue sur XLD 🙂

Bonjour vgendron 🙂. Ouuuups, on c'est croisés.

Vidadou47 · 8 Juin 2018

vgendron à dit:
Hello et bienvenu
de quelle macro parles tu?
peux tu expliquer ce qu'elle est censée faire?

Je parle de la macro jointe à mon post . " Copy of Macro SP" elle est censé récuperer des données et faire des calculs ( pardon mais je ne connais vraiment rien en VBA)

vgendron · 8 Juin 2018

déjà.. avec quelques simplifications

VB:

Sub FormatProdstar()

Dim a As Integer
With Sheets("Feuil1")
    a = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne
    .Columns("A:B").Insert Shift:=xlToRight
   
    With .Rows("1:1")
        .ClearContents
        .Font.Bold = False
        .NumberFormat = "@"
    End With
   
    .Range("A1").Resize(a).FormulaR1C1 = "90P21302"
    .Range("B1").FormulaR1C1 = "F000"
    .Range("C1").FormulaR1C1 = "003200007080008080010176005100"
    .Range("B2").Resize(a - 1).FormulaR1C1 = "D000"
    .Range("H2").Resize(a - 1).FormulaR1C1 = "=RC[-2]*1000000"
   
    .Columns("I:I").Copy Destination:=.Columns("F:F")
    .Columns("D:E").NumberFormat = "yyyymmdd"
    .Columns("G:G").NumberFormat = "0000000000"
    .Columns("F:F").NumberFormat = "00000000000000000"
    .Columns("A:H").EntireColumn.AutoFit
   
    .Columns("I:I").Delete Shift:=xlToLeft
    .Range("A1").Activate
End With

ChDir "I:\Manufacturing\Prodstar"
ActiveWorkbook.SaveAs Filename:="I:\Information System\fp2ipt.seq", FileFormat _
        :=xlTextPrinter, CreateBackup:=False
End Sub

vgendron · 8 Juin 2018

souci dans ton fichier. je ne vois pas la macro copy....
celle ci oui..: FormatProdstarSP

hello @Lone-wolf

Vidadou47 · 8 Juin 2018

J'admets que c'est bien plus propre . 🙂

vgendron · 8 Juin 2018

l'autre macro qui coupe et colle la colonne H (au lieu de I) vers F ca donne ceci

VB:

Sub FormatProdstarSP()

Dim a As Integer
With Sheets("Feuil1")
    a = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne
    .Columns("A:B").Insert Shift:=xlToRight
   
    With .Rows("1:1")
        .ClearContents
        .Font.Bold = False
        .NumberFormat = "@"
    End With
   
    .Range("A1").Resize(a).FormulaR1C1 = "90P21302"
    .Range("B1").FormulaR1C1 = "F000"
    .Range("C1").FormulaR1C1 = "003200007080008080010176005100"
    .Range("B2").Resize(a - 1).FormulaR1C1 = "D000"
    .Range("H2").Resize(a - 1).FormulaR1C1 = "=RC[-2]*1000000"
   
    .Columns("H:H").Copy Destination:=.Columns("F:F")
    .Columns("D:E").NumberFormat = "yyyymmdd"
    .Columns("G:G").NumberFormat = "0000000000"
    .Columns("F:F").NumberFormat = "00000000000000000"
    .Columns("A:H").EntireColumn.AutoFit
   
    .Columns("H:H").Delete Shift:=xlToLeft
    .Range("A1").Activate
End With

ChDir "I:\Manufacturing\Prodstar"
ActiveWorkbook.SaveAs Filename:="I:\Information System\fp2ipt.seq", FileFormat _
        :=xlTextPrinter, CreateBackup:=False
End Sub

vgendron · 8 Juin 2018

à noter. que je n'ai pas eu le moindre erreur autofill avec tes macros d'origine......??

Vidadou47 · 8 Juin 2018

vgendron à dit:
à noter. que je n'ai pas eu le moindre erreur autofill avec tes macros d'origine......??

Effectivement il n'y a pas d'erreur avec la macro d'origine mais je n'ai pas su créer une colonne " Couleur " dans la colonne " H" et déplacer les différents élements liés à " H" dans une autre colonne " I" .

Vidadou47 · 8 Juin 2018

vgendron à dit:

l'autre macro qui coupe et colle la colonne H (au lieu de I) vers F ca donne ceci

VB:

Sub FormatProdstarSP()

Dim a As Integer
With Sheets("Feuil1")
    a = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne
    .Columns("A:B").Insert Shift:=xlToRight

    With .Rows("1:1")
        .ClearContents
        .Font.Bold = False
        .NumberFormat = "@"
    End With

    .Range("A1").Resize(a).FormulaR1C1 = "90P21302"
    .Range("B1").FormulaR1C1 = "F000"
    .Range("C1").FormulaR1C1 = "003200007080008080010176005100"
    .Range("B2").Resize(a - 1).FormulaR1C1 = "D000"
    .Range("H2").Resize(a - 1).FormulaR1C1 = "=RC[-2]*1000000"

    .Columns("H:H").Copy Destination:=.Columns("F:F")
    .Columns("D:E").NumberFormat = "yyyymmdd"
    .Columns("G:G").NumberFormat = "0000000000"
    .Columns("F:F").NumberFormat = "00000000000000000"
    .Columns("A:H").EntireColumn.AutoFit

    .Columns("H:H").Delete Shift:=xlToLeft
    .Range("A1").Activate
End With

ChDir "I:\Manufacturing\Prodstar"
ActiveWorkbook.SaveAs Filename:="I:\Information System\fp2ipt.seq", FileFormat _
        :=xlTextPrinter, CreateBackup:=False
End Sub

Merci mais cela me met l'erreur suivante " Erreur d'exécution: '9' L'indice n'appartient pas à la sélection"

Edit: j'ai modifié le nom de la feuille

vgendron · 8 Juin 2018

pour la seconde macro.. à corriger comme ceci. à cause de la formule

VB:

Sub FormatProdstarSP()

Dim a As Integer
With Sheets("Feuil1")
    a = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne
    .Columns("A:B").Insert Shift:=xlToRight
   
    With .Rows("1:1")
        .ClearContents
        .Font.Bold = False
        .NumberFormat = "@"
    End With
   
    .Range("A1").Resize(a).FormulaR1C1 = "90P21302"
    .Range("B1").FormulaR1C1 = "F000"
    .Range("C1").FormulaR1C1 = "003200007080008080010176005100"
    .Range("B2").Resize(a - 1).FormulaR1C1 = "D000"
    .Range("H2").Resize(a - 1).FormulaR1C1 = "=RC[-2]*1000000"
   
    .Columns("H:H").Copy
    .Columns("F:F").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    .Columns("D:E").NumberFormat = "yyyymmdd"
    .Columns("G:G").NumberFormat = "0000000000"
    .Columns("F:F").NumberFormat = "00000000000000000"
    .Columns("A:H").EntireColumn.AutoFit
   
    .Columns("H:H").Delete Shift:=xlToLeft
    .Range("A1").Activate
End With

ChDir "I:\Manufacturing\Prodstar"
ActiveWorkbook.SaveAs Filename:="I:\Information System\fp2ipt.seq", FileFormat _
        :=xlTextPrinter, CreateBackup:=False
End Sub

Vidadou47 · 8 Juin 2018

Merci à toi pour tes réponses serait il simplement possible de rajouter une colonne nomée " Couleur" à la fin de celle déja présente ?

vgendron · 8 Juin 2018

bah euh.... suffit d'ajouter cette ligne

.Range("H1") = "Couleur" 'écrit "Couleur" dans la cellule "H1"

Erreur Autofill 1004

Vidadou47

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Vidadou47

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Vidadou47

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Vidadou47

XLDnaute Nouveau

Vidadou47

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Vidadou47

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Discussions similaires

Erreur Autofill 1004

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency