Pouvez vous m'aider à partir de cette capture, qu'est-ce qui ne va pas ?

[anthoYS]

Bonjour,


Merci

 

[Dan]

Bonjour

Le souci vient que vous utilisez un tableau prédéfini (nouvelle invention Microsoft qui apporte souvent des ennuis dans la gestion des codes. J'aime pas ce truc !)

essayez plutôt ce code à la place de la ligne qui fait défaut

With ListObjects("Tableau1").Sort
  .SortFields.Clear
  .SortFields.Add Key:=Range("Tableau1[Onglet]"), SortOn:=xlSortOnValues, Order:=xlAscending
  .Header = xlYes
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
End With

Attention toutefois à vérifier que le nom Tableau1 correspond bien au nom de votre tableau.
Pour vérifier,
- sélectionnez une cellule dans le tableau
- cliquez sur l'onglet création dans le menu
- A gauche dans l'encart nom du tableau, vous pouvez voir le nom du tableau

Cordialement

 

[Bebere]

bonjour
avec entête
[C5:C200].Sort key1:=[C6],order1:=[C5]:header:=xlyes
sans entête
[C5:C200].Sort key1:=[C5],order1:=[C5]:header:=xlno

 

[anthoYS]

Bonjour

Le souci vient que vous utilisez un tableau prédéfini (nouvelle invention Microsoft qui apporte souvent des ennuis dans la gestion des codes. J'aime pas ce truc !)

essayez plutôt ce code à la place de la ligne qui fait défaut

With ListObjects("Tableau1").Sort
  .SortFields.Clear
  .SortFields.Add Key:=Range("Tableau1[Onglet]"), SortOn:=xlSortOnValues, Order:=xlAscending
  .Header = xlYes
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
End With

Attention toutefois à vérifier que le nom Tableau1 correspond bien au nom de votre tableau.
Pour vérifier,
- sélectionnez une cellule dans le tableau
- cliquez sur l'onglet création dans le menu
- A gauche dans l'encart nom du tableau, vous pouvez voir le nom du tableau

Cordialement

Merci, ça à marché un instant (j'ai pu accéder à un onglet) puis ça a planté de nouveau.

 

[anthoYS]

bonjour
avec entête
[C5:C200].Sort key1:=[C6],order1:=[C5]:header:=xlyes
sans entête
[C5:C200].Sort key1:=[C5],order1:=[C5]:header:=xlno

Merci par contre je ne sais pas où implanter ceci. J'ai d'abord tenter la méthode de @Dan donc la tienne, je ne sais pas où mettre cela et si ça ne va pas interférer avec sa solution.

à+

 

[vgendron]

Hello
pour ton post #4
photo 2.png
sur la ligne surlignée.. il y a une erreur de syntaxe... tu as mis ) au lieu de ]

 

[Dan]

Re

Comme le signale vgendron

 .SortFields.Add Key:=Range("Tableau1[Onglet]"), SortOn:=xlSortOnValues, Order:=xlAscending

Cordialement

 

[anthoYS]

Merci à vous 2 !

Quand je pointe et clique ça m'affiche une flèche et ça sélectionne la ligne du tableau sur laquelle je clique respectivement (voir capture d'écran jointe)

 

[vgendron]

et si tu envoyais ton fichier. plutot que des photos..
sinon. les réponses risquent de devenir aussi des photos..

 

[anthoYS]

fichier trop lourd trop de données confidentielles.
bien, je vais tenter de trouver une solution @vgendron

 

[anthoYS]

quand je transpose la première feuille vers un nouveau classeur par le biais d'une copie, eh bien, ça marche dans ce cas. Donc mystère.

Tant pis, merci de m'avoir aider jusque là (même si cela ne servira probablement pas)


Bonne soirée !

 

[Dan]

Re

Quand je pointe et clique ça m'affiche une flèche et ça sélectionne la ligne du tableau sur laquelle je clique respectivement (voir capture d'écran jointe)

Ben cela c'est normal puisque vous utilisez des tableaux prédéfinis

Mais cela sort du sujet de ce fil non ?

Cordialement

 

[Si...]

Bonsoir

Tableau nommé listing_onglets donc code simple (plus qu'avec l'enregistreur de macro):

Option Explicit
Private Sub Worksheet_Activate()
  Dim nf As String, i As Long 'ou Byte
  [listing_onglets].Clear
  For i = 2 To Sheets.Count
    nf = Sheets(i).Name
    Me.Hyperlinks.Add Cells(i + 3, 3), "", nf & "!A1", nf
  Next
  [listing_onglets].Sort [listing_onglets].Item(1, 1), Header:=1
End Sub

Nota : en cas de copie du tableau, la copie change de nom donc réajuster le code avec le nouveau nom.
Il est dommage que beaucoup laissent cet outil de côté car il est performant (quand on sait le manipuler).

 

[anthoYS]

Bah j'avais tenter mais en vain, toujours la flèche et quand ça marche, ça renvoie en A1 or moi je veux la cellule active !

Edit : Bon après quelques minutes ça fonctionne, super !