atteindre onglet - list by ordre alphabetique ds listbox

[VBA_DEAD]

bonjour

j`ai la macro jointe qui liste les onglets d`un classeur (bien pratique quand on a plus de 50 onglets!).

tout marche sauf que j`aimerai bien que les onglets soient listes par ordre alphabetique (+ petite option que 3 feuilles soient exclues de la liste)

avez vous une solution?

sinon une autre solution visuelle qui permette facilement (double click en col. A) d`atteindre l`onglet de mon choix sachant que j`ai les onglets listes ds ma feuille MACRO en col. A

merci pour votre aide

VBA_DEAD

 

[Cousinhub]

Re : atteindre onglet - list by ordre alphabetique ds listbox

Bonjour,

ce code rajoute des liens hypertextes vers les onglets...

Sub onglets()
With Sheets("MACRO")
    I = 2
    .Range("A2:A100").Clear
    For Each sh In Sheets
        If sh.Name <> "HORSSCOPE2" And sh.Name <> "HORSSCOPE1" And sh.Name <> "MACRO" Then
            .Hyperlinks.Add Anchor:=.Cells(I, 1), Address:="", SubAddress:= _
                sh.Name & "!A1", TextToDisplay:=sh.Name
            I = I + 1
        End If
    Next sh
    .Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
End With
End Sub

 

[gwenlorin]

Re : atteindre onglet - list by ordre alphabetique ds listbox

Bonjour VBA_DEAD,

Ci-joint le fichier modifié :
- macro liée au userform. J'ai ajouté une fonction de tri (merci au site Ce site n'existe plus qui est une vraie mine) et ajouté des condition pour exclure certaines feuilles comme demandé.

- feuille "Macro". Ajout d'une fonction qui agit sur double-clic d'une cellule en colonne A

J'espère que ca t'ira

 

[VBA_DEAD]

Re : atteindre onglet - list by ordre alphabetique ds listbox

salut Bhbh et Gwenlorin,

c`est fantastique! J`ai le choix 😀

merci ca marche nickel, c`est exactement cela.
donc ca me va!

merci a vous 2.


a+

VBA_DEAD