Récupérer noms cellules dans variable[RESOLU]

[cp4]

Bonjour,

Pour donner un coup de main (https://www.excel-downloads.com/threads/modification-couleur-onglet-sur-variable.20028205/), je suis confronté à la difficulté suivante.
Sur les feuilles 3 à dernière (évolution de feuille), se trouve une cellule nommée mais dont l'adresse diffère dans chaque feuille. Je voudrais récupérer le nom de chaque cellule nommée dans une variable tableau.

En vous remerciant.

 

[D.D.]

Hello

D'abord un
ActiveWorksheet.names.count
te donne le nombre de cellules nommées
puis
ActiveWorkbook.Names.Item (xxxx)
te donne l'adresse de chaque et
ActiveWorkbook.Names.Item (xxxx).Name
te donne son nom.

 

[D.D.]

Tu devrais y arriver avec ca

 

[pierrejean]

Bonjour cp4

salut DD
pour aller un peu plus loin:

Sub test()
ReDim tabnom(2, 0)
For Each celnommée In Application.Names
  tabnom(1, UBound(tabnom, 2)) = celnommée.RefersTo
  tabnom(2, UBound(tabnom, 2)) = celnommée.Name
  ReDim Preserve tabnom(2, UBound(tabnom, 2) + 1)
Next
For n = LBound(tabnom, 2) To UBound(tabnom, 2) - 1
   MsgBox (tabnom(2, n) & "  " & tabnom(1, n))
Next
End Sub

 

[cp4]

@D.D. , @pierrejean ,

Tous mes remerciements. C'est parfait.

edit: une question à Pierrejean, tabnom(1, UBound(tabnom, 2)) = celnommée.RefersTo contient l'adresse de la cellule nommée, c-à-d nom de la feuille suivi de l'adresse de la cellule.
Comment avoir l'index de la feuille ou le (name) de la feuille? Merci beaucoup.

 

[job75]

Bonsoir cp4, D.D., Pierre,

Comment avoir l'index de la feuille ou le (name) de la feuille?

Sub Test1()
Dim nom As Name, mes$
For Each nom In ThisWorkbook.Names
If TypeName(Evaluate(nom.RefersTo)) = "Range" Then mes = mes & vbLf & nom.Name & " => " & Evaluate(nom.RefersTo).Parent.Name
Next
MsgBox Mid(mes, 2)
End Sub

 

[cp4]

Bonsoir cp4, D.D., Pierre,

Sub Test1()
Dim nom As Name, mes$
For Each nom In ThisWorkbook.Names
If TypeName(Evaluate(nom.RefersTo)) = "Range" Then mes = mes & vbLf & nom.Name & " => " & Evaluate(nom.RefersTo).Parent.Name
Next
MsgBox Mid(mes, 2)
End Sub

Bonjour Job75,

C'est parfait, comme à l'accoutumé.
Tous mes remerciements.