Tri feuilles selon une cellule définie

ChTi160

XLDnaute Barbatruc

• 5 Juillet 2005

• #2

Salut Sylvie

bonjour le Forum

Si j'ai bien Compris la Question
Voilà ce que j'ai bidouillé
Tiens nous au courant

Bonne Journée [file name=Tri_Sylvie.zip size=10610]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tri_Sylvie.zip[/file]

 

Pièces jointes

• Tri_Sylvie.zip

  10.4 KB · Affichages: 17

Vote positif 0 Vote négatif

Sylvie

XLDnaute Accro

• 5 Juillet 2005

• #3

Bonjour Jean Marie,

ravie que nos chemins se croisent à nouveau. 🙂

J'ai un petit souci pour faire fonctionner ta macro dans mon classeur. Je l'ai copié dans un module (module8 des modules) mais ca coince sur Option explicit. Peut être dois je respecter l'endroit où elle figure dans ton classeur et la copier dans ThisWorbook ? Ca doit etre important je suppose. 😱
En fait comme j'ai plein d'autres macros dans mon fichier je l'ai copié au même endroit que les autres mais dans un module distinct.
Mais je t'avoue que c'est encore du petit chinois ...


Merci pour ton aide
Sylvie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juillet 2005

• #4

Re Sylvie
je ne pense pas que l'endroit ou se trouve la macro soit le problème
j'ai mis la Macro qui suit dans un Module n°1 chez moi Lol
et celà fonctionne
pour ce qui est de L'Option explicit cette Option impose la déclaration des Variables aurais tu ajouter quelques variables que tu n'aurais pas déclarées ????

voici la Macro à mettre dans ton module et à coller au bouton
Sub tri()
Dim tabtemp As Variant
Dim tmp As Variant, tmp2 As Variant
Dim Ws As Worksheet
Dim x As Byte, L As Byte, L2 As Byte
x = 1
ReDim tabtemp(2, x)
For Each Ws In Worksheets
If Right(Ws.Name, 3) = 'xls' Then
ReDim Preserve tabtemp(2, x)
tabtemp(1, x) = Ws.Name
tabtemp(2, x) = Ws.Range('C2').Value
x = x + 1

End If

Next
For L = 1 To UBound(tabtemp, 2)

For L2 = L + 1 To UBound(tabtemp, 2)
If tabtemp(2, L2) < tabtemp(2, L) Then
tmp = tabtemp(2, L2): tmp2 = tabtemp(1, L2)
tabtemp(2, L2) = tabtemp(2, L): tabtemp(1, L2) = tabtemp(1, L)
tabtemp(2, L) = tmp: tabtemp(1, L) = tmp2
End If
Next
Next

L = 1
Application.ScreenUpdating = False
For Each Ws In Worksheets
If Right(Ws.Name, 3) <> 'xls' Then
Ws.Select
Else
For L = 1 To UBound(tabtemp, 2)
Sheets(tabtemp(1, L)).Move after:=ActiveSheet
Sheets(tabtemp(1, L)).Select

Next
End If
Next
Sheets('Feuil1').Select
Application.ScreenUpdating = True
End Sub

tiens moi au courant

Message édité par: Chti160, à: 05/07/2005 10:54

 

Vote positif 0 Vote négatif

Sylvie

XLDnaute Accro

• 5 Juillet 2005

• #5

Re bonjour Jean Marie,

j'ai collé ta macro dans un module et j'ai fait un bouton sur une feuille appelée RECAP (RECAP tout court pas 'RECAP.xls'). Jusque là tout va bien. J'ai lancé la macro et bien sur elle s'est arrêtée sur

End If
Next
Sheets('Feuil1').Select
Application.ScreenUpdating = True
End Sub

Comme je n'ai pas de feuille nommée feuil1 j'ai remplacé Feuil1 par RECAP. 🙂
Tout à l'air de bien fonctionner mais ma feuille RECAP (tout court) est copiée en premier au tout début du classeur or elle ne devrait pas changer de place 😱

Qu'en penses tu ?

Merci
Sylvie

 

Vote positif 0 Vote négatif

Sylvie

XLDnaute Accro

• 5 Juillet 2005

• #6

Re bonjour Jean Marie,

