NewcomerSAJIDA OLFARegistered on:04/07/2019Last activity:04/28/2019 at 12:56Version of Excel:2013Posts4Votes0Files0Downloads0ThreadsPostsStatisticsVotes received Threads Created by SAJIDA OLFADateForumThreadMessage Excerpt04/07/2019 at 14:30Excel - VBAListe deroulanteDim a() Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([D2:D500], Target) Is Nothing And Target.Count = 1 Then a = Application.Transpose(Sheets("feuil2").Range("liste").Value) Me.ComboBox1.List = a Me.ComboBox1.Height = Target.Height + 3 Me.ComboBox1.Width = Ta...Forums