activation d'une feuille en activant une cellule

[Target]

Bonjour

je cherche comment activer une feuille en en arrivant sur une cellule

ex: j'ai un classeur avec deux feuilles "Clients" "Traitements"
sur la feuille "Clients" je replis les cellules "A1 à F1" et en arrivant sur la cellule "G1" ou mieu la colonne "G" cela activerai la feuille "Traitements"

Merci de votre réponse

 

[Yeahou]

Bonjour Target le bien nommé

Proc à mettre dans le code de la feuille clients

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then ActiveWorkbook.Sheets("Traitements").Select
End Sub

Cordialement, A+

 

[Sanji]

Bonjour,

Essaye ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Union(Target, Columns("G:G")).Address <> Columns("G:G").Address Then Exit Sub
Sheets("Traitements").Activate

End Sub


Ci dessous pour acceder a Worksheet_SelectionChange:
1/ acceder a VBA a partir de ton workbook -> Alt F11
2/ ouvrir l'explorateur de projet -> Ctrl r ( il y a des chances qu'il soit deja ouvert sur la gauche
3/ Clicher sur la Sheet "Clients" avec le bouton droit -> View Code
4/ En haut a gauche selecter -> Worksheet
5/ En haut a droite choisir -> SelectionChange

@+