Liste déroulante et combobox Le 22/04/2020 à 16:27aabricotMembre fidèleMessages203Excel2016 win macInscrit08/02/2017 Bonjour,Je cherche à faire apparaitre dans un useform la liste déroulante présente en feuil 2.Cette liste est disponible en a6 (ce serra la même sur l'ensemble de la colonne A par la suite).Si la case en A6 est déjà sélectionnée (par exemple "NEIGE"), j'aimerais que l'ouverture de USEFORM indique directement "NEIGE"dans la combobox.Est ce possible ?Ci-joint un petit fichier si besoin.Merci de votre aide.COrdialement. 28test2-abricot-liste-deroulante-combobox.xlsm (20.67 Ko) Le 22/04/2020 à 17:04BBoisgontierjacquesMembre fidèleMessages469Excel2016Inscrit05/10/2018Bonjour,Il faut que ce soit Feuil2 la feuille active:Private Sub UserForm_Initialize() Me.ComboBox1.List = Range("B2:B5").Value Me.ComboBox1 = ActiveCell End SubBoisgontierLe 22/04/2020 à 17:11galopin01Passionné d'ExcelMessages8'931Fichiers4Excel2016Tél.19'409Inscrit18/09/2008bonjour,De manière (très) rudimentaire on pourrait voir la chose comme en pièce jointeNota : la liste est nommée "Démo" dans le Gestionnaire de nomEDIT : Bonjour jb (Je suis toujours incapable de lire le message d'avertissement quand quelqu'un répond entre temps ! !A+ 37abricot-combobox.xlsm (21.36 Ko) Le 22/04/2020 à 17:35aabricotMembre fidèleMessages203Excel2016 win macInscrit08/02/2017Bonjour,Pour la solution de Monsieur Boisgontier, j'ai bien le renvoi de l'information dans le combobox.En revanche quand je viens sur le combobox, il est vide, je n'ai pas les choix de la liste en feuille 2.Qu'est ce que j'ai loupé ? Le 22/04/2020 à 17:41Patty5046Membre impliquéMessages1'575Excel2016 FRInscrit02/02/2016EmploiretraitéeBonjour abricot, bonjour à tous 57test2-abricot-liste-deroulante-combobox.xlsm (30.83 Ko) A VOIRBonne soiréeLe 22/04/2020 à 17:48aabricotMembre fidèleMessages203Excel2016 win macInscrit08/02/2017Bonjour,Pour la version de Monsieur GALOPIN il ne me renvoi pas l'information dans le combobox lorsqu’il y a déjà une informationPar exemple lorsque la case en a6 est déjà sélectionnée "PLUIE", le combobox affiche "SOLEIL". Le 22/04/2020 à 17:52aabricotMembre fidèleMessages203Excel2016 win macInscrit08/02/2017Bonjour.Pour la version de PattyLe useform renvoi toujours sur "neige" au lieu de renvoyer la valeur indiquer dans la case. Le 22/04/2020 à 18:03Patty5046Membre impliquéMessages1'575Excel2016 FRInscrit02/02/2016EmploiretraitéeBonjourExcuse, j'avais compris le problème différemmentVoilà :Private Sub UserForm_Initialize() DLig = Sheets("Feuil2").Range("B65536").End(xlUp).Row ComboBox1.List = Application.Transpose(Sheets("Feuil2").Range("B2:B" & DLig)) ComboBox1.Value = Range("A6").Value End SubEncore DSLByeLe 22/04/2020 à 19:39BBoisgontierjacquesMembre fidèleMessages469Excel2016Inscrit05/10/2018cf PJBoisgontier 78copie-de-test2-abricot-liste-deroulante-combobox.xlsm (25.56 Ko) Le 23/04/2020 à 18:47aabricotMembre fidèleMessages203Excel2016 win macInscrit08/02/2017Merci Tout fonctionne et j'ai pu avec un peu de temps adapter le code.Ce fut long mais c'est bon.Passons à la suite pour d'interminable nuits blanches.Merci .Le 23/04/2020 à 18:51Patty5046Membre impliquéMessages1'575Excel2016 FRInscrit02/02/2016Emploiretraitée Bon courage pour la suiteDors un peu de temps en temps tout de même LOLRechercher des sujets similaires à "liste deroulante combobox"ForumsExcel - VBAListe déroulante et combobox