Discussion :

[damsmut]

Bonjour,

J'ai un classeur avec plein de feuilles

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

Code :

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

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

[damsmut]

c'est bon j'ai trouvé

Code :

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

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

[Gorfael]

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

Code :

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

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+

[damsmut]

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+