XL 2010 récupérer le nom du champ utilisé pour la liste de validation

[Sheldor]

bonjour,

j'ai une plage de donnée que je nomme disons "marcel"

dans Validation, j'utilise ce champ comme liste pour alimenter un menu déroulant, disons en B1

je voudrais, par VBA récupérer le nom "marcel" quand je suis en B1, qu'il me dise en somme quel est le nom donné à mon champ qui alimente le menu déroulant ...

et je bloque depuis une semaine

immense merci par avance !

bonne fin de samedi pluvieux

nico

 

[Staple1600]

Bonsoir le fil, nicopec

nicopec
Cela semble fonctionner sur mon PC

Sub test()
Dim rng
Set rng = Range(Split(Range("B1").Validation.Formula1, "=")(1))
MsgBox rng.Name.Name & Chr(13) & rng.Address
End Sub

 

[sousou]

Bonjour
et comme ceci?
MsgBox ActiveCell.Validation.Formula1
activecell pouvant être le cellule recherchée

 

[sylvanu]

Bonjour le fil,
et juste le nom : Mid(ActiveCell.Validation.Formula1, 2)

 

[Staple1600]

Bonsoir sousou

Comme ceci ou comme cela, c'est idem, non ?
(Le cela étant dans le message#2 )

 

[Staple1600]

Bonsoir sylvanu

Même remarque sylvanu

[humour]
Vos navigateurs rafraîchissent les pages en "mode siesta", on dirait , les gars, non ?
[/humour]

 

[Sheldor]

MAGNIFIQUE
merci beaucoup à tous !!

je vais pouvoir alimenter une listbox dans un USF (nommé big_browser) qui sera plus pratique que juste le menu déroulant !

 

[Staple1600]

Re

nicopec
Si tu connais le nom, ceci pourrait suffire

Private Sub UserForm_Initialize()
ListBox1.List = Application.Transpose([marcel])
End Sub

NB: adapter avec le nom de ta ListBox

 

[Sheldor]

j'y arrive avec:

Me.ListBox2.RowSource = nom_menu

mais

ListBox2.List = Application.Transpose(nom_menu)

ne lui plait pas

 

[Staple1600]

Re,

nicopec
Regardes bien la syntaxe que j'ai employée et la tienne.
Tu ne vois pas la différence? )
Il manque quelque chose dans la tienne...

 

[Sheldor]

j'ai bien vu les [ ] et comme ils m'ont intimidés car je ne sais pas m'en servir je les ai enlevés...
mais
ListBox2.List = Application.Transpose([nom_menu])
ne fonctionne pas non plus

j'ai avant ça : nom_menu = Mid(ActiveCell.Validation.Formula1, 2)

je serais très heureux d'une explication sur les [ ]

 

[Sheldor]

enfin du moins j'ai pensé à tort que les [ ] servaient à donner le nom du menu mais pas utilisable pour une variable nom_menu à laquelle était attribuée mon nom

 

[Staple1600]

Re

Cela fonctionne pourtant sur mon PC
Fais ce test sur un feuille vierge d'un classeur vierge
(dans lequel tu auras insérer un userform avec une ListBox)
1) Lance cette macro (pour créer le test)

Sub test()
[A1:A10] = "=ADDRESS(ROW(),COLUMN(),4)"
[A1:A10].Name = "marcel"
End Sub

2) Dans le code de l'userform, copie le code du message#8
3) Affiche enfin l'userform
Normalement ta ListBox contient les valeurs de la plage nommée marcel

 

[Sheldor]

re
effectivement ça fonctionne mais ce que je ne saisis pas c'est comment utiliser mon nom_menu auquel je peux attribuer la valeur que j'ai trouvée (c'est à dire le nom utilisé dans la cellule active, et dans une autre cellule active ça pourra être autre chose que marcel)

mais bon ça fonctionne avec Me.ListBox2.RowSource = nom_menu

merci beaucoup en tout cas