VBA excel trier les feuilles dans l'ordre

DoubleZero

XLDnaute Barbatruc

• 11 Juin 2013

• #2

Re : VBA excel trier les feuilles dans l'ordre

Bonjour, Anna_2013, le Forum,

Un exemple ici.

A bientôt 🙂

 

Vote positif 0 Vote négatif

A

Anna_2013

Guest

• 11 Juin 2013

• #3

Re : VBA excel trier les feuilles dans l'ordre

Bonjour,

j'ai essayé ce code cependant le lien pour changer le nom de la feuille ne fontionne plus.
La macro ne me permet pas de trier les feuilles du fichier excel.

Toutes les feuilles commencent par le mot NOTE et sont suivies d'un numéro avec ou sans espace du type : NOTE1 ou NOTE 0.

Merci par avance

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Juin 2013

• #4

Re : VBA excel trier les feuilles dans l'ordre

Re-bonjour,

Je ne sais quelle solution trouver 🙁.

Bon courage et à bientôt 🙂

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Juin 2013

• #5

Re : VBA excel trier les feuilles dans l'ordre

Bonjour Anna_2013

Salut DoubleZero

A tester:

Code:

Sub trifeuilles()
x = 1
num = CInt(Replace(Sheets(1).Name, "NOTE", ""))
While x < Sheets.Count + 1
 For n = x To Sheets.Count
   If CInt(Replace(Sheets(n).Name, "NOTE", "")) > num Then
     num = CInt(Replace(Sheets(n).Name, "NOTE", ""))
   End If
 Next
 Sheets("NOTE" & num).Move before:=Sheets(1)
 x = x + 1
num = 0
Wend
End Sub

 

Vote positif 0 Vote négatif

A

Anna_2013

Guest

• 11 Juin 2013

• #6

Re : VBA excel trier les feuilles dans l'ordre

Bonjour
J'ai essayé cette syntaxe mais rien ne se passe quand je l'exécute.
Par ailleurs je ne parviens pas à classer les onglets NOTE 10 11 et 12 après l'onglet 9 car vba les considère comme des onglets 1

Merci par avance

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 11 Juin 2013

• #7

Re : VBA excel trier les feuilles dans l'ordre

Bonjour à tous,

À tester :

VB:

Sub TriFeuilles()
   Dim i As Integer, j As Integer
   
   For i = 1 To Sheets.Count
      For j = i To Sheets.Count
         If Right("00000" & Split(Sheets(i).Name, " ")(1), 5) > Right("00000" & Split(Sheets(j).Name, " ")(1), 5) Then
            Sheets(j).Move before:=Sheets(i)
         End If
      Next j
   Next i
End Sub

 

Vote positif 0 Vote négatif

A

Anna_2013

Guest

• 11 Juin 2013

• #8

Re : VBA excel trier les feuilles dans l'ordre

Le message suivant apparaît quand je lance cette macro l'indice n'appartient pas à la sélection.
Mes onglets sont nommés NOTE puis suivi d'un espace et d'un chiffre comme NOTE 1, NOTE 2 ect....

 

Vote positif 0 Vote négatif

A

Anna_2013

Guest

• 11 Juin 2013

• #9

Re : VBA excel trier les feuilles dans l'ordre

j'utilise cette macro mais elle me met les onglets NOTE 11 et NOTE 12 entre les onglets NOTE 0 et NOTE 2. Je souhaiterai les mettres après l'onglet NOTE 9

Merci par avance

Sub TriChaqueFeuilles()
Dim X As Variant
Dim I As Variant
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Juin 2013

• #10

Re : VBA excel trier les feuilles dans l'ordre

Re

Il eut été bien de parler de cet espace depuis le debut !!!

A tester:

Code:

Sub trifeuilles()
x = 1
num = CInt(Replace(Sheets(1).Name, "NOTE ", ""))
While x < Sheets.Count + 1
 For n = x To Sheets.Count
   If CInt(Replace(Sheets(n).Name, "NOTE ", "")) > num Then
     num = CInt(Replace(Sheets(n).Name, "NOTE ", ""))
   End If
 Next
 Sheets("NOTE " & num).Move before:=Sheets(1)
 x = x + 1
num = 0
Wend
End Sub

 

Pièces jointes

• Anna.xlsm

  16.8 KB · Affichages: 84

Dernière édition: 11 Juin 2013

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 11 Juin 2013

• #11

Re : VBA excel trier les feuilles dans l'ordre

Je n'ai pas de message d'erreur quand je teste.
Néanmoins, voici le code avec une petite correction :

VB:

Sub TriFeuilles_AvecNumero()
   Dim i As Integer, j As Integer
   
   For i = 1 To Sheets.Count - 1
      For j = i + 1 To Sheets.Count
         If Right("00000" & Split(Sheets(i).Name, " ")(1), 5) > Right("00000" & Split(Sheets(j).Name, " ")(1), 5) Then
            Sheets(j).Move before:=Sheets(i)
         End If
      Next j
   Next i
End Sub

A+

 

Vote positif 0 Vote négatif

A

Anna_2013

Guest

• 11 Juin 2013

• #12

Re : VBA excel trier les feuilles dans l'ordre

Bonjour

Le code utilisé ne fonctionne pas j'ai un message d'erreur indiquant une incompatibilité sur cette ligne
If CInt(Replace(Sheets(n).Name, "NOTE ", "")) > num Then

Merci pour votre aide

Sub trifeuilles()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
ChDrive ThisWorkbook.path: ChDir ThisWorkbook.path
FileName = Dir("*.xlsx", vbNormal)
X = 1
num = CInt(Replace(Sheets(1).Name, "NOTE ", ""))
While X < Sheets.Count + 1
For n = X To Sheets.Count
If CInt(Replace(Sheets(n).Name, "NOTE ", "")) > num Then
num = CInt(Replace(Sheets(n).Name, "NOTE ", ""))
End If
Next
Sheets("NOTE " & num).Move before:=Sheets(1)
X = X + 1
num = 0
Wend
End Sub

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 11 Juin 2013

• #13

Re : VBA excel trier les feuilles dans l'ordre

Avez-vous testé la solution que j'ai proposée?

 

Vote positif 0 Vote négatif

A

Anna_2013

Guest

• 11 Juin 2013

• #14

Re : VBA excel trier les feuilles dans l'ordre

oui j'ai testé cette solution mais rien ne se passe quand j'exécute la macro 🙁

 

Vote positif 0 Vote négatif

A

Anna_2013

Guest

• 11 Juin 2013

• #15

Re : VBA excel trier les feuilles dans l'ordre

et sinon j'ai une erreur à cette ligne

If Right("00000" & Split(Sheets(i).Name, " ")(1), 5) > Right("00000" & Split(Sheets(j).Name, " ")(1), 5) Then

 

Vote positif 0 Vote négatif