Les boîtes de dialogue

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

        Le Userform (ListeDeroulanteModifiable)

        Les contrôles

 
      Nom de la ComboBox = Constructeur
      Nom du CommandButton "Valider Choix" = OK
      Nom du CommandButton "Annuler" = Annuler

        Le code

        Code lançant l'ouverture de la boîte de dialogue

 
Sub AfficheListeDeroulanteModifiable()
      ListeDeroulanteModifiable.Show
End Sub

        Code d'initialisation du formulaire

 
Private Sub UserForm_Initialize()
        Me.Constructeur.RowSource = "Feuil1!A1:A" & Sheets("Feuil1").Cells(1, 1).End(xlDown).Row
End Sub

        Code d'activation du formulaire

 
Private Sub UserForm_Activate()
        Me.Constructeur.ListIndex = -1
End Sub

        Code des boutons

       1 / Bouton OK
 
Private Sub OK_Click()
      Me.Hide
      If Me.Constructeur.ListIndex = -1 Then
            Sheets("Feuil1").Cells(1, 1).End(xlDown).Offset(1, 0).Value = Me.Constructeur.Value
' Tri de la plage de données suite à l'ajout d'un élément
            Sheets("Feuil1").Range([A1], [A1].End(xlDown)).Select
            Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
               OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      Else
      End If
' Mise en place de la valeur choisie en D2
      Sheets("Feuil1").Cells(2, 4).Value = Me.Constructeur.Value
End Sub
        2 / Bouton Annuler
 
Private Sub Annuler_Click()
      ListeDeroulanteModifiable.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