Remplissage zone de liste qui est sur une feuille Excel

[richert90]

Bonjour à tous,

Voilà j'ai un problème assez bête..
J'ai une zone de liste sur une feuille Excel mais je n'arrive pas à l'alimenter en VBAavec les valeurs situées dans la colonne A de la même feuille.
D'habitude j'utilise directement des zones de listes dans des UserForms mais là j'ai besoin que cette zone de liste soit directement incorporée sur une feuille Excel mais je ne trouves pas comment on peut faire pour la remplir.

Voilà dans un UserForm comment je récupère des valeurs dans une zone de lsite:

 'Renseignement de la zone de liste:
    Filtre.zl_rapport.Clear 'Nettoyage zone de liste 'board' dur UserForm Filtre
    For nb_item = 2 To Fin
            Filtre.zl_rapport.AddItem Cells(nb_item, 11)
    Next nb_item
    Filtre.zl_rapport.ListIndex = -1

Je joins un fichier exemple,

Merci d'avance de votre aide,

 

[JHA]

Re : Remplissage zone de liste qui est sur une feuille Excel

Bonjour à tous,

A essayer, liste sans doublon rattachée à la zone de liste

JHA

 

[Efgé]

Re : Remplissage zone de liste qui est sur une feuille Excel

Bonjour richter90, Bonjour JHA

En utilisant une zone de liste déroulente Contrôle Active X (PAS formulaire)

Private Sub ComboBox1_GotFocus()
Dim i&, Dico As Object, TData As Variant
Set Dico = CreateObject("scripting.dictionary")
With Sheets("Feuil4")
    TData = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(3))
End With
For i = LBound(TData, 1) To UBound(TData, 1)
    Dico(TData(i, 1)) = ""
Next i
ComboBox1.List = Dico.Keys
End Sub

Cordialement

 

[richert90]

Re : Remplissage zone de liste qui est sur une feuille Excel

Bonjour,

Merci pour la réponse

Une dernière question:
En VBA, comment je peux faire pour avoir dans une variable par exemple, la valeur choisie dans la zone de liste?

 

[Efgé]

Re : Remplissage zone de liste qui est sur une feuille Excel

Re
Si la question est pour moi:

Private Sub ComboBox1_Click()
MsgBox ComboBox1.Text
End Sub

Cordialement

 

[richert90]

Re : Remplissage zone de liste qui est sur une feuille Excel

Ok merci

Pourquoi tu préfères utiliser les controles active X plutôt que les formulaires ?

 

[Efgé]

Re : Remplissage zone de liste qui est sur une feuille Excel

Re
Parce qu'avec les contrôles formulaires tu n'as pas de gestion d'évennements (seulement une et une seule macro liée)
Cordialement

 

[richert90]

Re : Remplissage zone de liste qui est sur une feuille Excel

D'accord!
Merci

 

[richert90]

Re : Remplissage zone de liste qui est sur une feuille Excel

Re,

Cette question (la même que la précédente) mais dans le cas des contrôles formulaires: En VBA, comment je peux faire pour avoir dans une variable par exemple, la valeur choisie dans la zone de liste? .
Je sais avec Efgé comment faire cela mais dans le cas des contrôles active X

Merci d'avance,

 

[Efgé]

Re : Remplissage zone de liste qui est sur une feuille Excel

Bonjour richert90, JHA, le fil, le forum
Pour le contrôle formulaire, il faut utiliser la proposition de JHA (une plage variable de cellule sans doublons.
Clic droit sur la zone / Format de contrôle / Onglet Contrôle / Cellule liée (choisir une cellule)
Cela renverra dans la cellule choisie l'index de la zone.
Pour retrouver quelle valeur est choisie, utiliser une formule du type:
=INDEX(Liste; D13;1)
(voir le classeur joint, fait avec celui de JHA)

Voila aussi pourquoi je préfère les contrôles Active X

Cordialement

 

[richert90]

Re : Remplissage zone de liste qui est sur une feuille Excel

Ok Merci pour la réponse Efgé.
En effet c'est beaucoup moins pratique d'utiliser les controles formulaires rien que pour récupérer la valeur.. enfin c'est quand même faisable quand on a un traitement assez simple.