XL 2016 Sélection d'une grande quantités de plages nommées

[AntonG]

Bonjour,

Je souhaiterais savoir comment écrire une grande quantité de plage nommée. J'ai trouvé une piste avec l'enregistreur de macro pour passer à la ligne mais cela ne marche guère.

Le but de la manœuvre est de sélectionner ces plages et de leur attribuer une certaine couleur. Ce morceau de code fais partie d'une série d'action dans un "If"

J'ai volontaire retiré la plupart des plages afin de na pas alourdir l'exemple

Union(Range _
"Partie_04_T01_J,Partie_04_T24_J,Partie_04_T25_J" _
), Range( _
"Partie_09_T01_J,Partie_09_T24_J,Partie_09_T25_J" _
), Range( _
"Partie_12_T01_J,Partie_12_T25_J" _
)).Select
With Selection.Interior
.Pattern = xlLightUp
.PatternColorIndex = xlAutomatic
.Color = 13434879
.TintAndShade = 0
.PatternTintAndShade = 0
End With


En vous remerciant par avance pour votre aide !

 

[Jacky67]

Bonjour,
Essaye un type de code de ce genre
En adaptant le nom des plages nommées

With Union([plage1], [plage2], [plage3]).Interior
.Pattern = xlLightUp
.PatternColorIndex = xlAutomatic
.Color = 13434879
.TintAndShade = 0
.PatternTintAndShade = 0
End With

 

[AntonG]

Merci pour la réponse, mais comment faire pour continuer à écrire les plages? Car j'en ai une certaine quantité qui fait que ça va plus loin que ce qui est permis

 

[Jacky67]

Merci pour la réponse, mais comment faire pour continuer à écrire les plages? Car j'en ai une certaine quantité qui fait que ça va plus loin que ce qui est permis

Re..
Sauf erreur ,"union" supporte 30 plages
S'il devait y avoir plus que 30 plages faire autant d'union qu'il y a de série de 30 plages
With Union([plage1], [plage2],...……. [plage30]).Interior
'-----
'-----
End With

With Union([plage31], [plage32],...……. [plage60]).Interior
'-----
'-----
End With
etc.….

 

[AntonG]

Re, je vais tester ça quand j'aurai mon ordinateur portable, je te tiens au courant

Merci!

 

[Jacky67]

Re, je vais tester ça quand j'aurai mon ordinateur portable, je te tiens au courant

Merci!

Re..
Il y a aussi, sans union et sans limite
With Range("plage1, plage2, plage3,...…. ").Interior
----
---
End With

 

[job75]

Bonjour AntonG, Jacky67,

A condition que toutes les plages nommées soient dans la même feuille de calcul :

Sub CouleursPlagesNommées()
Dim nom As Name, plage As Range
For Each nom In ThisWorkbook.Names
    If TypeName(Evaluate(nom.Name)) = "Range" Then Set plage = Union(IIf(plage Is Nothing, Range(nom.Name), plage), Range(nom.Name))
Next
If plage Is Nothing Then Exit Sub
With plage.Interior
    .Pattern = xlLightUp
    .PatternColorIndex = xlAutomatic
    .Color = 13434879
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
End Sub

A+

 

[AntonG]

Merci à tous pour votre aide,
j'ai finalement séparé les plages pour éviter d'arriver plus loin que la limite cela dédouble les actions mais cela me convient dans mon cas