accès onglets

C

CHALET53

XLDnaute Barbatruc

• 18 Octobre 2012

• #2

Re : accès onglets

Bonjour,

Pourquoi pas un onglet Récap disposant de toute la liste avec :
un accès à l'onglet recherché à partir d'une sélection dans la liste
et
dans chaque onglet un bouton Retour à cet onglet Récap

a+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Octobre 2012

• #3

Re : accès onglets

Bonjour,

click droit sur les boutons à gauche du 1er onglet devrait répondre à ta problèmatique...

bon après midi
@+

Edition : bonjour Chalet

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 18 Octobre 2012

• #4

Re : accès onglets

Merci, mais j'ai déjà procédé ainsi. J'aimerais ne pas avoir à retourner sur une page "sommaire" mais aller directement à n'importe quel onglet depuis n'importe quel autre.

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 18 Octobre 2012

• #5

Re : accès onglets

Merci mais beaucoup trop rudimentaire...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Octobre 2012

• #6

Re : accès onglets

Bonjour à tous,

Ces 2 macros sont à placer dans ThisWorkbook :

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim tablo(), s As Object, n As Integer
ReDim tablo(Sheets.Count - 2)
For Each s In Sheets
  If s.Name <> Sh.Name Then
    tablo(n) = s.Name
    n = n + 1
  End If
Next
Sh.[A1] = "Onglets": [A1].Font.Bold = True
If n Then Sh.[A2].Resize(n) = Application.Transpose(tablo)
Sh.Range("A" & n + 2 & ":A" & Rows.Count).ClearContents
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
  On Error Resume Next
  Sh.[A1].Select
  Sheets(Target.Text).Activate
End If
End Sub

A+

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 18 Octobre 2012

• #7

Re : accès onglets

Wow génial !!!
Merci

 

Vote positif 0 Vote négatif