> Tous les forums > Forum Bureautique
 Feuilles dans l'ordre alphabétiqueSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
maryloo2005
  Posté le 29/01/2018 @ 15:53 
Aller en bas de la page 
Astucienne

Bonjour,

Est-il possible de classer des onglets de feuilles nommés dans l'ordre alphabétique ?

Merci et bonne fin de journée.

Publicité
poussebois
 Posté le 29/01/2018 à 16:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour ,

Je suppose qu'il s'agit d'Excel ...

Il n'existe pas de fonction prévue pour cela.

Toutefois, cela est possible avec une macro VBA.

@ +

ferrand
 Posté le 30/01/2018 à 01:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

J'en ai fait une il y a peu de temps, peut-être même deux d'ailleurs (mais mon absence de classement rend très aléatoire de la retrouver dès que c'est sorti des fichiers récents) mais c'est assez vite écrit pour rendre inutile de chercher.

Sub TriOnglets()
Dim nf(), i%, j%
With ThisWorkbook
ReDim nf(.Worksheets.Count)
For i = 1 To .Worksheets.Count
nf(i) = .Worksheets(i).Name
Next i
For i = 1 To UBound(nf) - 1
For j = i + 1 To UBound(nf)
If nf(j) < nf(i) Then
nf(0) = nf(j): nf(j) = nf(i): nf(i) = nf(0)
End If
Next j
Next i
Application.ScreenUpdating = False
For i = UBound(nf) To 1 Step -1
.Worksheets(nf(i)).Move before:=.Worksheets(1)
Next i
End With
End Sub

Tu places la macro dans un module Standard et tu la lances...

Cordialement.

maryloo2005
 Posté le 30/01/2018 à 14:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

bonjour,

oui, bien sûr il s'agit d'Excel.

Eh bien ça marche super bien. Merci Ferrand !

bonne fin de journée.

ferrand
 Posté le 31/01/2018 à 02:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

maryloo !

Salut Debrief !

Je reconnais que les tableaux c'est pas toujours simple, mais si tu veux te simplifier la vie il te faut établir quelques principes d'utilisation à ton propre usage, au moins pour t'éviter de te poser des questions par la suite sur ton propre code ! (ça m'est arrivé dans le temps !!! )

Ma pratique est simple, je reste sur l'Option Base 0 par défaut systématiquement, si je veux 1 ou une autre valeur, j'utilise la déclaration pour ça.

Ensuite dans un cas comme celui-ci, où j'ai des éléments qui se numérotent à partir de 1, je recueille les noms dans un tableaux en alignant les indices tableau sur les index de feuilles, mais je vais trier ce tableau pour classer les noms en ordre alpha, j'incorpore l'élément 0 qui va me servir pour le tri (switcher les éléments sans faire appel à une variable externe). Et ce système rend encore plus service sur un tableau à 2 dimensions que tu dois trier, car la ligne 0 aura la même taille que tes autres lignes et sera parfaitement adaptée.

Par ailleurs il faut savoir que les tableaux issues d'affectations des valeurs d'une plage (généralement on le fait en affectant à des variable de type Variant, mais le résultat est le même avec des variables tableaux dynamiques), renvoient toujours un tableau à 2 dimensions (même si la plage ne comporte qu'une ligne ou qu'une colonne), et d'indice minimal 1 pour les lignes comme pour les colonnes.

Une fois qu'on assimilé la chose, ça devient assez pratique : on met une plage en tableau pour la parcourir... sans se casser la tête on parcourt toujours de 1 à UBound...

Les tableaux formés avec Split ou Array, comme tu le notes, sont toujours de base 0 et à une dimension.

L'utilisation de Split est souvent intéressante quand tu formes une chaîne intercalant un séparateur pour ensuite la splitter, ce qui te permet de dénombrer les éléments et de les utiliser. Généralement en la formant tu n'évites pas de démarrer par un séparateur que je m'ingéniais autrefois à éliminer pour ne pas avoir d'élément vide... Je le fais toujours si je dois affecter le résultat splitté à une plage mais quand ce n'est pas le cas, cet élément vide rend bien des services ! En recueillant des éléments de cette façon tu ne sais pas combien tu en auras à l'arrivée, et si tu n'en as qu'un, en supprimant l'élément vide plus de tableau ! et éventuellement une erreur 13... ! En conservant cet élément vide, tu as la garantie que pour un seul élément recueilli tu auras toujours un tableau, le dénombrement n'en est que facilité (correspond à UBound sans correction) et à l'utilisation on boucle de 1 à UBound... Je peux t'assurer que le jour où j'ai décidé qu'il était bon de garder cet élément vide j'y est trouvé un grand confort d'utilisation...

