"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

Re : "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

Ce n'est pas possible, par contre il est possible de rajouter une condition dans la macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

if not (intersect(plageRestreinte, Target) is nothing) then
[lire la macro]
end if

end sub

Re : "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

Bonjour
Application.enable=false
Annule la routine change
Je suis sur mon téléphone et dur pour écrire
A+

Re : "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

eretyk_1er à dit:

Ce n'est pas possible, par contre il est possible de rajouter une condition dans la macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

if not (intersect(plageRestreinte, Target) is nothing) then
[lire la macro]
end if

end sub

Cliquez pour agrandir...

Re,

Merci beaucoup, en fait j'avais un double évènement, l'un lancé par :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

et l'autre par : Private Sub Worksheet_Change(ByVal Target As Range)

J'ai donc limité chaque évènement aux plages désirées et tout fonctionne à merveille.

Il m'a simplement modifier la formule proposée c'est :
if not (intersect(Target, plageRestreinte) is nothing) then
et non
if not (intersect(plageRestreinte, Target) is nothing) then

Encore MERCI