begin process at 2012 02 12 04:49:37
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBA

 > MACRO POUR TRIER LES FEUILLES D'UN CLASSEUR EXCEL

MACRO POUR TRIER LES FEUILLES D'UN CLASSEUR EXCEL


 Information sur la source

Note :
Aucune note
Catégorie :VBA Classé sous :macro, trier, feuille, classeur, excel Niveau :Débutant Date de création :08/12/2001 Vu :21 600
Auteur : ZTPdiffusion

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

Cette macro permet de trier dans l'ordre croissant les feuilles d'un classeur excel

Il faut créer une feuille "Sommaire" et la placer en première position. Ensuite créer un bouton et lui affecter la macro suivante :  

Source

  • Sub Macro1()
  • Dim i As integer
  • For i = 2 To Worksheets.Count
  • Cells(i - 1, 1) = Worksheets(i).Name
  • Next i
  • Range("A1").Select
  • Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
  • OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  • For i = Worksheets.Count To 2 Step -1
  • a = Sheets("Sommaire").Cells(i - 1, 1)
  • Sheets(a).Move after:=Sheets(i)
  • Next i
  • Sheets("Sommaire").Select
  • End Sub 
Sub Macro1()
  Dim i As integer
  
  For i = 2 To Worksheets.Count
    Cells(i - 1, 1) = Worksheets(i).Name
  Next i
  
  Range("A1").Select
  Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      
  For i = Worksheets.Count To 2 Step -1
    a = Sheets("Sommaire").Cells(i - 1, 1)
    Sheets(a).Move after:=Sheets(i)
  Next i
  Sheets("Sommaire").Select
End Sub



 Sources du même auteur

Source avec Zip MISE EN VEILLE QUAND LA SOURIS DORT
METTRE EN VEILLE SON PC
TRIER LES FEUILLES D'UN CLASSEUR EXCEL
Source avec Zip OUVERTURE DES FICHIERS *.CHM (HTML COMPILÉ)
Source avec Zip LECTURE DES .INI DANS DES LISTBOX
Toutes les sources de ZTPdiffusion

 Sources de la même categorie

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive
Toutes les sources de la catégorie VBA

 Sources en rapport avec celle ci

Source avec Zip PASSWORD CLASSEUR EXCEL par Le Pivert
Source avec Zip COLORATION CONDITIONNELLE par l0r3nz1
Source avec Zip Source avec une capture ÔTER PROTECTION FEUILLE D'UN CLASSEUR EXCEL & TROUVER MOT D... par stef68600
Source .NET (Dotnet) CODE PERMETTANT DE MANIPULER LES OBJETS EXCEL EN .NET par Drikce06
TRIER LES FEUILLES D'UN CLASSEUR EXCEL par ZTPdiffusion

Commentaires et avis

Commentaire de coquilledepapillon le 03/12/2003 17:17:15

Salut,

J'ai pour habitude de ne consulter que le site, mais là, je me lance en te proposant une autre macro qui trie les onglets.

Sub trieonglet()
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = "ZZZ"
Dim i As Integer
Dim j As Integer
i = 1
j = Sheets.Count
For i = 1 To j
Cells(i, 1).Value = Sheets(i).Name
Next i
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 1 To j - 1
  Sheets(Sheets("zzz").Cells(i, 1).Value).Move before:=Sheets(i)
Next i
Application.SendKeys ("~")
Sheets("ZZZ").Delete
End Sub

Commentaire de AKARKOUNE le 15/12/2009 12:43:46

Bonjour,

Je vous propose également le code suivant, je pense que c'est le plus court qu'il soit.

Sub Macro1()
        
    For i = 1 To Worksheets.Count
        For j = i + 1 To Worksheets.Count
            If Worksheets(i).Name > Worksheets(j).Name Then
            Worksheets(j).Move Sheets(i)
            End If
        Next j
    Next i

End Sub

Commentaire de ninonabil le 14/04/2011 16:40:57

j ai un pb je veux avoir une methode simple pour faire les ecarts de vents et la gestion de stock en marco pendant une periode d une année ,

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

vba excel [ par safisa ] Bonjour; Svp qui peut m'aider pour créer un macro dans un classeur excel. Ce macro va copier tous les données qui se trouve dans chaque feuille du cla Macro Excel : exporter une feuille et la sauvarder comme classeur [ par mnt2006 ] Bonjour à tous, 1er post d'un novice sur ce forum et je remercie ceux ou celles qui me viendront en aide.Mon objectif est le suivant : construire une Macro excel : copier une feuille pour ensuite la sauvegarder comme classeur [ par mnt2006 ] Bonjour à tous, 1er post d'un novice sur ce forum et je remercie ceux ou celles qui me viendront en aide.Mon objectif est le suivant : construire une envoi feuille excel par macro [ par sam1975 ] Voilà, j'essaie d'envoyer 1 classeur par mail via macro, pour tester ma macro j'essaie de m'envoyer le classeur mais celui-ci n'arrive jamais dans ma copie d'une feuille vers une autre... [ par sapeur3873 ] bonjour,apres avoir recuperer un fichier excel, j'ai commencé a modifier la macro.le principe, j'ai une feuille du classeur avec des données qui sont Protection feuille excel [ par newland ] Bonsoir,Voila j'ai récup un classeur excell et dedans il y a une feuille qui est protégé par mot de passe.Le classeur en lui meme n'est pas protegeje [VBA Excel] Macro plusieurs classeurs [ par swan94 ] Salut à tousJ'ai développé un ensemble de macro sur un classeur. Le problème est que ce classeur résulte d'une extraction et donc plusieurs classeurs macro Excel 2000 [ par Monlieutenant ] Bonjour,Je me suis fait un planning dans une feuille excel pour gérer le temps de travail de mes collaborateurs dans une journée. J'ai fait une macro Excel et macro [ par Jomba ] Bonjour,j'ai un programme en vb.net qui modifie des fichiers excel grace au modèle d'objet Excel.Ces fichiers excel contiennent des macros qui s'execu Déprotection d'une feuille dans un classeur partagé [ par Thoma Vei Rubieu ] Bonjour, Je développe en ce moment une macro via Excel 2002 dans un classeur que je dois ensuite partager. Hors, le fait de partager le classeur m'e


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo Water in the Beginning of the Grand Canyon 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,499 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)