j'ai collé ta macro dans un module et j'ai fait un bouton sur une feuille appelée RECAP (RECAP tout court pas 'RECAP.xls'). Jusque là tout va bien. J'ai lancé la macro et bien sur elle s'est arrêtée sur

End If
Next
Sheets('Feuil1').Select
Application.ScreenUpdating = True
End Sub

Comme je n'ai pas de feuille nommée feuil1 j'ai remplacé Feuil1 par RECAP. 🙂
Tout à l'air de bien fonctionner mais ma feuille RECAP (tout court) est copiée en premier au tout début du classeur or elle ne devrait pas changer de place 😱

Qu'en penses tu ?

Merci
Sylvie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juillet 2005

• #7

Re Sylvie pour l'exemple peux tu me donner les noms de feuille de ton classeur je reproduit ainsi le fichier et je teste juste les noms en sachant que les Feuilles .xls ont en Cellule C2 un String Lol
compris entre 0001 et 0301
Merci d'avance

 

Vote positif 0 Vote négatif

Sylvie

XLDnaute Accro

• 5 Juillet 2005

• #8

Re bonjour

Pour la cellule C2 elle peut bien sur aller au dela de 0301 mais je pense que tu testes le nom des feuilles puis la cellule C2 et pas l'inverse, non ?
Mes feuilles sont x feuilles .xls puis une feuille RECAP, puis quatre feuilles appelées RECAP, CHANTIERS, SALARIES, TOTALITE.

Merci à toi

Sylvie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juillet 2005

• #9

re sylvie
dans ton explication il y a une erreur car tu ne peux avoir deux feuilles du même nom Lol
elle dit (Sylvie)

Mes feuilles sont x feuilles .xls puis une feuille RECAP, puis quatre feuilles appelées RECAP,CHANTIERS, SALARIES, TOTALITE.

Cliquez pour agrandir...

ya deux feuilles RECAP sinon
donc j'ai fais un fichier pour que tu testes

[file name=Tri_SylvieV2.zip size=13768]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tri_SylvieV2.zip[/file]

 

Pièces jointes

• Tri_SylvieV2.zip

  13.4 KB · Affichages: 13

Vote positif 0 Vote négatif

Sylvie

XLDnaute Accro

• 5 Juillet 2005

• #10

Re jean marie ,

c'etait en effet un lapsus : il y a une seule feuille RECAP.
Mais mes quatre feuilles 'non xls' sont en fin de classeur et doivent y rester.
C'est possible de modifier ta macro en fonction ?

Merci
Sylvie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juillet 2005

• #11

Ahhhhhhhhhhhhhh
je n'avais pas compris que les feuilles non xls étaient à la fin
OK je regarde

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juillet 2005

• #12

re
En V3 une adaptation [file name=Tri_SylvieV3.zip size=14461]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tri_SylvieV3.zip[/file]

 

Pièces jointes

• Tri_SylvieV3.zip

  14.1 KB · Affichages: 13

Vote positif 0 Vote négatif

Sylvie

XLDnaute Accro

• 5 Juillet 2005

• #13

Re bonjour Jean Marie,

mille merci (qui viennent s'ajouter aux millers précédents) car cette version 3 à l'air de remplir parfaitement son rôle. Je vais la tester d'ici demain en grandeur nature sur les 90 feuilles qui composeront mon classeur.

Je te tiens au courant bien sur

Bonne journée à toi et à tout le forum,

Sylvie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juillet 2005

• #14

re Sylvie
bonne fin de Journée
je serai au rendez-vous Demain au cas où je pourrais être Utile

Message édité par: Chti160, à: 05/07/2005 13:17

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juillet 2005

• #15

re non non on est pas demain Lol
une autre version plus pratique tu testes y a une trentaine de feuille avec une place fixe pour les feuilles non xls les places
j'ai mis en dernier TOTALITE puis SALARIES puis CHANTIERS puis RECAP) enfin tu verras [file name=Tri_SylvieV4.zip size=23674]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tri_SylvieV4.zip[/file]

Message édité par: ChTi160, à: 05/07/2005 15:25

 

Pièces jointes

• Tri_SylvieV4.zip

  23.1 KB · Affichages: 14

Vote positif 0 Vote négatif