Je voudrais creer plusieurs feuille de calcul mais je
voudrais voir apparaitre dans les onglets un format date
qui se suivrait pour 30 jours (01/10;02/10;...;31/10). Est
ce possible d'une maniere automatique (je mets la premiere
date et il me le met automatiquement sur les 30 autres
feuilles)?
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
ru-th
Salut
la / est interdit en nom de feuille- possibilité avec le - Sub test() rep = InputBox("tapez le numéro du mois") * 1 For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1 Step -1 Sheets.Add.Name = i & "-" & rep Next End Sub
a+ rural thierry
"Olivier" a écrit dans le message de news: 09ea01c39957$65f07dd0$
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je voudrais voir apparaitre dans les onglets un format date qui se suivrait pour 30 jours (01/10;02/10;...;31/10). Est ce possible d'une maniere automatique (je mets la premiere date et il me le met automatiquement sur les 30 autres feuilles)?
Merci d'avance
Salut
la / est interdit en nom de feuille- possibilité avec le -
Sub test()
rep = InputBox("tapez le numéro du mois") * 1
For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1 Step -1
Sheets.Add.Name = i & "-" & rep
Next
End Sub
a+
rural thierry
"Olivier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 09ea01c39957$65f07dd0$a301280a@phx.gbl...
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je
voudrais voir apparaitre dans les onglets un format date
qui se suivrait pour 30 jours (01/10;02/10;...;31/10). Est
ce possible d'une maniere automatique (je mets la premiere
date et il me le met automatiquement sur les 30 autres
feuilles)?
la / est interdit en nom de feuille- possibilité avec le - Sub test() rep = InputBox("tapez le numéro du mois") * 1 For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1 Step -1 Sheets.Add.Name = i & "-" & rep Next End Sub
a+ rural thierry
"Olivier" a écrit dans le message de news: 09ea01c39957$65f07dd0$
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je voudrais voir apparaitre dans les onglets un format date qui se suivrait pour 30 jours (01/10;02/10;...;31/10). Est ce possible d'une maniere automatique (je mets la premiere date et il me le met automatiquement sur les 30 autres feuilles)?
Merci d'avance
olivier
Salut
Merci mais ou je mets ton code?
-----Message d'origine----- Salut
la / est interdit en nom de feuille- possibilité avec le - Sub test() rep = InputBox("tapez le numéro du mois") * 1 For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1 Step -1
Sheets.Add.Name = i & "-" & rep Next End Sub
a+ rural thierry
"Olivier" a écrit dans le message de
news: 09ea01c39957$65f07dd0$
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je voudrais voir apparaitre dans les onglets un format date qui se suivrait pour 30 jours (01/10;02/10;...;31/10). Est
ce possible d'une maniere automatique (je mets la premiere
date et il me le met automatiquement sur les 30 autres feuilles)?
Merci d'avance
.
Salut
Merci mais ou je mets ton code?
-----Message d'origine-----
Salut
la / est interdit en nom de feuille- possibilité avec le -
Sub test()
rep = InputBox("tapez le numéro du mois") * 1
For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1
Step -1
Sheets.Add.Name = i & "-" & rep
Next
End Sub
a+
rural thierry
"Olivier" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 09ea01c39957$65f07dd0$a301280a@phx.gbl...
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je
voudrais voir apparaitre dans les onglets un format date
qui se suivrait pour 30 jours (01/10;02/10;...;31/10).
Est
ce possible d'une maniere automatique (je mets la
premiere
date et il me le met automatiquement sur les 30 autres
feuilles)?
la / est interdit en nom de feuille- possibilité avec le - Sub test() rep = InputBox("tapez le numéro du mois") * 1 For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1 Step -1
Sheets.Add.Name = i & "-" & rep Next End Sub
a+ rural thierry
"Olivier" a écrit dans le message de
news: 09ea01c39957$65f07dd0$
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je voudrais voir apparaitre dans les onglets un format date qui se suivrait pour 30 jours (01/10;02/10;...;31/10). Est
ce possible d'une maniere automatique (je mets la premiere
date et il me le met automatiquement sur les 30 autres feuilles)?
Merci d'avance
.
Philippe.R
Bonjour Olivier, le code est à mettre dans un module ordinaire et à lancer par menu / outils / macro -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"olivier" a écrit dans le message de news:096501c3995c$93468860$ Salut
Merci mais ou je mets ton code?
-----Message d'origine----- Salut
la / est interdit en nom de feuille- possibilité avec le - Sub test() rep = InputBox("tapez le numéro du mois") * 1 For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1 Step -1
Sheets.Add.Name = i & "-" & rep Next End Sub
a+ rural thierry
"Olivier" a écrit dans le message de
news: 09ea01c39957$65f07dd0$
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je voudrais voir apparaitre dans les onglets un format date qui se suivrait pour 30 jours (01/10;02/10;...;31/10). Est
ce possible d'une maniere automatique (je mets la premiere
date et il me le met automatiquement sur les 30 autres feuilles)?
Merci d'avance
.
Bonjour Olivier,
le code est à mettre dans un module ordinaire et à lancer par menu / outils / macro
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"olivier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:096501c3995c$93468860$a501280a@phx.gbl...
Salut
Merci mais ou je mets ton code?
-----Message d'origine-----
Salut
la / est interdit en nom de feuille- possibilité avec le -
Sub test()
rep = InputBox("tapez le numéro du mois") * 1
For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1
Step -1
Sheets.Add.Name = i & "-" & rep
Next
End Sub
a+
rural thierry
"Olivier" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 09ea01c39957$65f07dd0$a301280a@phx.gbl...
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je
voudrais voir apparaitre dans les onglets un format date
qui se suivrait pour 30 jours (01/10;02/10;...;31/10).
Est
ce possible d'une maniere automatique (je mets la
premiere
date et il me le met automatiquement sur les 30 autres
feuilles)?
Bonjour Olivier, le code est à mettre dans un module ordinaire et à lancer par menu / outils / macro -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"olivier" a écrit dans le message de news:096501c3995c$93468860$ Salut
Merci mais ou je mets ton code?
-----Message d'origine----- Salut
la / est interdit en nom de feuille- possibilité avec le - Sub test() rep = InputBox("tapez le numéro du mois") * 1 For i = Day(DateSerial(Year(Date), rep + 1, 0)) To 1 Step -1
Sheets.Add.Name = i & "-" & rep Next End Sub
a+ rural thierry
"Olivier" a écrit dans le message de
news: 09ea01c39957$65f07dd0$
Bonjour,
Je voudrais creer plusieurs feuille de calcul mais je voudrais voir apparaitre dans les onglets un format date qui se suivrait pour 30 jours (01/10;02/10;...;31/10). Est
ce possible d'une maniere automatique (je mets la premiere
date et il me le met automatiquement sur les 30 autres feuilles)?
