Sélection de "Names" par feuille

Bonjour,

Je souhaite créer un macro permettant, pour chaque onglet d'un fichier Excel de:
- Sélectionner l'onglet
- Aller dans chaque noms de plage de l'onglet qui commence par "Retri_CR_"et colorier cette plage.

Ci dessous, voilà mon code. Le problème avec celui-ci est qu'il ne fait rien: il ne colorie pas les plages de cellule.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub ColorForum()   Dim r As Variant Dim s As Worksheet   For Each s In Worksheets   s.Select   For Each r In s.Names   If r.Name Like "Retri_CR_*" Then With range(r.Name).Interior .ColorIndex = 40 .Pattern = xlSolid End With End If   Next   Next   End Sub

---

Je suis à peu près sur que mon problème vient de l'utilisation de:

Code:

---

For Each r In s.Names

---

Malheureusement, j'ai vraiment besoin de n'avoir que les noms des plages de cellules de l'onglet seulement et pas ceux de tout le classeur.

Avez-vous une idée ?

Merci pour vos réponses :D

Salut,

essaye avec

Code:

---

1 2	If left(r.Name,9) = "Retri_CR_" then ...

---

J'ai pas testé mais ca pourrait être déjà un point

Hello,

pour moi .Names est une collection de l'objet workbook et pas de worksheet ...

Pour obtenir le nom de l'onglet d'un objet Name, je le tenterais comme ça ...

Code:

---

objName.RefersToRange.Parent.name

---

Merci pour vos réponses Mellouille56 et Cafeine. En effet, le .Names est une collection de l'objet workbook et pas de worksheet. J'ai donc contourner le problème, en allant sur mon .names grâce au code:

Code:

---

application.Goto Reference:=r.Name

---

Cela donne donc:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub ColorForum()   Dim r AsVariant Dim s As Worksheet   For Each r In ActiveWorkbook.Names   If r.Name Like "RETRI_CR_*" Then application.Goto Reference:=r.Name ActiveSheet.Select 'Select the Activ With range(r.Name).Interior .ColorIndex = 40 .Pattern = xlSolid EndWith EndIf   Next   EndSub

---

Merci encore :D