Discussion :

[fanfan89]

Bonjour à tous,

je souhaite réaliser une boucle sur tous les onglets de mon classeur sauf le premier sachant que les noms des onglets ne forment pas de suite logique qui permette de les intégrer facilement dans la boucle.

Est-ce qu'il existe une solution svp?

Merci pour votre aide!

[isfet]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function rangement_graphique()
Dim feuille
Application.StatusBar = " Rangement des graphiques en cours"
For Each feuille In Workbooks(Class_data).Sheets 'on parcours notre classeur
Call DeplaceGraph(feuille.Name) 'appel de la fonction
Next feuille 'on passe a la feuille suivant, promis
 
End Function

cette fonction me permet d'appeler une fonction pour chacune de mes pages ça devrait t'aider

[zyhack]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim ws As Worksheet
For Each ws In Worksheets
  If ws.Name <> "nom de la feuille à ne pas traiter" Then
    'ce que tu veux faire ex: call maRoutine
  End If
Next

tu n'as qu'a changer "nom de la feuille à ne pas traiter" par le nom de ta premiere feuille
a+

[fanfan89]

ca marche très bien et en plus j'ai pas besoin de revoir tout mon code!

[aityahia]

Salut,

regarde ce sujet,

http://www.developpez.net/forums/d27...lasseur-excel/