ERREUR 1004 LA Selection est TROP GRANDE

vgendron

XLDnaute Barbatruc

• 12 Mai 2017

• #2

Hello

Sans ton fichier, difficile de voir pourquoi ca ne fonctionne pas..
mais essaie ce code "simplifié"

VB:

Sub start()
Application.ScreenUpdating = False
Application.EnableEvents = False

DernLigne = Sheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row

Sheets(Array("Feuil7", "Feuil8", "Feuil9", "Feuil10")).Select 'pas besoin de boucle
Rows("5:600000").ClearContents

Range("A4:BV4").AutoFill Destination:=Range("A4:BV" & DernLigne), Type:=xlFillDefault
   
Application.EnableEvents = True

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

Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 12 Mai 2017

• #3

bonjour,

dans ton message tu parles de 60 000 et dans la macro 600 000 !!
suivant ta version d'excel, cela peut causer le problème

nb : ce n'est pas pour rien que le site demande la version utilisée ...

 

Vote positif 0 Vote négatif

S

steph544

Guest

• 12 Mai 2017

• #4

merci Bertrand pour ta reponse cest exact, jai mis 60000 de facon arbitraire car les données peuvent changer. J'ai reutilize avec 6000 mais le probleme est toujours le meme la selection est trop grande.

jutilise la version 2007 d'excel

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Mai 2017

• #5

Hello Bertrand,
bien vu le coup des 600 000

Steph544, si l'idée est d'effacer les feuilles completes à part les lignes 1 à 5
essaie de jouer avec la propriété usedRange
genre
ActiveSheet.UsedRange.Offset(5).EntireRow.clearcontents

 

Vote positif 0 Vote négatif

S

steph544

Guest

• 12 Mai 2017

• #6

merci mais pour le coup l'erreur apparait sur celle ligne de code. sur la methde autofill qui echoue. =(

Code:

Sheets(I).Range("A4:BV4").AutoFill Destination:=Range("A4:BV" & DernLigne), Type:=xlFillDefault

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 12 Mai 2017

• #7

re,

salutatoi aussi
merci de joindre un fichier très court (pas 3,5 Mb) et anonymisé (pas de dropbox)

 

Vote positif 0 Vote négatif

Jean-Eric

XLDnaute Occasionnel

• 12 Mai 2017

• #8

Bonjour,
Pour votre information.
Cdlt.
https://forum.excel-pratique.com/excel/autofill-erreur-1004-t93171.html

 

Vote positif 0 Vote négatif

S

steph544

Guest

• 12 Mai 2017

• #9

oui merci cetait moi dans l'autre forum.

MERCI

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Mai 2017

• #10

steph544 à dit:

merci mais pour le coup l'erreur apparait sur celle ligne de code. sur la methde autofill qui echoue. =(

Cliquez pour agrandir...

dans ma proposition sans boucle, le sheets(i) a disparu. donc si tu l'as remis.. ca va pas aller..
après. je sais pas si tu répondais suite à ma proposition.
d'ou.. toujours; un fichier exemple.. avec 10 lignes, sans données confidentielles. ca peut déjà servir de base
et sans passer par le dropbox qui est bloqué chez moi..

 

Vote positif 0 Vote négatif

S

steph544

Guest

• 12 Mai 2017

• #11

desoler pour le dropbox. Oui je l'ai supprimer car il m'affiché une erreur. Mais ce poste est résolu car on m'a donné une solution.
merci quand meme.

Bis

 

Vote positif 0 Vote négatif