OVH Cloud OVH Cloud

erreur 1004

15 réponses
Avatar
daniel M.
bonjour
Selection.AutoFill Destination:=Range("Ao3:Aq10000"), Type:=xlFillDefault
à cette action dans une macro j'obtiens le message d'erreur suivant:
erreur d'execution 1004
la selection est trop grande
merci de votre aide
daniel

10 réponses

1 2
Avatar
AV
Le range de destination doit être même ligne ou même colonne !

Range("AO3:AO10000")
ou
Range("Ao3:Aq3")

AV
Avatar
daniel M.
voici exactement le script:
Range("AO3:AQ3").Select
Selection.AutoFill Destination:=Range("Ao3:Aq15000"),
Type:=xlFillDefault
Range("Ao3:Aq15000").Select

je ne vois rien d'anormal

"AV" a écrit dans le message de
news:
Le range de destination doit être même ligne ou même colonne !

Range("AO3:AO10000")
ou
Range("Ao3:Aq3")

AV




Avatar
Jacky
Bonsoir Daniel

J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en manuel
cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")

Salutations
JJ

"daniel M." a écrit dans le message de
news:%
bonjour
Selection.AutoFill Destination:=Range("Ao3:Aq10000"), Type:=xlFillDefault
à cette action dans une macro j'obtiens le message d'erreur suivant:
erreur d'execution 1004
la selection est trop grande
merci de votre aide
daniel




Avatar
daniel M.
jacky a écri:
J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en
manuel

cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")


bonjour jacky,
non ça ne change rien ...même erreur! (et trés lent aussi)
moi c'est office 2000.


"Jacky" a écrit dans le message
de news:
Bonsoir Daniel

J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en
manuel

cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")

Salutations
JJ

"daniel M." a écrit dans le message de
news:%
bonjour
Selection.AutoFill Destination:=Range("Ao3:Aq10000"),
Type:=xlFillDefault


à cette action dans une macro j'obtiens le message d'erreur suivant:
erreur d'execution 1004
la selection est trop grande
merci de votre aide
daniel








Avatar
Jacky
Re..
Après essai.
Les deux fonctionnent dans un module standard, mais 'AutoFill' bug dans un
appel événementiel (module de feuille)
Du moins chez moi..

Bon Week end
JJ

"daniel M." a écrit dans le message de
news:
jacky a écri:
J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en
manuel

cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")


bonjour jacky,
non ça ne change rien ...même erreur! (et trés lent aussi)
moi c'est office 2000.


"Jacky" a écrit dans le message
de news:
Bonsoir Daniel

J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en
manuel

cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")

Salutations
JJ

"daniel M." a écrit dans le message de
news:%
bonjour
Selection.AutoFill Destination:=Range("Ao3:Aq10000"),
Type:=xlFillDefault


à cette action dans une macro j'obtiens le message d'erreur suivant:
erreur d'execution 1004
la selection est trop grande
merci de votre aide
daniel












Avatar
Daniel.M
Salut JJ, daniel,

Si c'est dans une procédure événementielle, il est IMPÉRATIF de mettre les
événements à FAUX avant l'appel à autofill (ça explique la lenteur et
l'épuisement de la pile).

Application.EnableEvents = False
Range("AO3:AQ3").AutoFill Destination:=Range("Ao3:Aq15000"), Type:=xlFillDefault
Application.EnableEvents = True

Salutations,

Daniel M.


"Jacky" wrote in message
news:
Re..
Après essai.
Les deux fonctionnent dans un module standard, mais 'AutoFill' bug dans un
appel événementiel (module de feuille)
Du moins chez moi..

Bon Week end
JJ

"daniel M." a écrit dans le message de
news:
jacky a écri:
J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en
manuel

cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")


bonjour jacky,
non ça ne change rien ...même erreur! (et trés lent aussi)
moi c'est office 2000.


"Jacky" a écrit dans le message
de news:
Bonsoir Daniel

J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en
manuel

cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")

Salutations
JJ

"daniel M." a écrit dans le message de
news:%
bonjour
Selection.AutoFill Destination:=Range("Ao3:Aq10000"),
Type:=xlFillDefault


à cette action dans une macro j'obtiens le message d'erreur suivant:
erreur d'execution 1004
la selection est trop grande
merci de votre aide
daniel
















Avatar
JièL Goubert
Bonjoir(c) Daniel.M

