Identifier toutes les cellules nommées ayant le même préfixe

[Magic_Doctor]

Bonsoir,

Dans ma feuille, j'ai un certain nombre de cellules nommées dont certaines ont un préfixe commun ; "Dil"
Plutôt que d'écrire :
Set cellRecherche = Range("DilNbUXFl1a, DilVolS1a, DilNbGrS1a, DilNbUXParGr1a, DilNbUXGet1a, DilVolS1b, DilNbGrS1b, DilNbUXParGr1b, DilNbUXGet1b, DilVolS1c, DilNbGrS1c, DilNbUXParGr1c").Find("? ? ?")

n'y aurait-il pas un moyen pour obtenir quelque chose du genre :
Set cellRecherche = Range(toutes les cellules nommées dont le nom commence par "Dil").Find("? ? ?")

Imaginez qu'il y ait 250 cellules nommées avec des noms à coucher dehors...

Merci d'avance.

 

[skoobi]

Re : Identifier toutes les cellules nommées ayant le même préfixe

Bonjour Magic Doctor,

je te suggère d'utiliser Name comme ceci:

Sub Nom()
Dim Nom As Name, cellRecherche As Range
For Each Nom In ThisWorkbook.Names
  If Nom.Name Like "Dil*" Then
    If cellRecherche Is Nothing Then
      Set cellRecherche = Range(Nom.Value)
    Else: Set cellRecherche = Union(cellRecherche, Range(Nom.Value))
    End If
  End If
Next
cellRecherche.Find...........
........
............
End Sub

Bon test.