Macro lors de la sélection

Résolu
Bonjour,

Est-il possible d'affecter une macro non pas à un bouton mais lors de la sélection de la cellule un peu à l'image du lien hypertexte?

D'avance merci

1 réponse

  1. Bonjour,

    dans le VBA de la feuille: adaptez la cellule

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'sur selection A1 appel ma_macro
    If Not Application.Intersect(Target, Range("A1")) Then
    Call ma_macro
    End If
    End Sub
    0
    1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      'sur selection A1 appel ma_macro
      If Not Application.Intersect(Target, Range("L3")) Then
      Call Onglet_Salaire
      End If
      End Sub

      Petit détail je suis un novice :)
      Ou je la colle cette macro? sous feuil1? je cré un nouveau module?
      ps. j'ai le message
      en cliquant sur L3 erreur 13
      en cliquant sur une autre cellule variable objet ou bloc if non défini
      0
    2. Re,

      j'ai ecrit : dans le VBA de la feuille: adaptez la cellule j'aurai du ajouter ---> ou vous cliquez sur la cellule
      0
    3. Contributeur
      Bonjour à tous,

      j'ai l'impression qu'un bout c'est perdu :
      If Not Application.Intersect(Target, Range("A1")) Is Nothing Then

      eric
      0
    4. En effet,

      ça marche au poil.

      Merci à vous 2 !!!!!!!
      0