Liens et sommaire trié

[poipoi]

Bonjour le forum
j'utilise souvent la macro sommaire trié de JBoisgontier Les barres d'outils et menus (un grand merci à lui).
Cependant comment faire pour que les onglets s'affichent sous forme de liens dans une grille au lieu d'une liste dans une colonne?
tableau joint
merci beaucoup

 

[DoubleZero]

Re : Liens et sommaire trié

Bonjour, poipoi, le Forum,

Sans avoir vu l'outil mentionné, une suggestion avec ce code :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("b2:d11")) Is Nothing Then Exit Sub '
    If Target.Count > 1 Then Exit Sub
    On Error GoTo fin
    Sheets(CStr(Target)).Activate
    Target.Interior.ColorIndex = xlNone
    Exit Sub
fin:     MsgBox "Onglet inexistant !": Target.Interior.ColorIndex = 15
End Sub

A bientôt 🙂

 

[poipoi]

Re : Liens et sommaire trié

Bonjour DoubleZero
et.. merci

Oh pétard comme ça marche bien!
c'est déjà Noël!!!

DoubleZero mets tes chaussons près de la cheminée..

à bientôt

 

[DoubleZero]

Re : Liens et sommaire trié

Re-bonjour,

...c'est déjà Noël!!!

DoubleZero mets tes chaussons près de la cheminée..

Merci, mais... avec mes quatre sabots... ça risque de revenir cher au Père Noël 😉 !

A bientôt 😀😀

P. S. : bon "Zamditsch" 😎 !...