Discussion :

[Grimlands]

Bonjour,

J'essaie d'extraire le texte sélectionné d'une dropdown afin de le comparer ultérieurement. A priori ce que j'appelle dropdown serait une combobox ou une listobx. Elle est intégrée directement à me feuille de calcul et ne fait pas partie d'un userform (ce qui me ferme environ 99% des infos sur les combobox/listbox dispo sur le net). Le souci est que je ne sis absoluement pas comment faire, j'ai déjà essayé plusieurs méthodes, et aucune ne semble fonctionner.

Voici où j'en suis (bout de code ciblé) Ligne 74, module 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set champ = ActiveSheet.DropDowns("Zone combinée 45")
num = champ.Value
Choix = champ.ListEntries(num).Name
 
For Each c In Feuil3.Range("e1:e" & nligne)
    If Cells(i, 2).Value = Choix Then

Je vous joint la feuille entière si vous voulez voir le contexte global, je bute sur le module 3, qui fonctionne dans la feuille 3.

Merci d'avance