ouvrir un onglet à partir d'une cellule dans le même classeur

[anaist]

Bonjour,
j'ai un onglet récapitulatif où se situe toute une série de code de A2 à A299 et je souhaiterais, en double-cliquant sur l'un de ses codes, pouvoir ouvrir l'onglet qui a le même nom.

J'ai commencé une macro mais ca ne fonctionne pas:

Sub transfertversonglet()
On Error GoTo fin
Dim i
i = Range("A2 to A299").Value
Sheets(i).Activate
fin:
End Sub

Pouvez-vous m'aidez?

Merci
Anaïs

 

[Pierrot93]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:A299")) Is Nothing Then
    Cancel = True
    On Error Resume Next
    Sheets(Target.Value).Activate
    On Error GoTo 0
End If
End Sub

bonne journée
@+

 

[anaist]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Merci Pierrot pour ta réponse, mais ca ne fonctionne pas, quand j'éssaye de démarrer la macro il ne la déctecte pas.
est ce que c'est à cause du private sub?

 

[Pierrot93]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Re,

c'est une procédure événementielle... elle doit être placée dans le module de la feuille sur laquelle tu veux contrôler la plage de cellule A2:A299... click droit sur l'onglet => visualiser le code et tu colles de code donné...

 

[anaist]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Re,
même après cette manip' il ne la détecte pas

 

[Pierrot93]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Re,

mets un point d'arrêt en sur la première ligne de la procédure (touche de fonction F9 une fois positionné), et double click sur la feuille....

 

[anaist]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Re,

ca ne fonctionne pas non plus, il me dit:
"erreur de compilation:
instruction incorrecte à l'extérieur d'une procédure"

 

[Pierrot93]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Re,

"erreur de compilation:
instruction incorrecte à l'extérieur d'une procédure"

comme précisé dans le message, tu dois avoir quelque chose d'écrit dans le module en question en plus du code que je t'ai donné... vérifie bien... place un tout petit fichier sur le forum si tu n'y arrive pas...

 

[anaist]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Je n'y arrive pas du tout, je met un fichier sur le forum, si tu peux r'egarder...
merci beaucoup
Anaïs

 

[Pierrot93]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Re,

aarf, tes noms de feuilles sont des numéros... modifie comme suit :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:A299")) Is Nothing Then
    Cancel = True
    On Error Resume Next
    Sheets(CStr(Target.Value)).Activate
    On Error GoTo 0
End If
End Sub

 

[anaist]

Re : ouvrir un onglet à partir d'une cellule dans le même classeur

Super ca fonctionne

Merci beaucoup!!

Anaïs