Etape 1 : Création du Userform
- Ouvrez un nouveau Classeur Excel
- Sélectionnez le Menu Outil Macro Visual basic Editor [ou appuyez sur les touches CTRL + F11]
- Sélectionnez le Menu Affichage Boîte à outils [Afin d'avoir les outils nécessaires à la constitution de notre Userform]
- 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 :
- Cliquez sur l'outil Zone de texte
- Dessinez votre zone de texte
Etape 2 : Tapez le code VBA suivant sur la feuille concernée
Dans cet exemple : le UserForm1 s'affichera dès la sélection de la cellule E15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E15")) Is Nothing Then
UserForm1.Show
End If
End Sub
Pour afficher le userform lors de la sélection de la cellule E15 ou C3 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$15" Or Target.Address = "$C$3" Then
UserForm1.Show
Else
UserForm1.Hide
End If
End Sub
A SAVOIR : Afin de ne pas cliquer sur la croix pour fermer le formulaire à chaque passage, mettre la propriété Showmodal sur False
Aucun commentaire:
Enregistrer un commentaire