Bonjour

La macro réalisé a pour objectif de parcourir des onglets et de commencer à faire des actions que sur des onglets commençant par "toto" par exemple.

Lorsque je réalise le parcours de ces onglets dans une feuille excel le premier onglet commençant par "toto" effectue correctement son action . En revanche lorsque j'entame le 2e onglets l'action s'arrete et m'averti que
"J'ai une erreur 9 :l'indice n'appartient pas à la sélection"

Dans un classeur chaque onglets sont protegé donc j'ai crée une méthode qui leve la protection d'un classeur ceci est fonctionnel.

Voici la manière que j'ai codé pour effectuer le parcours des onglets dans un classeur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
   'afficher les onglets toto
            Dim Current  As Worksheet
              For Each Current In Worksheets
 
                 If Left(Current.Name, 5) = "Toto" Then
 
                      Worksheets(Current.Name).Select // erreur enclenché au deuxieme onglet commençant par Toto. 
                       ' réalise un traitement 
                        Current.Visible = False //rendre l'onglet invisible
                  Else
                       Current.Visible = False
                   End If
 
                 Next Current
Je ne vois pas de quel manière je pourrais me débloquer .
dans le débugger je constate bien que le programme effectue le parcours des onglets
Je pensais donc à des solutions qui sont de masquer l'onglet un fois que c'est traité . et ensuite j'avais opté à positionner l'instruction ActiveSheet.name en début de traitement mais ceci ne semble pas fonctionner

Si vous avez une idée je suis preneur
Merci
Stardeus