Obtenir la liste déroulante valeur en VBA et obtenir le nom de la liste déroulante...nulle part pour être trouvée?

J'ai créé une liste déroulante en faisant glisser la zone de liste modifiable sur ma fiche de l'objet UserForm barre d'outils. J'ai affecté certaines valeurs de certaines cellules dans le livre. Maintenant je veux un code VBA pour access sélectionnés de la liste déroulante de l'élément de valeur dans la forme d'une chaîne.

Ma liste déroulante contient uniquement du texte.

Aussi comment puis-je trouver le nom de cette nouvelle liste déroulante (c'est nulle part dans les propriétés!)?

OriginalL'auteur EKet | 2010-09-29

7
```
Dim dd As DropDown
Set dd = ActiveSheet.DropDowns("Drop Down 6") 
Set r = Sheet2.Range(dd.ListFillRange)

Set ddValue = r(dd.Value)
```
NOTES:
- Déroulante n'est pas visible de la classe. Vous
  viens de l'utiliser et il fonctionne.
- Pour trouver le nom de la liste déroulante
  CONTRÔLE (pas userform) il suffit de regarder
  
  le nom de la zone dans le coin supérieur gauche de votre écran, juste au-dessus de la colonne A.
  Il dit que le nom de la commande lors de la
  vous faites un clic droit sur votre contrôle.-
- Feuil2 est où la liste est
  peuplée. Ainsi, lorsque votre liste de données
  est.
  
  Espère que vous aide à tous.
OriginalL'auteur EKet
3

Voici comment vous obtenez la Chaîne sans avoir besoin de connaître le nom de:
```
Dim DD As Shape

Set DD = ActiveSheet.Shapes(Application.Caller)

MsgBox DD.ControlFormat.List(DD.ControlFormat.ListIndex)
```
Je reçois une incompatibilité de type sur la 2ème ligne. Encore une fois je ne sais pas comment cela fonctionne, mais je suis en utilisant le menu déroulant non pas à l'utilisateur la forme, peut-être, qui change la façon dont nous avons l'habitude de l'accès à la chaîne.
J'ai testé la mienne en cliquant sur le contrôle zone de liste déroulante dans la barre d'outils, puis en cliquant sur la feuille pour l'ajouter. J'ai ensuite créé les DropDown1_Change sous sur la Feuille 1 du présent code. Ensuite, je suis retourné à la zone de liste déroulante, bouton droit de la souris et a choisi Affecter une Macro et ramassa la Macro en question que je venais de créer. Ensuite, j'ai cliqué droit et repris le Contrôle du Format, et a choisi la gamme d'entrée de l'A1:A3. J'ai alors mis certaines valeurs de A1, A2 et A3. Puis, quand j'ai cliqué sur la zone de liste déroulante et choisissez l'une de ces valeurs, une boîte de Message est apparu avec la valeur.
Lance, merci pour le détail, étape par étape. J'ai essayé vos instructions à Nouveau et j'ai toujours reçu la même erreur. J'ai cependant un poste de travail de répondre déjà à l'avance ce qui est intuitif et clair. Cette méthode me permet de voir ce que je vais appeler et d'identifier les types d'objets que j'utilise (j'.e liste Déroulante). Donc, en tant que programmeur, je ne suis pas juste de voir générique de la forme des objets et de l'Application de l'Appelant. J'aime votre méthode pour un plus générique scénario plutôt qu'un menu déroulant ou 2 listes déroulantes qui filtre des données. Néanmoins Merci pour vos efforts!

OriginalL'auteur Lance Roberts
0

C'est un maladroit façon de le faire, mais il devrait fonctionner:
```
Dim o As Object

For Each o In Worksheets("Sheet1").Shapes
    MsgBox o.Name
Next o
```
Il y a aussi une face cachée de DropDowns de la collection de la Worksheet objet que vous pouvez parcourir. Cela permettra de trouver des articles insérés à partir de la Forms de la barre d'outils, mais ne sera pas trouver des objets insérés à partir de la Control Toolbox barre d'outils

OriginalL'auteur barrowc
0

Lance Roberts était presque là. Si vous ne connaissez pas le nom de la liste déroulante, qui appelle le sous, utilisez ceci:
```
Dim dd as DropDown
Set dd=ActiveSheet.Shapes(Application.Caller).OLEFOrmat.Object

Dim ddVal as String
ddVal=dd.List(dd.ListIndex)
```
J'ai utilisé pour créer un générique sous une forme avec de nombreux menus déroulants.

OriginalL'auteur Rhys

Vous devez vous connecter pour publier un commentaire.