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

D

D.D.

XLDnaute Impliqué

• 17 Janvier 2019

• #2

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.

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 17 Janvier 2019

• #3

Tu devrais y arriver avec ca 🙂

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Janvier 2019

• #4

Bonjour cp4

salut DD
pour aller un peu plus loin:

Code:

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 17 Janvier 2019

• #5

@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.

 

Dernière édition: 17 Janvier 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Janvier 2019

• #6

Bonsoir cp4, D.D., Pierre,

cp4 à dit:

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

Cliquez pour agrandir...

Code:

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 18 Janvier 2019

• #7

job75 à dit:

Bonsoir cp4, D.D., Pierre,

Code:

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

Cliquez pour agrandir...

Bonjour Job75🙂,

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

 

Vote positif 0 Vote négatif