Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
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

VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif

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

Pièces jointes

  • 1.png
    4 KB · Affichages: 44
  • 2.png
    13.3 KB · Affichages: 42
Vote positif 0 Vote négatif
Re

Comme le signale vgendron

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

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
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)
 

Pièces jointes

  • flèche.png
    143.6 KB · Affichages: 46
Vote positif 0 Vote négatif
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 !
 
Vote positif 0 Vote négatif
Bonsoir

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

VB: 
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).
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Pourquoi ça ne colore pas de vert la cellule vu que ça commence par "avec" à gauche de F4 à F5 ?
Réponses
3
Affichages
141
anthoYS
J
  • Question Question
XL 2016 classeur rendez-vous avec userform en VBA
Réponses
4
Affichages
114
J- Paul
J
  • Résolu(e)
Autres Windows 11 outil de capture d'écran
2
Réponses
25
Affichages
673
TooFatBoy
  • Résolu(e)
XL 2016 remplir automatiquement un onglet
2
Réponses
17
Affichages
410
ARRU
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
M
  • Question Question
Microsoft 365 Si cellule texte en bleu, alors écrire "virement" dans une autre cellule
Réponses
5
Affichages
224
job75
A
  • Question Question
Microsoft 365 Formule Excel avec conditions "ET"
Réponses
7
Affichages
310
Armand11
A
  • Question Question
XL 2016 A partir USERFORM remplir plusieurs onglets
Réponses
10
Affichages
434
fanfan38
H
  • Question Question
Microsoft 365 Création application excel
Réponses
5
Affichages
404
Lolote83
L
M
  • Question Question
XL 2010 somme si avec conditions sur plusieurs onglets
Réponses
2
Affichages
101
sylvanu
  • Question Question
XL 2021 (RESOLU) XL 2024 LTSC Problèmes de remplissage automatique en colonne
Réponses
6
Affichages
157
kdet
Z
  • Question Question
Microsoft 365 Définir des plages de dates
Réponses
12
Affichages
680
Zazagally
Z
  • Résolu(e)
XL 2019 Définition des fonctions volatiles et propriété Saved
Réponses
13
Affichages
232
job75
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
119
finarobert
F
U
  • Question Question
Autres [RÉSOLU] Qu'est-ce qui ne va pas dans la macro Centrer Rectangles?
Réponses
10
Affichages
289
un internaute
U
I
  • Question Question
Microsoft 365 Automatiser Déclaration Tva
Réponses
4
Affichages
156
goube
A
  • Question Question
XL 2019 Demande d'aide pour une formule
Réponses
6
Affichages
213
Abdessadeq
A
B
  • Résolu(e)
Microsoft 365 Additionner des montants par rapport a des critère.
Réponses
4
Affichages
284
blancolie
B
  • Résolu(e)
Microsoft 365 Formule pour récupérer des données
Réponses
6
Affichages
183
Phil69970
U
  • Question Question
Microsoft 365 Graphique à bulles
Réponses
2
Affichages
184
User88
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…