Action en fonction de valeur cellule

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:

---

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

bonjour lafafmentvotre essai comme cela

Code:

---

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

---

Hello

Toujours le meilleur

Merci

bonjour

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

Code:

---

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