L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Évènements

4 mars 2014
Imprimer E-mail
Un événement est le résultat d'une action, telle qu'un clic de la souris, la frappe d'une touche, la sélection d'une autre cellule, etc.... Toutes les actions ne déclenchent pas un évènement. Pour les évènements gérés par votre application, vous pouvez écrire un code qui s'exécutera systématiquement lors du déclenchement de l'action. Celui-ci pouvant être due à une action de l'utilisateur, ou provoqué par le code d'un programme ou par le système.
Pour une cellule, l'un des évènement est le double-clic de la souris. Si vous désirez inscrire un X dans une cellule lorsque vous double-cliquez, procédez ainsi :
  • Ouvrez un nouveau classeur
  • Dans la fenêtre Explorateur de projets, double-cliquez dans l'arborescence sur la ligne marquée Feuil1(Feuil1).
  • Au-dessus de la feuille de code, vous avez 2 listes déroulantes, ouvrez celle de gauche (il y est écrit (Général) dedans) et sélectionnez Worksheet.
  • Dans la liste de droite, sélectionnez BeforeDoubleClick.
  • Dans la feuille de code, les lignes suivantes se sont inscrites :
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    End Sub


  • Tapez alors les lignes suivantes dans la ligne vide :
        Target = "X"
        Cancel = True
  • Vous obtiendrez donc :
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        Target = "X"
        Cancel = True
    End Sub
  • Retournez dans le classeur et sélectionnez la feuille nommée Feuil1.
  • Double-cliquez sur une cellule et constatez le résultat.
  • Si vous voulez passez du X à rien et inversement, comme si vous cochiez/ décochiez la cellule écrivez plutôt les lignes suivantes :
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Target = "" Then
           Target = "X"
        Else
           Target = ""
        End If
        Cancel = True
    End Sub