On n'en finirait pas de discuter sur les tableaux...

Bonne soirée ou journée...

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
99,49 €Alimentation modulaire Seasonic Focus Platinium 650W (garantie 10 ans) à 96,47 € livrée
119 € -16%

Amazon Allemagne fait une promotion sur l'alimentation Seasonic Focus Platinium PX-650 650W qui passe à 87,64 €. Comptez 8,83 € pour la livraison en France soit un total de 96,47 € livrée alors qu'on la trouve ailleurs à partir de 119 €. Le niveau frise la perfection avec une magnifique certification 80+ PLATINIUM et un câblage full modulaire, le tout dans un silence de cathédrale. L'alimentation est garantie 10 ans.


Voir l'offre
259 €Trottinette électrique AOVO ES80 / M365 Pro à 259 €
347 € -25%

Geekbuying fait une promotion sur la trottinette électrique AOVO ES80 / M365 Pro qui passe à 239,99 € avec le code promo NNNGIZAOVO. Un bon rapport qualité / prix pour ce clone de la Xiaomi M365 Pro. On la trouve habituellement à 347 €. Elle offre une autonomie de 30/35 km et une vitesse max de 25 km/h.

La livraison se fait depuis un entrepôt européen. Vous êtes ainsi certains de ne pas avoir de frais de douane et d'être livré rapidement.


Voir l'offre
729,99 €Portable 15,6' Lenovo Legion 5 (FHD, Ryzen 5, 8Go, SSD 512Go, RTX3060) + tapis de souris à 729,99 €
999 € -27%

Cdiscount fait une promotion sur le PC portable Lenovo Legion 5 (15ACH6H) dédié aux joueurs accompagné d'un tapis de souris qui passe à 829,99 € avec le code 50DES499. Or Lenovo rembourse actuellement 100 € pour l'achat de ce portable accompagné d'un accessoire (le tapis de souris est éligible) qui vous reviendra à 729,99 € au lieu de 999 €.

Ce PC portable très bien équipé possède un écran 15,6 pouces LED Full HD 120 Hz, un processeur AMD Ryzen 5 5600H, 8 Go de RAM, un SSD NVMe de 512 Go et une carte graphique GeForce RTX 3060 6 Go dédiée qui avalera tous vos jeux sans broncher.

L'ordinateur est livré sans OS mais vous pouvez facilement installer Windows 10/11


Voir l'offre
999,99 €PC portable 15,6 pouces HP Omen (R7 5800H, 16Go/SSD 512Go, GeForce RTX 3060) à 999,99 €
1499 € -33%

RueDuCommerce fait une belle promotion sur le PC portable HP Omen 15-en1026nf qui passe à 999,99 € au lieu de 1399 €.

Ce portable dispose d'un écran 15,6 pouces Full HD IPS (1920 x 1080 pixels) à 144 Hz, d'un processeur AMD Ryzen 7 5800H à 8 coeurs, de 16 Go de RAM, d'un SSD NVMe de 512 Go. Il intègre également une carte graphique dédiée GeForce RTX 3060 6 Go.

Il possède 4 ports USB 3.2, un port USB 3.2 Type C, un lecteur de carte mémoire, une webcam, le WiFi 6, bluetooth 5.0 et un port Ethernet Gigabit. Il tourne sous Windows 10. Un ordinateur très performant, parfait pour un usage bureautique, multimédia et gaming.


Voir l'offre

Sujets relatifs
Plusieurs feuilles excel par ordre alphabetique
ordre alphabétique dans open office Writer
mettre dans l'ordre alphabetique???
ordre alphabétique dans outlook 2003
Trier par ordre alphabétique
Mettre par ordre alphabétique sur LibreOffice
Nbre max de feuilles dans un classeur
classement par ordre alphabetique
classer une liste de noms par ordre alphabétique
ordre d'affichage dans Office Picture Manager
Plus de sujets relatifs à Feuilles dans l''ordre alphabétique
 > Tous les forums > Forum Bureautique