aller sur la feuill1 avec celule

[marc]

Rebonjour a tous,
J'aimerai sur la cellule b2 par exemple qui porte le nom de la feuille1, je puisse acceder à cette feuille1 lorsque je clic dessus
Quel est la formule ou le code ?
Merci d'avance
Marc

 

[Minick]

Salut,

Quand tu ecrit ton nom de feuille utilise un lien hypertext

Menu Insertion/Lien Hypertext
tout en haut tu marque le nom de la feuille et en cliquant sur le bouton Signet... tu choisit l'onglet correspondant


@+ Minick

 

[yves]

Salut Marc,

A mettre dans le module de ta feuille 2ou 3ou,
et click 2 fois sur la cellule b2.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F1 As Range
Set F1 = Range("B2")
If Not Application.Intersect(F1, Range(Target.Address)) _
Is Nothing Then
Sheets("Feuil1").Select
End If
End Sub

Yves

 

[marc]

Merci Yves,
pour les réponses, mais comme de b2 à b500 , c'est égale au nombre de pages, j'ai placer ton code , mais rien n'y fait , peu tu encore m'aider svp,
donc ma feuille s'appelle : Récapitulatif
et dès que je selectionne ou double clic comme proposé j'arrive sur la feuille adéquate ainsi chaque cellule à sa feuille
De plus il faut que je le fasse pour plusieur récapitulatif avec autant de pages

Dois-je mettre le code dans toutes les feuilles ?
ou alors simplement dans thisworkbook ?
Je te remercie
Merci encore de l'aide
Marc

 

[yves]

re salut marc,


Essaye de placer ça dans code Feuille Récapitulatif ,
ecris le nom de tes feuilles de b2 a b500
-----------------------------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F1 As Range
Set F1 = Range("B2:b500")
If Not Application.Intersect(F1, Range(Target.Address)) _
Is Nothing Then
a = ActiveCell.Value
Sheets(a).Select

End If

End Sub

Yves

 

[yves]

re salut Marc,

je joint un petit exemple


a + Yves

 

[marc]

Merci a toi, cela marche du tonnerre, je te remercie
et tous les autres aussi
Merci
Marc