Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Utilisation Classeur Exelabo

Utilisation Classeur Exelabo

12 réponses
Avatar
Christian
Bonjour
N'ayant re=E7u aucune r=E9ponse =E0 mon petit probl=E8me, j'en=20
d=E9duis que j'ai d=FB mal l'expliquer.
J'ai re=E7u un classeur poss=E9dant plus de 50 feuilles que=20
je souhaiterais pouvoir r=E9organiser.
Sur le forum, j'ai lu qu'il existait une solution rapide=20
(Trier complexe d'onglets) via le site Disciplus.
Ayant t=E9l=E9charg=E9 le classeur (il contient une grande=20
quantit=E9 de feuilles et macros), comment dois-je m'y=20
prendre pour l'ex=E9cuter sur mon classeur.
Dois-je transf=E9rer toutes mes feuilles sur ce classeur=20
(mais alors, comment reconna=EEtre mes feuilles des=20
feuilles du classeur); faut-il d'abord supprimer toutes=20
les feuilles du classeur t=E9l=E9charg=E9 et ensuite transf=E9rer=20
les miennes (risque d'erreur) ou existe-t-il une autre=20
solution.
Merci d'avance pour votre aide.
Christian
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
John Fuss
Pourrais-tu nous en dire un peu plus sur tes besoins en réorganisation de
feuilles ?

John

"Christian" a écrit dans le message de
news:7e0e01c3b4af$2c79c480$
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution rapide
(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite transférer
les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian
Avatar
moi............
Salut,
s'il s'agit de trier tes onglets, il faut certainement
copier le code VBA trouvé sur le site dans ton classeur en
ouvrant l'éditeur par ALT F11 et tu y colles le code
trouvé; pour le lancer il y a une petite flèche bleue vers
la droite, tu cliques dessus et le tri va s'effectuer.

Bye

-----Message d'origine-----
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution rapide
(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite transférer
les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian

.



Avatar
Christian
Bonjour John
Les onglets des feuilles renseignent soit des références
chiffrées (ex:1025.1) soit une combinaison de lettres et
chiffres (ex:AC-975 ou AC_1025)ou chiffres et lettres
(ex:587-CA).
Comme elles ne sont pas dans un ordre logique, c'est le
b...l pour s'y retrouver et la raison de ma demande.
Merci d'avance
Christian
-----Message d'origine-----
Pourrais-tu nous en dire un peu plus sur tes besoins en
réorganisation de

feuilles ?

John

"Christian" a
écrit dans le message de

news:7e0e01c3b4af$2c79c480$
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution rapide
(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite transférer
les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian


.



Avatar
Christian
Bonjour Moi.....
Non, cela n'est pas possible car il y a une fenêtre avec
un choix de différentes possibilités.
Merci de m'avoir répondu
Christian
-----Message d'origine-----
Salut,
s'il s'agit de trier tes onglets, il faut certainement
copier le code VBA trouvé sur le site dans ton classeur
en

ouvrant l'éditeur par ALT F11 et tu y colles le code
trouvé; pour le lancer il y a une petite flèche bleue
vers

la droite, tu cliques dessus et le tri va s'effectuer.

Bye

-----Message d'origine-----
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution
rapide


(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite
transférer


les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian

.

.





Avatar
Misange
Bonjour Christian.
Le classeur à télécharger n'est qu'un exemple !
tu l'ouvres, tu ouvres l'éditeur VBA. Tu as un dossier "modules"
contenant trois modules différents. Tu ouvres ton propre classeur et tu
te mets dans l'éditeur VBA. Tu fais glisser-déposer le dossier du
classeur de Daniel vers le tien (ça le copie) pour récupérer les macros)
et tu lances depuis ton classeur la macro de tri.

Tu devrais aussi aller lire sur la page débuter les quelques conseils
pour savoir comment utliser les codes que l'on te propose.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

le 27/11/2003 07:24:
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution rapide
(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite transférer
les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian



Avatar
Christian
Bonjour Misange
Merci beaucoup pour tes conseils.
Je vais les mettre directement en pratique.
Bonne journée
Christian
-----Message d'origine-----
Bonjour Christian.
Le classeur à télécharger n'est qu'un exemple !
tu l'ouvres, tu ouvres l'éditeur VBA. Tu as un
dossier "modules"

contenant trois modules différents. Tu ouvres ton propre
classeur et tu

te mets dans l'éditeur VBA. Tu fais glisser-déposer le
dossier du

classeur de Daniel vers le tien (ça le copie) pour
récupérer les macros)

et tu lances depuis ton classeur la macro de tri.

Tu devrais aussi aller lire sur la page débuter les
quelques conseils

pour savoir comment utliser les codes que l'on te
propose.


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

le 27/11/2003 07:24:
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles
que


je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution
rapide


(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer
toutes


les feuilles du classeur téléchargé et ensuite
transférer


les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian



.




Avatar
John Fuss
Comment veux-tu les retrouver ? par ordre alpha ?

John

"Christian" a écrit dans le message de
news:08a801c3b4c7$20b06ab0$
Bonjour John
Les onglets des feuilles renseignent soit des références
chiffrées (ex:1025.1) soit une combinaison de lettres et
chiffres (ex:AC-975 ou AC_1025)ou chiffres et lettres
(ex:587-CA).
Comme elles ne sont pas dans un ordre logique, c'est le
b...l pour s'y retrouver et la raison de ma demande.
Merci d'avance
Christian
-----Message d'origine-----
Pourrais-tu nous en dire un peu plus sur tes besoins en
réorganisation de

feuilles ?

John

"Christian" a
écrit dans le message de

news:7e0e01c3b4af$2c79c480$
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution rapide
(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite transférer
les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian


.



Avatar
Christian
Re-bonjour John
Oui, par ordre alpha ce serait parfait.
Merci de m'avoir lu et répondu.
Christian
-----Message d'origine-----
Comment veux-tu les retrouver ? par ordre alpha ?

John

"Christian" a
écrit dans le message de

news:08a801c3b4c7$20b06ab0$
Bonjour John
Les onglets des feuilles renseignent soit des références
chiffrées (ex:1025.1) soit une combinaison de lettres et
chiffres (ex:AC-975 ou AC_1025)ou chiffres et lettres
(ex:587-CA).
Comme elles ne sont pas dans un ordre logique, c'est le
b...l pour s'y retrouver et la raison de ma demande.
Merci d'avance
Christian
-----Message d'origine-----
Pourrais-tu nous en dire un peu plus sur tes besoins en
réorganisation de

feuilles ?

John

"Christian" a
écrit dans le message de

news:7e0e01c3b4af$2c79c480$
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution rapide
(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite
transférer


les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian


.




.




Avatar
Misange
dans ce cas Christian, tu insères un module ordinaire dans ton classeur
et tu copies cette macro de laurent Longre
Voilà une macro avec un algorithme de tri très rapide, triant par
ordre alphanumérique les *groupes* de feuilles qui commencent par les mêmes
chaînes de caractères, et opérant à l'intérieur de ces groupes
un tri numérique sur les fins de noms. Si ton classeur contient les
feuilles Zaza26, Zaza15, JPS69, 2000, 19, JPS49287, Zaza4 et Feuil10,
elles seront triées en: 19, 2000, Feuil10, JPS69, JPS49287, Zaza4,
Zaza15 et Zaza26.

'============================================= Dim Arr(), Idx() As Integer
Dim Elt1, Elt2, IdxTemp As Integer
Dim I As Integer

Sub TriFeuilles()
Dim J As Integer, NF As Integer
Dim Nom() As String
Dim Calc As Long

NF = Sheets.Count
ReDim Nom(1 To NF)
ReDim Arr(1 To NF, 1 To 2)
For I = 1 To NF
Nom(I) = Sheets(I).Name
For J = Len(Nom(I)) To 1 Step -1
If Not IsNumeric(Mid$(Nom(I), J, 1)) Then Exit For
Next J
If J = Len(Nom(I)) Then
Arr(I, 1) = Nom(I)
Else
Arr(I, 1) = Left$(Nom(I), J)
Arr(I, 2) = CLng(Mid$(Nom(I), J + 1))
End If

Next I
ReDim Idx(1 To NF)
For I = 1 To UBound(Idx)
Idx(I) = I

Next I
Tri 1, NF
Erase Arr
Calc = Application.Calculation

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For I = 1 To NF
Sheets(Nom(Idx(I))).Move Sheets(I)
Next I

Application.Calculation = Calc

End Sub

Private Sub Tri(ByVal B1 As Integer, ByVal H1 As Integer)

Dim B2 As Integer
Dim H2 As Integer


B2 = B1
H2 = H1
Elt1 = Arr(Idx((B1 + H1) 2), 1)
Elt2 = Arr(Idx((B1 + H1) 2), 2)
Do While B2 < H2
Do While B2 < H1
If Arr(Idx(B2), 1) > Elt1 Then Exit Do
If Arr(Idx(B2), 1) = Elt1 Then _
If Arr(Idx(B2), 2) >= Elt2 Then Exit Do
B2 = B2 + 1
Loop
Do While
H2 > B1
If Arr(Idx(H2), 1) < Elt1 Then Exit Do
If Arr(Idx(H2), 1) = Elt1 Then _
If Arr(Idx(H2), 2) <= Elt2 Then Exit Do
H2 = H2 - 1
Loop
If B2 < H2 Then
IdxTemp = Idx(B2)
Idx(B2) = Idx(H2)
Idx(H2) = IdxTemp
End If
If B2 <= H2 Then
B2 = B2 + 1
H2 = H2 - 1
End If
Loop
If H2 > B1 Then Tri B1, H2

If B2 < H1 Then Tri B2, H1

End Sub

Laurent Longre


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

le 27/11/2003 13:05:
Re-bonjour John
Oui, par ordre alpha ce serait parfait.
Merci de m'avoir lu et répondu.
Christian

-----Message d'origine-----
Comment veux-tu les retrouver ? par ordre alpha ?

John

"Christian" a


écrit dans le message de

news:08a801c3b4c7$20b06ab0$
Bonjour John
Les onglets des feuilles renseignent soit des références
chiffrées (ex:1025.1) soit une combinaison de lettres et
chiffres (ex:AC-975 ou AC_1025)ou chiffres et lettres
(ex:587-CA).
Comme elles ne sont pas dans un ordre logique, c'est le
b...l pour s'y retrouver et la raison de ma demande.
Merci d'avance
Christian

-----Message d'origine-----
Pourrais-tu nous en dire un peu plus sur tes besoins en


réorganisation de

feuilles ?

John

"Christian" a


écrit dans le message de

news:7e0e01c3b4af$2c79c480$
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution rapide
(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite



transférer

les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian


.




.







Avatar
John Fuss
Merci d'avoir repondu Misange, j'aurai créé une feuille appelée "!" dans
lequel j'aurai mis le nom de toutes les feuilles du classeur, j'aurai
demandé gentillement à Excel de me trier tout ça et pis j'aurai 'mover' les
feuilles en fonctions du tri. Et pis je supprimerai "!".

Enfin bref bravo !

John

"Misange" a écrit dans le message de
news:%
dans ce cas Christian, tu insères un module ordinaire dans ton classeur
et tu copies cette macro de laurent Longre
Voilà une macro avec un algorithme de tri très rapide, triant par
ordre alphanumérique les *groupes* de feuilles qui commencent par les
mêmes

chaînes de caractères, et opérant à l'intérieur de ces groupes
un tri numérique sur les fins de noms. Si ton classeur contient les
feuilles Zaza26, Zaza15, JPS69, 2000, 19, JPS49287, Zaza4 et Feuil10,
elles seront triées en: 19, 2000, Feuil10, JPS69, JPS49287, Zaza4,
Zaza15 et Zaza26.

'============================================= > Dim Arr(), Idx() As Integer
Dim Elt1, Elt2, IdxTemp As Integer
Dim I As Integer

Sub TriFeuilles()
Dim J As Integer, NF As Integer
Dim Nom() As String
Dim Calc As Long

NF = Sheets.Count
ReDim Nom(1 To NF)
ReDim Arr(1 To NF, 1 To 2)
For I = 1 To NF
Nom(I) = Sheets(I).Name
For J = Len(Nom(I)) To 1 Step -1
If Not IsNumeric(Mid$(Nom(I), J, 1)) Then Exit For
Next J
If J = Len(Nom(I)) Then
Arr(I, 1) = Nom(I)
Else
Arr(I, 1) = Left$(Nom(I), J)
Arr(I, 2) = CLng(Mid$(Nom(I), J + 1))
End If

Next I
ReDim Idx(1 To NF)
For I = 1 To UBound(Idx)
Idx(I) = I

Next I
Tri 1, NF
Erase Arr
Calc = Application.Calculation

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For I = 1 To NF
Sheets(Nom(Idx(I))).Move Sheets(I)
Next I

Application.Calculation = Calc

End Sub

Private Sub Tri(ByVal B1 As Integer, ByVal H1 As Integer)

Dim B2 As Integer
Dim H2 As Integer


B2 = B1
H2 = H1
Elt1 = Arr(Idx((B1 + H1) 2), 1)
Elt2 = Arr(Idx((B1 + H1) 2), 2)
Do While B2 < H2
Do While B2 < H1
If Arr(Idx(B2), 1) > Elt1 Then Exit Do
If Arr(Idx(B2), 1) = Elt1 Then _
If Arr(Idx(B2), 2) >= Elt2 Then Exit Do
B2 = B2 + 1
Loop
Do While
H2 > B1
If Arr(Idx(H2), 1) < Elt1 Then Exit Do
If Arr(Idx(H2), 1) = Elt1 Then _
If Arr(Idx(H2), 2) <= Elt2 Then Exit Do
H2 = H2 - 1
Loop
If B2 < H2 Then
IdxTemp = Idx(B2)
Idx(B2) = Idx(H2)
Idx(H2) = IdxTemp
End If
If B2 <= H2 Then
B2 = B2 + 1
H2 = H2 - 1
End If
Loop
If H2 > B1 Then Tri B1, H2

If B2 < H1 Then Tri B2, H1

End Sub

Laurent Longre


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

le 27/11/2003 13:05:
Re-bonjour John
Oui, par ordre alpha ce serait parfait.
Merci de m'avoir lu et répondu.
Christian

-----Message d'origine-----
Comment veux-tu les retrouver ? par ordre alpha ?

John

"Christian" a


écrit dans le message de

news:08a801c3b4c7$20b06ab0$
Bonjour John
Les onglets des feuilles renseignent soit des références
chiffrées (ex:1025.1) soit une combinaison de lettres et
chiffres (ex:AC-975 ou AC_1025)ou chiffres et lettres
(ex:587-CA).
Comme elles ne sont pas dans un ordre logique, c'est le
b...l pour s'y retrouver et la raison de ma demande.
Merci d'avance
Christian

-----Message d'origine-----
Pourrais-tu nous en dire un peu plus sur tes besoins en


réorganisation de

feuilles ?

John

"Christian" a


écrit dans le message de

news:7e0e01c3b4af$2c79c480$
Bonjour
N'ayant reçu aucune réponse à mon petit problème, j'en
déduis que j'ai dû mal l'expliquer.
J'ai reçu un classeur possédant plus de 50 feuilles que
je souhaiterais pouvoir réorganiser.
Sur le forum, j'ai lu qu'il existait une solution rapide
(Trier complexe d'onglets) via le site Disciplus.
Ayant téléchargé le classeur (il contient une grande
quantité de feuilles et macros), comment dois-je m'y
prendre pour l'exécuter sur mon classeur.
Dois-je transférer toutes mes feuilles sur ce classeur
(mais alors, comment reconnaître mes feuilles des
feuilles du classeur); faut-il d'abord supprimer toutes
les feuilles du classeur téléchargé et ensuite



transférer

les miennes (risque d'erreur) ou existe-t-il une autre
solution.
Merci d'avance pour votre aide.
Christian


.




.










1 2