Discussion :

[8e8eClo]

Bonjour,

J'aimerais que :
1° quand on clique sur une cellule (ex. B52) on soit redirigé vers la feuille 1.
2° quand on clique sur une cellule (ex. B53) on soit redirigé vers la feuille 2.
3° ...

Pour ce faire, j'ai mis ce code :

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B12")) Is Nothing Then Sheets("Feuil1").Select
If Not Application.Intersect(Target, Range("B13")) Is Nothing Then Sheets("Feuil2").Select
End Sub

Le problème est le suivant : je n'ai pas envie de recopier ce code jusque la cellule B101 !!!

Question : comment faire ?


Merci

[fllyann]

salut,

Elles sont vide tes cellules ?

ou il y a des info comme le nom de la feuille où l'on doit être redirigé ?

[8e8eClo]

Il y a des numéros dedans (ex. 2012-01, 2012-02, ...)

pfff vous m'énervez vous êtes trop fort !!

Merci beaucoup !

[mercatog]

Bonjour
Si j'ai bien compris

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LaFeuille As String
 
'Tu commence en B12 jusqu'à B101
'B12: --> Feuil1
'B13: --> Feuil2
'B14: --> Feuil3
'....
'B101:--> Feuil90
If Target.Column = 2 And Target.Row >= 12 And Target.Row <= 101 And Target.Count = 1 Then
    LaFeuille = "Feuil" & Target.Row - 11
    On Error Resume Next
    Sheets(LaFeuille).Select
End If
End Sub