Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

aller sur la feuill1 avec celule

M

marc

Guest
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
 
M

Minick

Guest
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
 
Y

yves

Guest
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
 
M

marc

Guest
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
 
Y

yves

Guest
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
 

Discussions similaires

Réponses
3
Affichages
353
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…