Discussion :

[lafafmentvotre]

Bonjour

Comment puis je changer mon script afin de lui dire que si la cellule dans laquelle je clique possède une certaine valeur alors j'ouvre l'onglet correspondant à cette valeur ?
Jusqu'à maintenant j'utilisais ce script mais je dois ajouter de plus en plus de lignes et cela devient problématique de redéfinir à chaque fois la target.Address :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$4" Then 'clique dans cellule B3
Sheets("IT.P.040").Activate
End If
If Target.Address = "$B$5" Then 'clique dans cellule B3
Sheets("IT.P.120").Activate 'ouvre la feuille "truc"
End If
If....
End If
If....
End If
End Sub

Merci par avance pour vos conseils

[laetitia]

bonjour lafafmentvotre essai comme cela

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing And Target <> "" Then
Worksheets([Target].Text).Activate
End If
End Sub

[lafafmentvotre]

Hello

Toujours le meilleur

Merci

[patricktoulon]

bonjour

avant tout il faut que le celulle aient une valeur corespondant au sheets
ou une partie exemple:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
'Sheet(ActiveCell.Value).Activate '(choix 1)='dans le cas ou le nom du sheets est precisé dans la celulle
 
Sheets("feuil" & Split(Selection.Address, "$")(2)).Activate 'dans le cas ou le nom du sheets corespond a la ligne sur la quell tu a cliqué
 
End Sub

dans le deuxieme cas tu construis le nom avec"feuil" et le numero de ligne ou tu a cliqué

voila au plaisir