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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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