Selection automatique des feuilles

[Fab117]

Salut,
A l'ouverture de mon fichier Excel, une macro scanne diverses feuilles (le but est de controler les dates indiquées dans une colonne et si la date est dépassée, un message apparait dans une feuille nommée ATTENTION).
Pour l'instant, ma macro fonctionne, mais je répète la routine pour chaque feuille. Ci dessous la première routine :

Sheets('1ère série').Select
... routine. Les dates périmées sont reportées sur la feuille ATTENTION
' Fin de la vérification de la feuille 1ère série

Pour vérifier la 2ème feuille, je recommence le tout en commencant par :

Sheets('2ème série').Select

Ne serait-il pas possible de faire une boucle où il testerait toutes les feuilles (quelque soit le nom), mise à part la feuille ATTENTION.

Merci d'avance.

Fab

 

[myDearFriend!]

Bonsoir Fab117,

Une façon de faire :

Sub Traitement()
Dim F As Byte
      For F = 1 To Worksheets.Count
            If Sheets(F).Name <> 'ATTENTION' Then
                  Sheets(F).Select
                  ' TON CODE ICI...
            End If
      Next F
End Sub

Cordialement,

 

[Fab117]

Super,
ça marche parfaitement.

Merci et bonne soirée.
Fab

 

[Visiteur]

Bonjour,

Serait-il possible d'avoir une copie de votre code, car je serais interessé.

Merci