Soit un classeur avec un certain nombre de feuille dont certaine commence
par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation
du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour
chaque semaine je crée donc une feuille commencant pr le numéro de la semaine
sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant
par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive
pas à les adpater à ma situation.
ça vient dans un petit moment, j'ai une bonne piste :-)
mac
Le 20/10/2006, vpco a supposé :
Bonsoir la communauté,
Soit un classeur avec un certain nombre de feuille dont certaine commence par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour chaque semaine je crée donc une feuille commencant pr le numéro de la semaine sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive pas à les adpater à ma situation.
Merci pour votre aide.
Cordialement.
Marc
hello,
je suis dessus là, ça m'amusait ;-)
ça vient dans un petit moment, j'ai une bonne piste :-)
mac
Le 20/10/2006, vpco a supposé :
Bonsoir la communauté,
Soit un classeur avec un certain nombre de feuille dont certaine commence
par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation
du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour
chaque semaine je crée donc une feuille commencant pr le numéro de la semaine
sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant
par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive
pas à les adpater à ma situation.
ça vient dans un petit moment, j'ai une bonne piste :-)
mac
Le 20/10/2006, vpco a supposé :
Bonsoir la communauté,
Soit un classeur avec un certain nombre de feuille dont certaine commence par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour chaque semaine je crée donc une feuille commencant pr le numéro de la semaine sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive pas à les adpater à ma situation.
Merci pour votre aide.
Cordialement.
Marc
Francois L
Bonsoir la communauté,
Soit un classeur avec un certain nombre de feuille dont certaine commence par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour chaque semaine je crée donc une feuille commencant pr le numéro de la semaine sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive pas à les adpater à ma situation.
Bonsoir,
Sous réserve que seules les feuilles à trier commencent par S et que la numérotation soit continue
Sub tri() Dim cpt As Long cpt = 0 For Each s In ActiveWorkbook.Sheets If Left(s.Name, 1) = "S" Then cpt = cpt + 1 Next For i = 1 To cpt - 1 Sheets("S" & i + 1).Move after:=Sheets("S" & i) Next End Sub
devrait le faire, non ?
A voir ce qui déclenche la macro selon ton choix
-- François L
Bonsoir la communauté,
Soit un classeur avec un certain nombre de feuille dont certaine commence
par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation
du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour
chaque semaine je crée donc une feuille commencant pr le numéro de la semaine
sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant
par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive
pas à les adpater à ma situation.
Bonsoir,
Sous réserve que seules les feuilles à trier commencent par S et que la
numérotation soit continue
Sub tri()
Dim cpt As Long
cpt = 0
For Each s In ActiveWorkbook.Sheets
If Left(s.Name, 1) = "S" Then cpt = cpt + 1
Next
For i = 1 To cpt - 1
Sheets("S" & i + 1).Move after:=Sheets("S" & i)
Next
End Sub
Soit un classeur avec un certain nombre de feuille dont certaine commence par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour chaque semaine je crée donc une feuille commencant pr le numéro de la semaine sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive pas à les adpater à ma situation.
Bonsoir,
Sous réserve que seules les feuilles à trier commencent par S et que la numérotation soit continue
Sub tri() Dim cpt As Long cpt = 0 For Each s In ActiveWorkbook.Sheets If Left(s.Name, 1) = "S" Then cpt = cpt + 1 Next For i = 1 To cpt - 1 Sheets("S" & i + 1).Move after:=Sheets("S" & i) Next End Sub
devrait le faire, non ?
A voir ce qui déclenche la macro selon ton choix
-- François L
DarthMac
Francois L a exprimé avec précision :
Bonsoir la communauté,
Soit un classeur avec un certain nombre de feuille dont certaine commence par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour chaque semaine je crée donc une feuille commencant pr le numéro de la semaine sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive pas à les adpater à ma situation.
Bonsoir,
Sous réserve que seules les feuilles à trier commencent par S et que la numérotation soit continue
Sub tri() Dim cpt As Long cpt = 0 For Each s In ActiveWorkbook.Sheets If Left(s.Name, 1) = "S" Then cpt = cpt + 1 Next For i = 1 To cpt - 1 Sheets("S" & i + 1).Move after:=Sheets("S" & i) Next End Sub
devrait le faire, non ?
A voir ce qui déclenche la macro selon ton choix
Bon, j'ai été coiffé au poteau... ma macro est moins propre de toutes façons...
par contre, petit cadeau pour les remettre en vrac :
Sub detri() Dim cpt As Long cpt = 0 For Each s In ActiveWorkbook.Sheets If Left(s.Name, 1) = "S" Then cpt = cpt + 1 Next For i = 1 To cpt - 1 Sheets("S" & i + 1).Move after:=Sheets("S" & Evaluate("round(rand()*14,0)+1")) Next End Sub
ça permet de tester la macro de tri ;-)
mac
Francois L a exprimé avec précision :
Bonsoir la communauté,
Soit un classeur avec un certain nombre de feuille dont certaine commence
par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première
utilisation du dit classeur ces feuilles ne sont pas présente dans le
classeur. Pour chaque semaine je crée donc une feuille commencant pr le
numéro de la semaine sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles
commençant par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je
n'arrive pas à les adpater à ma situation.
Bonsoir,
Sous réserve que seules les feuilles à trier commencent par S et que la
numérotation soit continue
Sub tri()
Dim cpt As Long
cpt = 0
For Each s In ActiveWorkbook.Sheets
If Left(s.Name, 1) = "S" Then cpt = cpt + 1
Next
For i = 1 To cpt - 1
Sheets("S" & i + 1).Move after:=Sheets("S" & i)
Next
End Sub
devrait le faire, non ?
A voir ce qui déclenche la macro selon ton choix
Bon, j'ai été coiffé au poteau... ma macro est moins propre de toutes
façons...
par contre, petit cadeau pour les remettre en vrac :
Sub detri()
Dim cpt As Long
cpt = 0
For Each s In ActiveWorkbook.Sheets
If Left(s.Name, 1) = "S" Then cpt = cpt + 1
Next
For i = 1 To cpt - 1
Sheets("S" & i + 1).Move after:=Sheets("S" &
Evaluate("round(rand()*14,0)+1"))
Next
End Sub
Soit un classeur avec un certain nombre de feuille dont certaine commence par S1, S2, S3 etc... juqu'à S52. Sachant que lors de la première utilisation du dit classeur ces feuilles ne sont pas présente dans le classeur. Pour chaque semaine je crée donc une feuille commencant pr le numéro de la semaine sous la forme décrite ci-dessus.
Comment puis-je à la fermeture de mon classeur trier ces feuilles commençant par S et rien que celle là ?
J'ai bien trouvé quelques codes du côté de chez maître Fred mais je n'arrive pas à les adpater à ma situation.
Bonsoir,
Sous réserve que seules les feuilles à trier commencent par S et que la numérotation soit continue
Sub tri() Dim cpt As Long cpt = 0 For Each s In ActiveWorkbook.Sheets If Left(s.Name, 1) = "S" Then cpt = cpt + 1 Next For i = 1 To cpt - 1 Sheets("S" & i + 1).Move after:=Sheets("S" & i) Next End Sub
devrait le faire, non ?
A voir ce qui déclenche la macro selon ton choix
Bon, j'ai été coiffé au poteau... ma macro est moins propre de toutes façons...
par contre, petit cadeau pour les remettre en vrac :
Sub detri() Dim cpt As Long cpt = 0 For Each s In ActiveWorkbook.Sheets If Left(s.Name, 1) = "S" Then cpt = cpt + 1 Next For i = 1 To cpt - 1 Sheets("S" & i + 1).Move after:=Sheets("S" & Evaluate("round(rand()*14,0)+1")) Next End Sub
ça permet de tester la macro de tri ;-)
mac
Francois L
Bon, j'ai été coiffé au poteau... ma macro est moins propre de toutes façons...
Bonsoir,
J'avais en stock...
-- François L
Bon, j'ai été coiffé au poteau... ma macro est moins propre de toutes
façons...
Bon, j'ai été coiffé au poteau... ma macro est moins propre de toutes façons...
Bonsoir,
J'avais en stock...
ahhh, c'est gentil de me rassurer ;-)
mac
Vpco
Salut les amis,
Très vite car je pars en week-end et compte tenu que j'en ai pas souvent de libre, ma femme va pas tarder à m'étrangler si je traîne encore devant le pc.....lol ; -)))
merci à vous, je teste ça lundi ou mardi et je vous dis.
Cordialement.
Marc
Salut les amis,
Très vite car je pars en week-end et compte tenu que j'en ai pas souvent de
libre, ma femme va pas tarder à m'étrangler si je traîne encore devant le
pc.....lol ; -)))
merci à vous, je teste ça lundi ou mardi et je vous dis.
Très vite car je pars en week-end et compte tenu que j'en ai pas souvent de libre, ma femme va pas tarder à m'étrangler si je traîne encore devant le pc.....lol ; -)))
merci à vous, je teste ça lundi ou mardi et je vous dis.
Cordialement.
Marc
Vpco
Salut Francois,
Ca y est je viens de rentrer.
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient pas à la sélection".
Merci de ton aide ainsi que DarthMac ( au fait si veux tu peux toujours me glisser ton "usine à gaz" pour voir....) ;-)))
Cordialement.
Marc
Salut Francois,
Ca y est je viens de rentrer.
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la
deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient
pas à la sélection".
Merci de ton aide ainsi que DarthMac ( au fait si veux tu peux toujours me
glisser ton "usine à gaz" pour voir....) ;-)))
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient pas à la sélection".
Merci de ton aide ainsi que DarthMac ( au fait si veux tu peux toujours me glisser ton "usine à gaz" pour voir....) ;-)))
Cordialement.
Marc
DarthMac
Vpco avait prétendu :
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient pas à la sélection".
salut Vpco,
c'est curieux car le code de FL tourne très bien chez moi. Si tu veux, demain matin (pour moi à Paris, i.e. dans 7h d'ici) je te mettrai mon fichier test sur cjoint.com. Celui-ci contiendra la macro de FL, et mes différentes macros (usines à gaz) test. Tou marche à merveille ;-)
mac
Vpco avait prétendu :
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la
deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient
pas à la sélection".
salut Vpco,
c'est curieux car le code de FL tourne très bien chez moi. Si tu veux,
demain matin (pour moi à Paris, i.e. dans 7h d'ici) je te mettrai mon
fichier test sur cjoint.com. Celui-ci contiendra la macro de FL, et mes
différentes macros (usines à gaz) test. Tou marche à merveille ;-)
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient pas à la sélection".
salut Vpco,
c'est curieux car le code de FL tourne très bien chez moi. Si tu veux, demain matin (pour moi à Paris, i.e. dans 7h d'ici) je te mettrai mon fichier test sur cjoint.com. Celui-ci contiendra la macro de FL, et mes différentes macros (usines à gaz) test. Tou marche à merveille ;-)
mac
Francois L
Salut Francois,
Ca y est je viens de rentrer.
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient pas à la sélection".
Bonjour,
A priori, le plantage vient de ce que tu n'as pas de Feuille nommée S1. Je cherche une solution pour répondre à ce cas là.
-- François L
Salut Francois,
Ca y est je viens de rentrer.
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la
deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient
pas à la sélection".
Bonjour,
A priori, le plantage vient de ce que tu n'as pas de Feuille nommée S1.
Je cherche une solution pour répondre à ce cas là.
Je viens de tester ton code et ca plante sur la 7ème ligne du code dans la deuxième boucle qui si j'ai bien compris est supposer trier les feuilles.
J'ai un jolie erreur d'exécution '9' avec le message " l'indice n'appartient pas à la sélection".
Bonjour,
A priori, le plantage vient de ce que tu n'as pas de Feuille nommée S1. Je cherche une solution pour répondre à ce cas là.
-- François L
DarthMac
oops, finalement, journée chargée, je n'ai pas eu le temps... et là je n'ai pas le courage. Je regarderai ça demain soir ;-)
mac
DarthMac avait soumis l'idée :
c'est curieux car le code de FL tourne très bien chez moi. Si tu veux, demain matin (pour moi à Paris, i.e. dans 7h d'ici) je te mettrai mon fichier test sur cjoint.com. Celui-ci contiendra la macro de FL, et mes différentes macros (usines à gaz) test. Tou marche à merveille ;-)
mac
oops, finalement, journée chargée, je n'ai pas eu le temps... et là je
n'ai pas le courage. Je regarderai ça demain soir ;-)
mac
DarthMac avait soumis l'idée :
c'est curieux car le code de FL tourne très bien chez moi. Si tu veux, demain
matin (pour moi à Paris, i.e. dans 7h d'ici) je te mettrai mon fichier test
sur cjoint.com. Celui-ci contiendra la macro de FL, et mes différentes macros
(usines à gaz) test. Tou marche à merveille ;-)
oops, finalement, journée chargée, je n'ai pas eu le temps... et là je n'ai pas le courage. Je regarderai ça demain soir ;-)
mac
DarthMac avait soumis l'idée :
c'est curieux car le code de FL tourne très bien chez moi. Si tu veux, demain matin (pour moi à Paris, i.e. dans 7h d'ici) je te mettrai mon fichier test sur cjoint.com. Celui-ci contiendra la macro de FL, et mes différentes macros (usines à gaz) test. Tou marche à merveille ;-)
