Nouveau venuSAJIDA OLFAInscrit le :07/04/2019Dernière activité :28/04/2019 à 12:56Version d'Excel :2013Messages4Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Sujets créés par SAJIDA OLFADateForumSujetExtrait du message07/04/2019 à 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