Erreur Autofill 1004

[Vidadou47]

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]

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

 

[Lone-wolf]

Bonjour Vidadou et bienvenue sur XLD

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

 

[Vidadou47]

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]

déjà.. avec quelques simplifications

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]

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

hello @Lone-wolf

 

[Vidadou47]

J'admets que c'est bien plus propre .

 

[vgendron]

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

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]

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

 

[Vidadou47]

à 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]

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

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]

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

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]

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]

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

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