Créer une liste via un userform sous Excel 2003

Création et paramétrage du formulaire de saisie

1. Ouvrez un nouveau Classeur Excel
2. Sélectionnez le Menu Outil Macro Visual basic Editor [ou appuyez sur les touches CTRL + F11]
3. Sélectionnez le Menu Affichage Barre d'outils Boîte à outils Contrôles [Afin d'avoir les outils nécessaires à la constitution de notre Userform]
4. Sélectionnez le Menu Insertion Userform [Dès lors, une Userform vierge s'affiche - Cette Userform est est nommée Userform1 défaut] Création d'une zone de saisie :
   
5. Cliquez sur l'outil Zone de texte
   

   
   

6. Dessinez votre zone de texte
   

   
   Création du bouton Validation de la saisie :
   

7. Cliquez sur l'outil Bouton de commande
   

   
   

8. Dessinez votre bouton
9. Cliquez-droit sur le bouton sélectionnez l'option Propriétés
10. Tapez le nom du bouton dans la zone (Name) [Dans notre exemple : Bt_Valider]
11. Tapez le Libellé du bouton dans la zone Caption [Dans notre exemple : Validation]
    

    
    

12. Double-cliquez sur le bouton
13. Saissez le code suivant :

    Private Sub Bt_Valider_Click()
    InsMot = Worksheets("Feuil1").Range("A65536").End(xlUp).Row + 1
    Worksheets("Feuil1").Range("A" & InsMot).Value = UserForm1.TextBox1.Value
    UserForm1.TextBox1.Value = ""
    End Sub
    

    Afficher le formulaire sur la feuille de calcul concerné
    
14. Se positionnez sur la cellule de la feuille de calcul concernée
15. Sélectionnez le Menu Affichage Barre d'outils Formulaire
16. Sélectionnez l'outil Bouton [Afin de créer le bouton nécessaire à l'affichage du formulaire]
17. Dessinez le bouton Affecter lui une macro suivante :

    Sub Affiche_Formulaire()
        Load UserForm1
        UserForm1.Show
    End sub