Déclencher une macro en quittant une cellule

T

TETOCA

Guest
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

XLDnaute Occasionnel
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
 

coco_lapin

XLDnaute Impliqué
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?
 

Discussions similaires

Statistiques des forums

Discussions
312 855
Messages
2 092 844
Membres
105 542
dernier inscrit
ValendirEDB