AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 03:53:54
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MACRO POUR TRIER LES FEUILLES D'UN CLASSEUR EXCEL


Information sur la source

Catégorie :VBA Classé sous : macro, trier, feuille, classeur, excel Niveau : Débutant Date de création : 08/12/2001 Vu : 12 239
Auteur : ZTPdiffusion Site perso
Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (1)
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

Commentaires et avis

signaler à un administrateur
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

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 appel macro autre classeur...ptit casse tête [ par chtebel ] Bonjour tt le monde. voila mon ptit casse tete du jour. Je veux lancer une macro d'un classeur b depuis un code placé dans un classeur a. le code e 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...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,421 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.