mardi 12 janvier 2010

Afficher un userform lors de la sélection d'une cellule

Etape 1 : Création du Userform
  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 Boîte à outils [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


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: