Onglets et VBA

Jacky

09/06/2005 à 18:53

Bonsoir

J'aimerai avoir la même mais pour les 6 premiers mois
Ben......

For I = 0 To 181

Non??
JJ

"Michel" a écrit dans le message de
news:%

Bonsoir
Je viens de trouver cette proc sur le forum
J'aimerai avoir la même mais pour les 6 premiers mois de l'année
du 1er janvier au 30 juin
Merci beaucoup
Michel

For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next

Michel

09/06/2005 à 19:24

Bonsoir et merci
en fait 181 me donne jusqu'au 1er juillet
or j'aimerai bien avoir un classeur jusqu'au 30 juin
et un autre du 1 er juillet au 31 décembre
mais il peut y avoir des années bissextiles
Michel

"Jacky" a écrit dans le message de news:

Bonsoir
J'aimerai avoir la même mais pour les 6 premiers mois
Ben......

For I = 0 To 181

Non??
JJ

"Michel" a écrit dans le message de
news:%
Bonsoir
Je viens de trouver cette proc sur le forum
J'aimerai avoir la même mais pour les 6 premiers mois de l'année
du 1er janvier au 30 juin
Merci beaucoup
Michel

For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next

Red Rick

09/06/2005 à 19:45

Essaye la procédure suivante quiu te permet de ne pas te poser de question
sur les année Bisextile

Dim ladate

ladate = #1/1/2005#

Do Until ladate = #7/1/2005#
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(ladate, "d-mmm")
ladate = ladate + 1
Loop

"Michel" a écrit dans le message de news:

Bonsoir et merci
en fait 181 me donne jusqu'au 1er juillet
or j'aimerai bien avoir un classeur jusqu'au 30 juin
et un autre du 1 er juillet au 31 décembre
mais il peut y avoir des années bissextiles
Michel

"Jacky" a écrit dans le message de news:

Bonsoir
J'aimerai avoir la même mais pour les 6 premiers mois
Ben......

For I = 0 To 181

Non??
JJ

"Michel" a écrit dans le message de
news:%
Bonsoir
Je viens de trouver cette proc sur le forum
J'aimerai avoir la même mais pour les 6 premiers mois de l'année
du 1er janvier au 30 juin
Merci beaucoup
Michel

For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next

Michel

09/06/2005 à 21:04

Merci beaucoup RedRick
Michel

"Red Rick" a écrit dans le message de news:

Essaye la procédure suivante quiu te permet de ne pas te poser de question
sur les année Bisextile

Dim ladate

ladate = #1/1/2005#

Do Until ladate = #7/1/2005#
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(ladate, "d-mmm")
ladate = ladate + 1
Loop

"Michel" a écrit dans le message de news:

Bonsoir et merci
en fait 181 me donne jusqu'au 1er juillet
or j'aimerai bien avoir un classeur jusqu'au 30 juin
et un autre du 1 er juillet au 31 décembre
mais il peut y avoir des années bissextiles
Michel

"Jacky" a écrit dans le message de news:

Bonsoir
J'aimerai avoir la même mais pour les 6 premiers mois
Ben......

For I = 0 To 181

Non??
JJ

"Michel" a écrit dans le message de
news:%
Bonsoir
Je viens de trouver cette proc sur le forum
J'aimerai avoir la même mais pour les 6 premiers mois de l'année
du 1er janvier au 30 juin
Merci beaucoup
Michel

For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next

JM

09/06/2005 à 22:50

Bonjour, excusez-moi de m'immiscer dans votre échange. En passant par ici,
je m'aperçcois qu'il y a peut-être quelquechose pour moi...

Si je veux les 12 mois de l'année en onglets pourrais-je utiliser ce qui
suit:

For I = 0 To 11
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1+I, 1) , "yyyy-mmm")
Next

Merci
Jean-Marc

"Jacky" a écrit dans le message de news:

Bonsoir
J'aimerai avoir la même mais pour les 6 premiers mois
Ben......

For I = 0 To 181

Non??
JJ

"Michel" a écrit dans le message de
news:%
Bonsoir
Je viens de trouver cette proc sur le forum
J'aimerai avoir la même mais pour les 6 premiers mois de l'année
du 1er janvier au 30 juin
Merci beaucoup
Michel

For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next

Red Rick

09/06/2005 à 23:23

A titre d'info dans le système que ce soit
for i = 1 to...
ou
do until ladate = ...

vous pouvez utiliser
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
à la place de
Sheets.Add after:=Sheets(Sheets.Count)

si votre feuille est mise en forme cela vous crée autant de feuille avec la
même
mise en forme et vous évite de recommencer celle ci

A toutes fins utiles

Bonne prog à tous...

Red Rick

"JM" a écrit dans le message de news:
0Y1qe.13196$

Bonjour, excusez-moi de m'immiscer dans votre échange. En passant par
ici, je m'aperçcois qu'il y a peut-être quelquechose pour moi...

Si je veux les 12 mois de l'année en onglets pourrais-je utiliser ce qui
suit:

For I = 0 To 11
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1+I, 1) , "yyyy-mmm")
Next

Merci
Jean-Marc

"Jacky" a écrit dans le message de news:

Bonsoir
J'aimerai avoir la même mais pour les 6 premiers mois
Ben......

For I = 0 To 181

Non??
JJ

"Michel" a écrit dans le message de
news:%
Bonsoir
Je viens de trouver cette proc sur le forum
J'aimerai avoir la même mais pour les 6 premiers mois de l'année
du 1er janvier au 30 juin
Merci beaucoup
Michel

For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next

Oliv'

10/06/2005 à 09:34

Michel que je salut a écrit

Bonsoir et merci
en fait 181 me donne jusqu'au 1er juillet
or j'aimerai bien avoir un classeur jusqu'au 30 juin
et un autre du 1 er juillet au 31 décembre
mais il peut y avoir des années bissextiles
Michel

Soit tu n'exprimes pas clairement ton problème, Soit tu as oublié de faire
fonctionner quelque chose entre tes oreilles ;-)))
Si 181 te donnes jusqu'au 1/7 alors 180 te donnera jusqu'au 30/06
mais si tu es pointilleux tu peux toujours calculer le nombre de jours entre
le 1/1 de l'année dont tu veux un classeur et le dernier jour voulu. (+1)

va voir http://www.excelabo.net/xl/dates.php#tempsécoulé

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

"Jacky" a écrit dans le message de news:

Bonsoir
J'aimerai avoir la même mais pour les 6 premiers mois
Ben......

For I = 0 To 181

Non??
JJ

"Michel" a écrit dans le message de
news:%
Bonsoir
Je viens de trouver cette proc sur le forum
J'aimerai avoir la même mais pour les 6 premiers mois de l'année
du 1er janvier au 30 juin
Merci beaucoup
Michel

For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next

Onglets et VBA

7 réponses

Veuillez sélectionner un problème