Worksheet_SelectionChange - Target dans un classeur complet

Bonjour,

J'ai un classeur avec plein de feuilles

Par exemple j'écrit ce code dans une feuille.

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   MsgBox Target.Address 'c'est juste pour tester   End Sub

---

Mais j'aimerais bien que ceci soit valable pour toutes les feuilles du classeur, sans avoir à le recopier x fois !!

Comment faire ?

Merci

A+

Damsmut

c'est bon j'ai trouvé :oops:

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)     MsgBox Target.Address     End Sub

---

sorry pour la question à 2 balles

Salut damsmut et le forum
Ne serait-ce pas plutôt :

Code:

---

1 2 3

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) MsgBox "Seuille : " & Sh.Name & " adresse : " & Target.Address(0, 0) End Sub

---

A+

en fait il y'a une petite nuance entre les 2...

SheetSelectionChange s'éxécute dès qu'on clic dans une autre cellule

SheetChange s'éxécute dès qu'on change une valeur d'une cellule


merci

a+