Discussion :

[dude91820]

Bonjour à tous !

Comme je l'ai écrit dans le titre, je cherche à identifier la page correspondant à une cellule nommée (via gestionnaire des noms).

Code :

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

1
2
3
4
5
6
7
8
9
 
 Set nms = ActiveWorkbook.Names
'Je parcours tous les noms attribués via le gestionnaire des noms
For r = 1 To nms.Count
        'Je cherche à définir une condition du type : 
        SI "nms(r).Name" appartient à "Telle_Page" ALORS :
 
        FIN SI
Next

Cela doit être possible à réaliser mais je n'ai pas réussi à trouver une syntaxe qui fonctionne.
Je vous remercie par avance de votre aide.
Cdlt Dude;

[cerede2000]

Bonjour à toi,

Pour avoir le nom de la feuille d'une plage nommée :

Code :

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

nms(r).RefersToRange.Parent.Name

Je préfère les for each

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Dim nm As Name
 
    For Each nm In ThisWorkbook.Names
        Debug.Print nm.Name & " se trouve sur la feuille " & nm.RefersToRange.Parent.Name
    Next
 
End Sub

[dude91820]

Merci à toi pour cette réponse rapide et efficace, passe une bonne journée !