menu déroulant avec lien pour autre page.....

Excel-lent

XLDnaute Barbatruc

• 6 Novembre 2011

• #2

Re : menu déroulant avec lien pour autre page.....

Bonjour et bienvenu sur le forum Zizouzied,

Ne pouvant ouvrir ta pièce jointe, voici ci-joint un fichier fait maison répondant à ta question.

Bonne fin de soirée

 

Pièces jointes

• lien vers onglet de son choix.xls

  28.5 KB · Affichages: 106

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Novembre 2011

• #3

Re : menu déroulant avec lien pour autre page.....

Bonsoir zizouzied, bienvenue sur XLD,

Pas de liens mais cette macro événementielle dans ThisWorkbook :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next
If Source.Address = "$B$4" Then Sheets(Trim(Source)).Activate
End Sub

Enregistrer bien sûr votre fichier en .xlsm comme le fichier joint.

PS : vicieux les espaces après test 1 et test 2 dans la liste 🙄

Edit : bonsoir Excel-lent, heureux de te croiser 🙂

A+

 

Pièces jointes

• Fiche_d_heures(1).xlsm

  34.8 KB · Affichages: 87

Dernière édition: 6 Novembre 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Novembre 2011

• #4

Re : menu déroulant avec lien pour autre page.....

Re,

On peut peaufiner :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next
If Source.Address = "$B$4" Then Sheets(Trim(Source)).Activate
If Err And Source.Cells(1, 1) <> "" Then MsgBox "Cette feuille n'existe pas..."
End Sub

A+

 

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 7 Novembre 2011

• #5

Re : menu déroulant avec lien pour autre page.....

Bonjour,

Si j'ai compris, tu peux mettre en D7 de ta feuil1 et tirer vers le bas :

=LIEN_HYPERTEXTE("#"&ADRESSE(1;1;;;Feuil1!C7);Feuil1!C7)

Cliquez pour agrandir...

, en prenant soin d'effacer le dernier espace dans tes cellules en C7 à C9.

 

Vote positif 0 Vote négatif