Sélection d'une feuille sur quatre

[Bg's]

Bonjour tout le monde,

J'aimerais savoir si il est possible avec VBA de sélectionner une feuile sur 4.

C'est à dire que j'ai une fichier excel qui est composé de 200 feuiilles.

Les feuilles sont groupées par 4.

C'est à dire que quand la 4e feuille à été remplie elle passe à la feuille 5 qui correspond à la feuille 1 ensuite à la feuille 6 qui correspond à la feuille 2....

J'aimerais donc une macro qui sélectionne la feuille 1,5,9,13...

et je l'adapterai pour la sélection de la feuille 2,6,10...

Est-ce possible ?

Merci d'avance pour votre aide.

Bg's

 

[Yeahou]

Bonjour Bg's

le code suivant devrait fonctionner

A+

for compteur=1 to activeworkbook.worksheets.count
if (compteur-1)/4=(compteur-1)\4 then
activeworkbook.worksheets(compteur).select
'macro à exécuter
end if
next compteur

 

[Bg's]

Bonjour Yeahou,

Merci pour ta réponse.

Je vais le vérifier dans quelques minutes.

Merci encore
David

 

[Surfing Joe]

Bonjour,

Pourquoi ne pas nommer les feuilles 1_1*** 1_2***jusqu'à 3 , puis 2_ 1***etc , puis 3_ 1***etc .

Ensuite utilise la macro complémentaire "ClickDroitListeFeuilleZ.xla" pour trier tu auras toutes les feuilles 4 en premier.

Par contre il faudra ensuite ramener manuellement les feuilles à leur position d'origine, ou enregitrer une copie avant le trie, car il n'y a pas de marche arrière sur cette macro, et je ne sais pas si on peut ecrire un code pour ça.

C'est intéressant tiens nous au courrant de la suite...

CordialExcellement, S.J.