Macro lors de la sélection

Résolu/Fermé
marc - 31 mars 2014 à 17:09
 marc - 1 avril 2014 à 07:39
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

A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
31 mars 2014 à 17:14
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
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
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
31 mars 2014 à 17:42
Re,

j'ai ecrit : dans le VBA de la feuille: adaptez la cellule j'aurai du ajouter ---> ou vous cliquez sur la cellule
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
31 mars 2014 à 19:17
Bonjour à tous,

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

eric
0
En effet,

ça marche au poil.

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