[RESOLU] Boucle sur feuilles

[cp4]

Bonjour,

Le cas a été peut-être traité mais je n'ai pas trouvé ce qu'il me faut.
Voilà, je voudrais appliquer des pieds de page à seulement certaines feuilles.
Il s'avère que le codename des feuilles concernées va de Feuil4 à Feuil11.
Donc il me faudrait une boucle pour appliquer le pied de page uniquement à ces feuilles.

En vous remerciant par avance.

Bon après-midi.

 

[cp4]

Re

Moi j'ai éffectué un test avec le code que j'ai montré, aucun problème.

Oui Lone-wolf ça fonctionne, si et seulement si les feuilles se suivent.
Par contre sur mon fichier, j'avais supprimé des feuilles et ajouté d'autres.
et du coup les feuilles ne se suivent plus. c'est pour ça que ton code ne fonctionne pas sur mon fichier.
Mais rassures-toi, je l'ai testé sur un autre fichier et ça fonctionne parfaitement.

Merci beaucoup.

 

[cp4]

Re vCP4 le forum
c'est normal, dans ce cas là comment veux tu que ta variable f prenne la valeur de ton array a ???
c'est normal que cela plante par contre ta macro au dessus est très bien !!!
a+
Papou

Merci de me rassurer.
Mais alors j'ai déclaré la variable f pour rien?!!!

 

[Lone-wolf]

Re

@cp4
Bein c'est tout simple, tu renomme les feuilles dans les propriétés VBA.

 

[Paritec]

Re CP4 le forum
Oui c'est tout a fait cela tu vires f et cela marchera aussi bien
Pour lone wolf, même en insistant lourdement le travail sur l'index est fonction du positionnement des feuilles dans ton classeur, donc si la feuil1 est en position 10 en bas de ton classeur cette feuille aura l'index 10 et dans ta boucle de 1 a 8 elle ne sera pas prise en compte.
Faire x=3 et après x=x+1 est ridicule, si tu veux faire une boucle de 3 à 8 il suffit de faire for i= 3 to 8 et basta.
Bonne soirée
Papou

 

[Si...]

Bon_soir

Je ne sais pas si tu as trouvé ton bonheur mais je te donne quand même ma version des faits avec déclaration à minima (pas de F ):

Sub Essai()
  Dim i As Byte
  For i = 0 To 7
  With Sheets(Array("MaFeuil1", "Ab", "A", "D", "F", "Bilan", "Consolider", "Test")(i)).PageSetup
  'en-tête de page
  .LeftHeader = "ABCD": .RightHeader = "ABCD"
  'pied de page
  .LeftFooter = "ABCD": .RightFooter = "ABCD"
  End With
  Next
End Sub

 

[Lone-wolf]

Bonsoir tout le monde

@Paritec : dans le vba tu as bien ceci

Feuil1(Feuil1)
Feuil2(Feuil2)
Feuil3(Feuil3)

Sheets(x) est le code name de la feuille et non le nom de l'onget juste?
Si oui, qu'est-ce que ça à avoir sa position??

En PJ

 

[cp4]

Bonjour tout le monde,

Un grand merci à vous tous.
Mais allez-y doucement. Avec un esprit tordu comme le mien, je risque fort de ne rien retenir.
Je vais prendre le temps et à tête reposée de filtrer pour comprendre mes erreurs.
Et surtout comprendre vos propositions afin de les adapter à mes besoins.

Encore merci.

Bonne journée qui s'annonce chaude d'après Météo France.

 

[cp4]

Bonsoir tout le monde

@Paritec : dans le vba tu as bien ceci

Feuil1(Feuil1)
Feuil2(Feuil2)
Feuil3(Feuil3)

Sheets(x) est le code name de la feuille et non le nom de l'onget juste?
Si oui, qu'est-ce que ça à avoir sa position??

En PJ

Bonjour Lone-wolf,
En retour ton fichier et tu comprendras pourquoi je n'ai pas adopté ton code.
Si nous supprimons ou ajoutons une feuille ton code n'est plus adapté.
Enfin, du moins d'après mes constations.

bonne journée.

 

[Lone-wolf]

Re

@cp4
Bein c'est tout simple, tu renomme les feuilles dans les propriétés VBA.

 

[Paritec]

Bonjour Lone Wolf le forum

Bonsoir tout le monde
@Paritec : dans le vba tu as bien ceci
Feuil1(Feuil1)
Feuil2(Feuil2)
Feuil3(Feuil3)
Sheets(x) est le code name de la feuille et non le nom de l'onget juste?
Si oui, qu'est-ce que ça à avoir sa position??

Tu dis que tu as feuil1(feuil1) et que c'est le code name ??? Non Non non pas du tout le code name c'est Feuil1 et le name c'est la valeur qui est entre parenthèse (Feuil1)
et dans la boucle que tu proposes, tu prends X comme variable qui est un chiffre de 3 à je ne sais plus mais qui est un chiffre.
Donc si tu écris sheets(3) tu ne sélectionnes pas Feuil3 mais la feuille du troisième onglet de ton fichier en bas!!!
Ce que l'on appelle l'index 3
Voilà Voilà
a+
Papou

 

[Si...]

Re
Toujours partisan de l'affichage des fenêtres clés, on voit bien la distinction entre les trois* mots

*Lone, on est moins solitaire à trois, non ?

 

[Paritec]

Re Bonjour Si Lone Cp4 le forum
Bien Si tu mets la réponse en image, mais reconnaissons que sur la ligne du code name à gauche il est écrit (Name) alors bon !!!
Une certitude Si, merci pour Lone et bon weekend
a+
Papou