XL : Procédure pour trier les feuilles dans un classeur

Résumé

Bien qu'il n'existe pas d'outil intégré permettant de trier alphanumériquement les feuilles, les graphiques, les modules, les feuilles de macro Microsoft Excel 4.0 et les feuilles boîte de dialogue dans un classeur, vous pouvez effectuer ce tri à l'aide d'une macro.

Remarque Dans Excel 97, Excel 2000 et Excel 2002, vous ne pouvez pas trier les modules car ils sont affichés dans Visual Basic Editor.

Plus d'informations

Microsoft fournit des exemples de programmation à titre indicatif uniquement, sans garantie expresse ou implicite, notamment toute garantie implicite de qualité et d'adéquation à un usage particulier. Pour bien comprendre cet article, vous devez posséder une bonne connaissance du langage de programmation mentionné et des outils utilisés pour la création et le débogage des procédures. Les techniciens du Support technique de Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure, mais ils ne modifieront pas ces exemples afin de fournir des fonctionnalités supplémentaires ou des procédures de construction adaptées à vos besoins spécifiques. Si votre expérience en matière de programmation est limitée, vous pouvez contacter un Partenaire certifié Microsoft (MCP) ou appeler la ligne de consultation payante de Microsoft au Numero indique a la page http://support.microsoft.com/contactus/. Pour plus d'informations sur les Partenaires certifiés Microsoft, consultez le site Web suivant : Pour plus d'informations sur les options du Support technique Microsoft, consultez le site Web Microsoft suivant :
Sub Sort_Active_Book() Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult ' ' Demander à l'utilisateur dans quel ordre il veut trier les feuilles de calcul'. ' iAnswer = MsgBox("Trier les feuilles par ordre croissant ?" & Chr(10) _ & "Cliquer sur Non entraîne un tri par ordre décroissant", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets") For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 ' ' Si la réponse est Oui, trier par ordre croissant. ' If iAnswer = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If ' ' Si la réponse est Non, trier par ordre décroissant. ' ElseIf iAnswer = vbNo Then If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If End If Next j Next i End Sub
Pour plus d'informations sur l'exécution de ce code de macro dans Excel, cliquez sur les numéros ci-dessous pour afficher les articles correspondants dans la Base de connaissances Microsoft :
468888 OFFXP : Exécution d'exemple de code provenant d'articles de la Base de connaissances OFFXP : Exécution d'exemple de code provenant d'articles de la Base de connaissances
212536 OFF2000 : Exécution d'exemple de code provenant d'articles de la Base de connaissances
173707 OFF97 : Exécution d'exemple de code provenant d'articles de la Base de connaissances
Propriétés

ID d'article : 812386 - Dernière mise à jour : 9 janv. 2017 - Révision : 1

Commentaires