Excel : Comment attacher une Liste déroulante à une cellule Excel ?Résolu

Question

Bonjour camarades programmeurs,

Je suis en train de me faire une petite application en VB6.0 sous Excel me permettant de faire la gestion de compte personnel.
Je suis d&#233;butant en VBA!! 
Je voudrais arriver &#224; accrocher &#224; tout un ensemble de cellule une liste d&#233;roulante.
C'est &#224; dire en prenant un exemple 
Dans la premi&#232;re colonne je mets des intitul&#233;s de d&#233;penses (ex retrait bancaire ou versement d'un compte A vers B ...)
et je voudrais dans la deuxi&#232;me colonne mettre en vis &#224; vis de chaque &#233;l&#233;ment de la premi&#232;re colonne une liste d&#233;roulante
me permettant de trier par type d'action chaque &#233;l&#233;ment de cette premi&#232;re colonne (ex Retrait, Entretien voiture...).
Tout ca dans le but de cr&#233;er des cat&#233;gories de d&#233;pense pour distinguer les diff&#233;rentes parties de mon budget.

J'ai trouv&#233; jusqu'&#224; pr&#233;sent :
Sub AjoutListeDeroulante()
Dim lb


With Worksheets(1)
    Set lb = .Shapes.AddFormControl(xlDropDown, 100, 10, 100, 10)
    lb.ControlFormat.ListFillRange = "A1:A10"
End With
End Sub

Mais malheureusement cette liste d&#233;roulante n'est pas attach&#233;e &#224; une cellule. C'est &#224; dire lorsque je redimensionne les lignes et colonnes, la liste d&#233;roulante n'est plus positionn&#233;e l o&#249; elle doit &#234;tre.

Alors ma question est : Comment cr&#233;er la m&#234;me chose que les Filtres automatiques ?  C'est &#224; dire ces liste d&#233;roulantes attach&#233;es
&#224; une celulle en particulier ???

Merci de votre patience et de votre aide !!

Molenn · Accepted Answer

Tu t'embêtes là à essayer de coder. Excel permet de faire ça de lui même.

Tu prends une feuille sur laquelle tu marques le contenu de ta liste déroulante.
Ex :
A1 = Retrait
A2 = Versement
A3 = Virement

Ensuite, tu sélectionnes ta zone (de A1 à A3 donc)
Tu vas dans le menu Insertion \ Nom \ Définir et tu donnes un nom à la zone (Opérations par exemple).

Ensuite, tu vas sur ta cellule où tu veux donner le choix :
Tu vas dans le menu Données \ validation
Comme critère de validation, dans la combo Autoriser, tu prends le choix Liste et en source tu tapes "=" et le nom de ta zone (dans mon exemple, la source : =Opérations

Tu valides et voilà, le tour est joué.

Molenn

cs_Jack · Answer

Salut
Regarde voir du c&#244;t&#233; des Filtres automatiques :
Dans la cellule juste au dessus de la colonne qui t'interesse, ins&#232;res le texte, par exemple "Nature"
Ensuite, met ton curseur sur cette cellule et va dans le menu Donn&#233;es, Filtre, Filtre automatique.
Cette cellule possedera alors le petit triangle de la liste d&#233;roulante et quand tu cliques dessus, ... tu verras bien.
Si tu veux reproduire &#231;a en code VBA, refait cette manipulation apr&#232;s avoir lanc&#233; l'enregistrement d'une nouvelle macro. Ensuite, va jeter un oeil au code et tu verras qu'il suffit de :
- S&#233;lectionner une cellule d'ent&#234;te de colonne
- de mettre derri&#232;re la commande Selection.AutoFilter
Cette commande est affect&#233;e &#224; la feuille, donc si tu as plusieurs colonnes &#224; traiter, s&#233;lectionne toutes les cellules d'ent&#234;te puis active l'AutoFilter.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_mimi0 · Answer

Bonjour,
 je suis daccord c bcp plus simple sur exel,
parcontre cette procedure ne permet pas de selectionne plusieurs choix

pour avoir une liste à choix multiple là il faudra passe par  une macro  e une userforme, dailleurs j'ai une question la dessus : comment arriver à a voir tout les choix selectioné dans la mme cellule . et comment faire declencher la fenetre à partir  de la cellule d'ou l'on click?

 cordialement,