Autofill erreur 1004

bonsoir,

voila mon souci, l'erreur 1004 est apparu soudainement lorsque le nombre de ligne de la feuille 2 est supérieur a 800 données. j'applique un autofill jusque toute les feuilles afin d'etendre le calcul jusqua la derniere case qui correspond a la derniere valeur de la feuille2. Sa me pose probleme car jai des cellules qui contiennent 6000 valeurs.

merci pour votre aide cest vraiment sympa si vous pouvez maider car cest pour mon stage lol

bye

[code]Sub start()

Application.EnableEvents = False
'Application.ScreenUpdating = False
For I = 7 To 10
Sheets(I).Select
Rows("5:600000").ClearContents
DernLigne = Sheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row
Sheets(I).Range("A4:BV4").AutoFill Destination:=Range("A4:BV" & DernLigne), Type:=xlFillDefault

Next I

Application.EnableEvents = True

Sheets("feuil3").Select
Cells(1, 50).Select

'Application.ScreenUpdating = True
End Sub

[/code]

Bonjour,

Tout cela prête à confusion.

On ne sait pas vraiment où on est et où on va.

Un petit fichier serait apprécié.

Cdlt.

Option Explicit

Sub start()
Dim rngSource As Range, rngFill As Range
Dim I As Long, DernLigne As Long
    Application.ScreenUpdating = False
    For I = 7 To 10
        With Worksheets(I)
            .Cells.ClearContents
            DernLigne = Worksheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row
            'Aide Microsoft sur AutoFill
            Set rngSource = .Range("A4:BV4")
            Set rngFill = .Range("A4:BV" & DernLigne)
            rngSource.AutoFill Destination:=rngFill, Type:=xlFillDefault
        End With
    Next I
    With Worksheets("feuil3")
        .Activate
        .Cells(1, 50).Select
    End With
    Set rngFill = Nothing: Set rngSource = Nothing
End Sub

Merci beaucoup jean-eric mais cela m'indique toutjours le message "d'erreur 1004 la selection est trop grande". Je peux tenvoyer le excel si tu le veux mais voila un resume.

Sur la feuille 2 il y a des données dont la plage varie jusqua 60000 cellule. Avec les autre feuilles je fais des calcul qui vienne de la feuille 2 par exemple "Feuil2!A5 * 89". En fesant le autofille a partir de la ligne 4 me permet d'etendre la formule jusqua la derniere ligne de la feuille2 sur toute les feuilles dont les calculs dependent de la feuille2. Mais comme les données sont tres grandS la method autofill ne marche pas ici. Je ne sais pas comment faire sa serait vraiment sympa car cela permettra de cloturer ma partie de stage.

Merci pour ton aide je ne suis pas pro en excel mais jai envie de me debrouiller et comprendre un peu mais cest vrai qu' une petite aide me fera un enorme bien.

MErci

Re,

Comme précisé précédemment, un fichier permettrait au forum de t'apporter une aide adaptée.

Cdlt.

bnjor jean eric je vous ai envoye un lien dropbox car le fichir est trop gros. merci

Bonjour à tous

stephanie544 a écrit :

lorsque le nombre de ligne de la feuille 2 est supérieur a 800 données.

Alors, essaie de le faire en plusieurs fois, 700 lignes par 700 lignes, par exemple, en vidant le presse papier après chaque fois...

Comme ça :

Dim dernLigne&, nbMax&, lnD&, i&

Sub start()

    Application.EnableEvents = False
    Application.ScreenUpdating = False
    nbMax = 700
    dernLigne = Sheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row
    For i = 7 To 10
        lnD = 4
        Sheets(CStr(i)).Select
        Rows("5:600000").ClearContents

        Do
            If lnD <= dernLigne Then
                If lnD + nbMax <= dernLigne Then
                    Sheets(CStr(i)).Range("A" & lnD & " :BV" & lnD).AutoFill _
                            Destination:=Range("A" & lnD & ":BV" & lnD + nbMax - 1), Type:=xlFillDefault
                    lnD = lnD + nbMax - 1
                Else
                    Sheets(CStr(i)).Range("A" & lnD & " :BV" & lnD).AutoFill _
                            Destination:=Range("A" & lnD & ":BV" & dernLigne), Type:=xlFillDefault
                    Exit Do
                End If
            End If
            Application.CutCopyMode = False
        Loop
    Next i
    Application.EnableEvents = True
    Sheets(CStr(i - 1)).Select
    Cells(1, 50).Select
End Sub

Résultat ?

Bye !

Merci beaucoup sa marche nickel !!!!

sa prend du temps mais au moins sa marche grace à vous.

j'aurais une autre question je pense que tu pourras maider encore une fois sur le forum.

Bonne journée à vous!!!