Déclencher une macro en quittant une cellule

[TETOCA]

Bonjour à toutes et à tous

Sans passer par un USF est-il possible de déclencher une macro en validant ou quittant une cellule, exploitant la valeur de celle-ci(l'équivalent, si je ne me trompe pas, de l'évènement 'Exit' ou 'change' dans un USF)?

Merci de vos précisions sur ce point et bonne journée à toutes et à tous.

F JP

 

[ziopizza]

Bonjour TETOCA et le Forum,

Essaye ce code,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sel As Range
b = ActiveCell.Value
Set Sel = Range('a1')
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then

Range('a10').Value = b
End If

End Sub

Yves

 

[TETOCA]

Bonjour Yves

Merci pour ce code que je vais tester aussitot.

Bonne fin de journée.

F JP

 

[TETOCA]

Yves

Ca roule impec. Encore merci.

Bonne soirée.

F JP

 

[coco_lapin]

Bonsoir ziopizza

Il y a un piège lorsque l'on utilise SelectionChange, Intersect et Target.
Si on modifie une cellule B qui se trouve dans la zone de l'intersect puis que l'on sélectionne une cellule A qui n'est plus dans la zone alors la cellule B ne sera pas testée.

Ce qui m'interesserait c'est de réaliser un test lorsque l'on quitte la cellule.

Aurais-tu une idée?