feuilles au nom des mois

[STéphane]

Bonjour


voici deux petits codes qui pourraient vous servir ou vous ouvrir d'autres possibilités

Créer des feuilles appelées Janvier, février, mars .....décembre
De: Laurent longre <laurent.longre@free.fr>, Objet: Re: Créer des feuilles, Date : samedi 18 mars 2000 13:59
dim I As Integer
application.screenupdating = false
worksheets.add sheets(1), count:=12
for I = 1 to 12
sheets(I).name = application.Proper(format(I * 30, "mmmm"))
next I

Autre méthode, en faisant appel à la liste prédéfinie qui contient les mois
for i = 1 to 12
activeworkbook.sheets.add
activesheet.name = application.GetCustomListContents(4)(i)
next i



bye
stephane

ps : l'astuce était sur cette page : <http://xlbysteph.free.fr/aideinformatique/actionfeuille.htm>

 

[Celeda]

Stephane,

Et cela fonctionne tres bien !!
Pour ma part je trouve cela extra de nous donner des procédures
''cles en mains'' à utilisser illico. Je teste et en même temps cela répond à mes besoins et à mes questionnements ! Les 2 en 1.
Car quelque fois on ne va pas chercher très loin. Et hop une ou deux procédures apparaît avec toi.
Merci beaucoup.