Erreur code VBA - Erreur 400

[mariaunaud35]

Bonjour,

J'ai réussi à bidouiller un code VBA trouvé sur Internet. Tout fonctionne bien sauf que quand je lance ma macro le message "Erreur 400" apparait.

J'ai cherché tout ce que j'ai pu mais imposible de le résoudre.

Petite précision je n'y connait pas grand chose en VBA, je sais juste piquer le travail des autres et l'arranger pour mon utilisation...

Merci d'avance pour vos conseils!

Marion

 

[tashiqi]

Re : Erreur code VBA - Erreur 400

Peux-tu m'indiquer le but de la macro ? je pense avoir trouvé le problème, mais je ne sais pas dans quel sens aller ...

 

[tashiqi]

Re : Erreur code VBA - Erreur 400

Ce qui pose problème c'est, je pense, cette ligne

For Each c In Sheets("Liste").Range("A2:A27" & Sheets("Liste").Range("A7").End(xlUp).Row)

En effet, tu fais un mix entre la détection de la dernière ligne, et l'entrée manuelle de cette ligne, et tu te retrouves avec une range trop grande (A2:A271). soit il faut la changer en

For Each c In Sheets("Liste").Range("A2:A27")

soit en

For Each c In Sheets("Liste").Range("A2:A" & Sheets("Liste").Range("A7").End(xlDown).Row)

soit en

For Each c In Sheets("Liste").Range("A2:A27" & Sheets("Liste").Range("A65000").End(xlUp).Row)

Mais dans ce dernier cas il faut vider la colonne A en dessous de ton tableau ...

 

[mariaunaud35]

Re : Erreur code VBA - Erreur 400

Super!

Tes deux premières propositions fonctionnent très bien! Toutes mes feuilles sont créées sans problème.

Merci pour ton aide et ta rapidité!

Je n'ai plus qu'à travailler sur un calendrier perpétuel et tout sera bouclé!

Encore merci!

 

[tashiqi]

Re : Erreur code VBA - Erreur 400

Pour précision,

For Each c In Sheets("Liste").Range("A2:A27")

aura un nombre d'entrées fixe, c'est-à-dire que si tu rajoutes des lignes à ton tableau, elle ne seront pas considérées, tandis qu'avec

For Each c In Sheets("Liste").Range("A2:A" & Sheets("Liste").Range("A7").End(xlDown).Row)

si tu rajoutes des lignes, elles seront prises en compte.

Bonne chance

 

[mariaunaud35]

Re : Erreur code VBA - Erreur 400

C'est plus ou moins ce que j'avais compris, c'est pourquoi j'étais partie sur la deuxième proposition.

C'est l'hisoire du Range("A7") que je n'arrive pas à comprendre, je ne vois pas ce qu'il fait là!

Encore merci pour tout!

 

[tashiqi]

Re : Erreur code VBA - Erreur 400

Tu as raison, prends celle-ci

For Each c In Sheets("Liste").Range("A2:A" & Sheets("Liste").Range("A1").End(xlDown).Row)

c'est plus propre
en fait, End(XXX) te permet d'aller à la fin de la section (ou quelque chose du genre), dans la direction précisée, aussi

For Each c In Sheets("Liste").Range("A2:A" & Sheets("Liste").Range("A7").End(xlDown).Row)

ne marche pas avec moins de 7 lignes, ce qui est facheux.

 

[mariaunaud35]

Re : Erreur code VBA - Erreur 400

Parfait! Ca marche et je comprends! Que demander de plus...

Encore encore merci!