Macro lors de la sélection

Résolu
marc -  
 marc -
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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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. marc
       
      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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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. marc
       
      En effet,

      ça marche au poil.

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