Le 19/12/2004 01:16 vous avez écrit ceci :
Salut JJ, daniel,

Si c'est dans une procédure événementielle, il est IMPÉRATIF de mettre les
événements à FAUX avant l'appel à autofill (ça explique la lenteur et
l'épuisement de la pile).


c'est pour ça qu'il faut prendre des durawonder ;-)))))))))

--
JièL A pile poil

Avatar
Jacky
Ok, Merci pour l'info.
Et maintenant dodo, pour moi.
JJ


"Daniel.M" a écrit dans le message de
news:
Salut JJ, daniel,

Si c'est dans une procédure événementielle, il est IMPÉRATIF de mettre les
événements à FAUX avant l'appel à autofill (ça explique la lenteur et
l'épuisement de la pile).

Application.EnableEvents = False
Range("AO3:AQ3").AutoFill Destination:=Range("Ao3:Aq15000"),
Type:=xlFillDefault

Application.EnableEvents = True

Salutations,

Daniel M.



Avatar
daniel M.
Bonjour daniel,
je te remercie pour tes explication , hélas aprés avoir modifié le code
selon tes indications j'obtiens toujours le même arrêt de la macro avec le
message "erreur 1004 - la selection est trop grande"

(le plus étonnant c'est que la même macro comporte, quelques lignes avant,
une autre opération d'autofill sur la même feuille mais sur une plage
beaucoup plus importante encore, et sans problême!).
Pour plus de précision j'ajouterai que la même macro fait auparavant une
opération de filtre élaboré (sur la même feuille) puis
'ActiveSheet.ShowAllData'...
merci de votre aide

"Daniel.M" a écrit dans le message de
news:
Salut JJ, daniel,

Si c'est dans une procédure événementielle, il est IMPÉRATIF de mettre les
événements à FAUX avant l'appel à autofill (ça explique la lenteur et
l'épuisement de la pile).

Application.EnableEvents = False
Range("AO3:AQ3").AutoFill Destination:=Range("Ao3:Aq15000"),
Type:=xlFillDefault

Application.EnableEvents = True

Salutations,

Daniel M.


"Jacky" wrote in message
news:
Re..
Après essai.
Les deux fonctionnent dans un module standard, mais 'AutoFill' bug dans
un


appel événementiel (module de feuille)
Du moins chez moi..

Bon Week end
JJ

"daniel M." a écrit dans le message de
news:
jacky a écri:
J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en
manuel

cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")


bonjour jacky,
non ça ne change rien ...même erreur! (et trés lent aussi)
moi c'est office 2000.


"Jacky" a écrit dans le
message



de news:
Bonsoir Daniel

J'ai la même erreur(xl97) en plus d'une extrême lenteur, alors qu'en
manuel

cela fonctionne.
Bizarre!
Ne peux-tu remplacer par:
Range("AO3:AQ3").Copy Range("Ao3:Aq15000")

Salutations
JJ

"daniel M." a écrit dans le message de
news:%
bonjour
Selection.AutoFill Destination:=Range("Ao3:Aq10000"),
Type:=xlFillDefault


à cette action dans une macro j'obtiens le message d'erreur
suivant:





erreur d'execution 1004
la selection est trop grande
merci de votre aide
daniel




















Avatar
Daniel.M
Bonjour daniel,

Il faudrait voir le code événementiel de la feuille au complet (pour pouvoir
l'exécuter sur nos machines) : tes chances d'obtenir la bonne solution
augmenterait d'autant.
Parce que ce n'est pas évident si tu rajoutes des infos à chaque réponse.

Alors, si le code n'est pas 'top secret', publie-le ici. Sinon, perso, je
n'arrive pas à trouver ce qui cloche.

Salutations,

Daniel M.


"daniel M." wrote in message
news:%
Bonjour daniel,
je te remercie pour tes explication , hélas aprés avoir modifié le code
selon tes indications j'obtiens toujours le même arrêt de la macro avec le
message "erreur 1004 - la selection est trop grande"

(le plus étonnant c'est que la même macro comporte, quelques lignes avant,
une autre opération d'autofill sur la même feuille mais sur une plage
beaucoup plus importante encore, et sans problême!).
Pour plus de précision j'ajouterai que la même macro fait auparavant une
opération de filtre élaboré (sur la même feuille) puis
'ActiveSheet.ShowAllData'...
merci de votre aide



1 2