Seulement avec certaines cellules

Bonjour Titi,

Dans le module de la feuille où l'action se déroule , copie ceci :

'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("F6:F30")) Is Nothing Then
MaMacro
End If
End Sub
'---------------------------

Dans un module standard :

'---------------------------
Sub MaMacro()
MsgBox "Bonjour"
End Sub
'--------------------------


Salutations!




"Titi" <titi@wah.fr> a écrit dans le message de news:99ab01c49738$535db770$a301280a@phx.gbl...
Bonjour, j'ai un bonton macro, je souhaite que cette macro
se déclenche uniquement si l'on clique sur une cellule de
cette plage de cellules F6:F30
Merci beaucoup
Titi

bonjour Titi,

Private Sub CommandButton1_Click()
Set isect = Application.Intersect(ActiveCell, Range("F2:F30"))
If Not isect Is Nothing Then
MsgBox "il y a intersection" 'mettre la macro ici
Else
Exit Sub
End If
End Sub

isabelle

Bonjour, j'ai un bonton macro, je souhaite que cette macro
se déclenche uniquement si l'on clique sur une cellule de
cette plage de cellules F6:F30
Merci beaucoup
Titi