Trier un tableau dont le nom dépend d'un onglet

[litelsousa]

Bonjour,

Je n'arrive pas à modifier ce code pour qu'il marche quelque soit le nom de mon tableau. (Il sera toujours nommé "Tabl_XXXX" où les X représente le nom de l'onglet, ici 4090)

Sub Nouvelle_semaine()

ActiveSheet.ListObjects("Tabl_4090").Range.AutoFilter Field:=5, Criteria1:= _
"="
ActiveWorkbook.Worksheets("4090").ListObjects("Tabl_4090").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("4090").ListObjects("Tabl_4090").Sort.SortFields.Add _
Key:=Range("Tabl_4090[[#All],[Date début]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("4090").ListObjects("Tabl_4090").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Si quelqu'un pourrait me venir en aide...
Merci

 

[chris]

Re : Trier un tableau dont le nom dépend d'un onglet

Bonjour

ActiveSheet.ListObjects("Tabl_" & ActiveSheet.name)

 

[Guest]

Re : Trier un tableau dont le nom dépend d'un onglet

Bonjour,

il me semble t'avoir indiquer un moyen de t'affranchir du nom dans cette discussion:https://www.excel-downloads.com/threads/renommer-un-tableau-du-nom-de-longlet-via-vba.219915/

A+

[Edit] hello Chris🙂

 

[chris]

Re : Trier un tableau dont le nom dépend d'un onglet

Re,

Ah ces posts multiples ! 😡

C'est néanmoins l'occasion de faire la bise à Hasco 😉

 

[Guest]

Re : Trier un tableau dont le nom dépend d'un onglet

Re,

@Chris, c'est pas tout à fait la même discussion, mais avec un peut de reflexion, litlsousa n'aurait pas eu besoin de celle-ci!
penser est apparament devenu une chose difficile, ces derniers temps....
A+

 

[litelsousa]

Re : Trier un tableau dont le nom dépend d'un onglet

Merci beaucoup.

Pour info cela fait bientôt 2 heures que j'essaye de l'utiliser dans tous les sens, mais sans succès... Il faut dire que j'ai commencé le VBA depuis lundi seulement...🙁

 

[litelsousa]

Re : Trier un tableau dont le nom dépend d'un onglet

Re

Je suis désolé de revenir à la charge, il y a un endroit que je n'arrive pas à modifier:

Sub Afficher_tout()
ActiveSheet.ListObjects("Tabl_" & ActiveSheet.Name).Range.AutoFilter Field:=5
ActiveWorkbook.Worksheets(ActiveSheet.Name).ListObjects("Tabl_" & ActiveSheet.Name).Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets(ActiveSheet.Name).ListObjects("Tabl_" & ActiveSheet.Name).Sort.SortFields.Add _
Key:=Range("Tabl_4090[[#All],[Date début]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(ActiveSheet.Name).ListObjects("Tabl_" & ActiveSheet.Name).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Je ne vois pas comment y arriver.

Chose étonnante, ça marche sur tous les onglets dès que j'en ai un nommé 4090!?

 

[chris]

Re : Trier un tableau dont le nom dépend d'un onglet

Re,

Découper la chaîne

Key:=Range("Tabl_" & ActiveSheet.Name & "[[#All],[Date début]]")

Sinon une Structure with End with pourrait simplifier.

 

[litelsousa]

Re : Trier un tableau dont le nom dépend d'un onglet

Merci bien c'est nickel

Voilà le classeur que j'ai fait... grâce à votre aide.




Il me restera plus qu'une petite chose à faire: que le nouvel onglet créé reste actif

 

[litelsousa]

Re : Trier un tableau dont le nom dépend d'un onglet

Bonjour,

Voilà j'ai réussi...

Dim Affaire_active As String
Affaire_active = Sheets("Modèle").Range("b1").Value
Sheets(Affaire_active).Select