Discussion :

[Niko62]

bonjour,

j'aimerai savoir comme faire pour écrire la condition suivante :

Si "Cellule modifiée" appartient à "Zone définie" alors
...
Fin Si

Merci d'avance.

[patbou]

bonjour,


tu peux declenché la procedure avec l evenement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

et utiliser la methode intersect

[Gorfael]

Salut Niko62 et le forume

Si "Cellule modifiée" appartient à "Zone définie" alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if not(intersect(Target, Range("Zone définie")) is nothing) then

si l'inverse de "l'intersection entre cellules modifiées et plage est vide" est vrai, alors...

Attention au fait que target regroupe toutes les cellules modifiées en une seule fois.(les cellules contenant des formules ne sont modifiées que si on modifie la formule, pas dans le cas d'un changement de résultat). Donc, si tu fait des opérations sur multisélections (effacement, copier/coller), target contiendra toutes ces cellules.

A+