XL 2019 Boucle sur plusieurs feuilles

[dadaze]

Bonjour,

Après plusieurs échec, je me tourne vers vous pour solutionner mon problème.

Je m'explique.

j'ai créé une macro pour boucler sur plusieurs feuilles et sur le principe ça fonctionne mais je souhaite boucler à partir de la feuille active plus sur les autres 5 suivantes.

Et c'est là ou se situe mon souci.

En effet, pour l' exemple si ma feuille active est en 3ième position en partant de la gauche lorsque je lance ma macro elle boucle à partir du 1er onglet.

Le module se nomme copie_tansfert

Je ne comprends pas.

Je joins le dossier.

si l'un d'entre vous pourrait m'aider, je l'en remercie par avance.

Bien cordialement

 

[sylvanu]

Bonjour Dadaze,
Pour traiter les 5 feuilles consécutives de la feuille courante, vous pouvez faire :

Sub TraitementSurLesCinqFeuilles()
Dim IndexPageCourante%, IndexMax%, DernierIndex%, N%
IndexPageCourante = ActiveSheet.Index                           ' Numéro de la page courante
IndexMax = ActiveWorkbook.Sheets.Count                          ' Numéro de la dernière feuille
DernierIndex = Application.Min(IndexPageCourante + 4, IndexMax) ' Au cas où on est à moins de 5 feuilles de la dernière
For N = IndexPageCourante To DernierIndex                       ' Pour les 5 feuilles concernées
    ' Votre macro
Next N
End Sub

En remplaçant le ligne "Votre macro" par votre macro de traitement.

 

[fanfan38]

Bonjour
il suffit de modifier
For ws = ActiveSheet.Index To 5
par
For ws = ActiveSheet.Index To ActiveSheet.Index + 5

A+ François

 

[dadaze]

Bonjour Dadaze,
Pour traiter les 5 feuilles consécutives de la feuille courante, vous pouvez faire :

Sub TraitementSurLesCinqFeuilles()
Dim IndexPageCourante%, IndexMax%, DernierIndex%, N%
IndexPageCourante = ActiveSheet.Index                           ' Numéro de la page courante
IndexMax = ActiveWorkbook.Sheets.Count                          ' Numéro de la dernière feuille
DernierIndex = Application.Min(IndexPageCourante + 4, IndexMax) ' Au cas où on est à moins de 5 feuilles de la dernière
For N = IndexPageCourante To DernierIndex                       ' Pour les 5 feuilles concernées
    ' Votre macro
Next N
End Sub

En remplaçant le ligne "Votre macro" par votre macro de traitement.

Mille merci je vais tester

 

[dadaze]

Bonjour
il suffit de modifier
For ws = ActiveSheet.Index To 5
par
For ws = ActiveSheet.Index To ActiveSheet.Index + 5

A+ François

Merci beaucoup je teste

 

[sylvanu]

Re,
@fanfan38
Si la feuille active est dans les 4 dernières alors il y a erreur.
Par ex dans la PJ avec 103 feuilles, si la feuille active est la 100ème alors il y aura erreur sur la feuille 104 car elle n'existe pas.
D'où la sécurité :

DernierIndex = Application.Min(IndexPageCourante + 4, IndexMax)