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

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #2

Bonsoir le fil, nicopec

nicopec
Cela semble fonctionner sur mon PC

VB:

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 30 Novembre 2019

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 30 Novembre 2019

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #5

Bonsoir sousou

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #6

Bonsoir sylvanu

Même remarque sylvanu

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

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 30 Novembre 2019

• #7

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 !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #8

Re

nicopec
Si tu connais le nom, ceci pourrait suffire

VB:

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

NB: adapter avec le nom de ta ListBox

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 30 Novembre 2019

• #9

j'y arrive avec:

Me.ListBox2.RowSource = nom_menu

mais

ListBox2.List = Application.Transpose(nom_menu)

ne lui plait pas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #10

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

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 30 Novembre 2019

• #11

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 [ ]

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 30 Novembre 2019

• #12

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #13

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)

VB:

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

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 30 Novembre 2019

• #14

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

 

Vote positif 0 Vote négatif