Selection des onglets avec critère

Bonjour Nadyajah,

As-tu essayé quelque chose comme :

For Each c In Worksheets("Fichier client").Range("F2:F6")
Worksheets(Sheets(c.Value).Index).Tab.ColorIndex = CLng(c)
Next

tu peux remplace CLng(c) par une valeur de 1 à 56 pour la couleur de l'onglet.
évidemment, tes feuilles doivent déjà exister.


Salutations!



"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de news:
75709F2E-83ED-4110-B51F-99D5EE02EB24@microsoft.com...
Bonsoir à tous,

Voici ma question. J'ai un classeur nommé "Impression par salons" avec
différents onglets "Fichier client", "Actions",
"001","002","003","005","011"....
Les onglets commencant par les numéros "0xx" ont été créé par une macro qui
génére un onglet par valeurs contenues dans la colonne L de ma feuille
"Fichier client".
Par exemple, dans la feuille "Fichier client", j'avais en L2="001" en
L3="002" en L4="003" en L5="005" en L6="011".

Je voudrais lui dire que pour chaque onglet portant le nom compris dans la
colonne J exécuter une action précise (en l'occurence une mise en page
spécifique).

J'ai créé un truc du genre (mais bien sur cela ne fonctionne pas....)

Sub mise_en_page_onglets()

Dim d as Range
With Workbooks("Impression par salons")
Sheets("Fichier client").Select
Set plage = Range("L2", Range("L65536").End(xlUp))

For Each d In plage
Sheets(d).Select
macro1
Next d

End With
End Sub