Boucler sur des noms de feuilles

[Troudz]

Bonjour tout le monde,

J'ai une macro à faire tourner successivement sur plusieurs feuilles. Ne pouvant pas me baser sur les numéros d'index de ces feuilles (elles sont déplacées régulièrement), je n'ai eu d'autres choix que dupliquer X fois ma macro et d'utiliser un "With" ce qui donne :

Sub AttributionNoms()
    With ThisWorkbook.Sheets("Données mensuelles")
        'Contenu de ma macro
    End with
    With ThisWorkbook.Sheets("Données trimestrielles")
        'Contenu de ma macro
    End with
    With ThisWorkbook.Sheets("Données annuelles")
        'Contenu de ma macro
    End with
    'etc....
End sub

Ne serait - il pas possible d'utiliser une boucle pour faire un code un peu plus propre ?

Je vous remercie par avance pour votre aide.

Bonne journée

 

[ChTi160]

Re : Boucler sur des noms de feuilles

Bonjour Troudz
Bonjour el fil
Bonjour le forum

une question ta macro est telle la même pour l'ensemble des feuilles Traitées ? ici Trois .

on pourrait dans ce cas faire un truc du genre.

Dim Ws as worksheet
For Each Ws in Worksheets
       If Ws.Name Like "Données*" Then
    With WS
                 'Contenu de ma Macro
    End With
      End if
Next Ws

non testé !!!!
pas évident sans fichier
PS :Oupppss Salut pierrejean
Bonne Journée
Amicalement
Jean Marie

 

[pierrejean]

Re : Boucler sur des noms de feuilles

Bonjour Troudz

A tester:

Sub AttributionNoms()
feuilles = Array("Données mensuelles", "Données trimestrielles", "Données annuelles")
For n = LBound(feuilles) To UBound(feuilles)
    With ThisWorkbook.Sheets(feuilles(n))
        'Contenu de ma macro
    End With
End Sub

Edit: Bing Salut le Chti

 

[Troudz]

Re : Boucler sur des noms de feuilles

Bonjour Chti, Pierrejean,

Merci pour les solutions proposées.
Elles fonctionnent toutes les deux parfaitement.

Bonne journée