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

cp4 · 17 Janvier 2019

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. · 17 Janvier 2019

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. · 17 Janvier 2019

Tu devrais y arriver avec ca

pierrejean · 17 Janvier 2019

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

cp4 · 17 Janvier 2019

@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 · 17 Janvier 2019

Bonsoir cp4, D.D., Pierre,

cp4 à dit:
Comment avoir l'index de la feuille ou le (name) de la feuille?

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

cp4 · 18 Janvier 2019

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

Bonjour Job75,

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

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

cp4

XLDnaute Barbatruc

Pièces jointes

D.D.

XLDnaute Impliqué

D.D.

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires