sélectionner toutes les plages nommées

[_RV]

Salut à tous,

je sais que j'arrive un peu comme une fleur en cette fin de journée-semaine... mais voilà, je suis devant un problème qui me semble simple, mais que je ne parviens pas à résoudre.

Je voudrais juste sélectionner toutes les plages qui portent un nom en même temps (le faire l'une après l'autre j'y arrive mais ca ne m'intéresse pas), et pas les autres. Il me faudrait un code VB bien évidement. Qqun a-t-il la baquette magique qui me permettrait de partir en week end serein?

d'avance merci beaucoup...

 

[ChTi160]

Salut _RV
bonjour le fil
bonjour le Forum
cette procèdure fait aussi la sélection des plages nommées de la feuille active à voir

Sub test1()
Dim wks As Worksheet
Dim r As Byte
Dim plage As String

Set wks = ActiveSheet
With wks
For r = 1 To .Names.Count

MsgBox .Names(r).RefersToRange.Address
plage = plage & ',' & .Names(r).RefersToRange.Address
Next

Range(Mid(plage, 2)).Select
End With
End Sub
bonne fin de Journée