Discussion :

[sal]

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

[melouille56]

Salut,

essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[cafeine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

objName.RefersToRange.Parent.name

[sal]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

application.Goto Reference:=r.Name

Cela donne donc:

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
 
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