faire afficher une feuille en cliquant sur une cellule

[lbt]

bonjour à tous,
je débute dans excel et comme je le dit dans le titre, je souhaiterai pouvoir faire afficher une autre feuille par un simple clic sur une cellule, le tout dans un même classeur. est-ce possible? si oui comment?
merci

 

[flo2002]

Re : faire afficher une feuille en cliquant sur une cellule

bonjour,
je pense que c'est possible de faire ceci en cliquant sur une cellule. Personnellement je n'ai encore jamais fait. Cependant, je serais faire avec un bouton (dont la taille peut etre ramener à celle de ta cellule)

soit tu te sert de l'enregistreur et tu applique la macro à un bouton,

soit tu met dans un module:
(ouvrir vb alr F11)

sub ouvrir ()

sheets("feuille1").select

end sub
et tu met cette macro sur le bouton.

j'espere avoir bien compris la question car je la trouve simple...

bon courage

 

[SergiO]

Re : faire afficher une feuille en cliquant sur une cellule

Bonjour lbt,

Tu peux créer un lien hypertexte comme dans l'exemple joint

Bon cour@ge

 

[Ozons123]

Re : faire afficher une feuille en cliquant sur une cellule

Bonjour le foum , la file

En fait il suffit de créer un lien hypertexte à partir de ta cellule.
a) Menu Insertion / Lien hypertexte. Une fenêtre apparaît
b) Tu sélectionnes sur la gauche de cette fenêtre, emplacement dans
ce document, puis la feuille que tu souhaites.

Bonne journée

Ludovic

 

[lbt]

Re : faire afficher une feuille en cliquant sur une cellule

merci a tous c'était tout bête mais fallait y penser😉

merci encore a une prochaine!

 

[lesarthois]

Re : faire afficher une feuille en cliquant sur une cellule

bonjour,
tu peut aussi utiliser ce code dans des commandButton

Private Sub CommandButton1_Click()
' Permet l'affichage d'une boîte de dialogue pour l'accès
' à la feuille de son choix
Dim i As Integer
Dim TopPos As Integer
Dim SheetCount As Integer
Dim PrintDlg As DialogSheet
Dim CurrentSheet, FeuilleDépart As Worksheet
Dim cb As OptionButton
Application.ScreenUpdating = False

' Ajoute une feuille de dialogue temporaire
Set CurrentSheet = ActiveSheet
Set FeuilleDépart = ActiveSheet
Set PrintDlg = ActiveWorkbook.DialogSheets.Add
PrintDlg.Visible = xlSheetHidden

SheetCount = 0

' Ajoute les boutons d'option
TopPos = 40
For i = 1 To ActiveWorkbook.Worksheets.Count
Set CurrentSheet = ActiveWorkbook.Worksheets(i)
' Ne tient pas compte des feuilles vide ou masquées
If Application.CountA(CurrentSheet.Cells) <> 0 And _
CurrentSheet.Visible Then
SheetCount = SheetCount + 1
PrintDlg.OptionButtons.Add 78, TopPos, 150, 16.5
PrintDlg.OptionButtons(SheetCount).Text = _
CurrentSheet.Name
If CurrentSheet.Name = FeuilleDépart.Name Then _
PrintDlg.OptionButtons(SheetCount).Value = xlOn
TopPos = TopPos + 13
End If
Next i

' Positionne les boutons OK et Annuler
PrintDlg.Buttons.Left = 240

' Dimensionne la hauteur, la largeur et le titre de la bte de dialogue
With PrintDlg.DialogFrame
.Height = Application.Max _
(68, PrintDlg.DialogFrame.Top + TopPos - 34)
.Width = 230
.Caption = "A quelle feuille souhaitez-vous accéder ? "
End With

' Change l'ordre de tabulation des boutons OK et Annuler
' afin de donner le focus au premier bouton d'option
PrintDlg.Buttons("Button 2").BringToFront
PrintDlg.Buttons("Button 3").BringToFront

' Affiche la boîte de dialogue
FeuilleDépart.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
Application.ScreenUpdating = False
For i = 1 To SheetCount
If PrintDlg.OptionButtons(i).Value = xlOn Then
Worksheets(PrintDlg.OptionButtons(i).Caption).Activate
'autre code selon besoin
End If
Next i
End If
Else
MsgBox "Toutes les feuilles sont vides."
End If

' Supprime la feuille de dialogue temporaire (sans message d'avertissement)
Application.DisplayAlerts = False
PrintDlg.Delete
End Sub

 

[porcinet82]

Re : faire afficher une feuille en cliquant sur une cellule

Salut a tous,

Just pour le fun, une solution par macro evenementielle par double click sur une cellule.

@+