Les boîtes de dialogue

Boite de dialogue avec liste déroulante.Retour au menu Contrôles divers

        Le Userform (ListeDeroulante)

        Le code

        Code lançant l'ouverture de la liste déroulante

 
Sub AfficheListeDeroulante()
      ListeDeroulante.Show
End Sub

        Code d'ouverture du formulaire

 
Private Sub UserForm_Activate()
       DerniereMarque = Range("A1").End(xlDown).Address
       ' Plage de données pour afficher dans liste déroulante
       Marque.RowSource = "A1:" & DerniereMarque
       ' Afficher la première marque de la liste (0 = Fiat)
       Marque.ListIndex = 0
End Sub

        Code des boutons

       1 / Bouton Valider
 
Private Sub Valider_Click()
       ListeDeroulante.Hide
       ' Marque est le nom donné au contrôle ListBox
       Index = Marque.ListIndex
       ChoixMarque = Marque.List(Index)
       ' Stockage du choix effectué dans la liste déroulante en D2
       Range("D2").Value = ChoixMarque
End Sub
        2 / Bouton Annuler
 
Private Sub Annuler_Click()
      ListeDeroulante.Hide
End Sub

        Les données utilisées pour remplir la liste déroulante

Retour au début de document

Retour au début du document