Choisir une feuille selon le mois en cours

cs_apz Messages postés 281 Date d'inscription dimanche 7 avril 2002 Statut Membre Dernière intervention 11 avril 2013 - 12 mars 2006 à 23:47
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 23 mars 2006 à 05:42



salut,


j'ai un classeur qui contient 12 feuilles l'equivalent de 12 mois et chacune est nomée selon un mois.


j'aimerais avoir un code pour choisir une feuille selon le mois en cours.


Sheets("Mois").Select


mais je ne sais pas comment calculer le "Mois".


Alors quel sera le code adequat ?


Merci.


------------------------------------------------------------------
Debutant PHP/SQL, Delphi
Club de correspondance :
http://membres.lycos.fr/elatlasclub
htpp://members.lycos.co.uk/elatlasclub</S< body>

3 réponses

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 32
13 mars 2006 à 05:47
Bonjour


si tes feuilles sont classées par ordre chronologique (de Janvier à Décembre) et que tu souhaites atteindre la feuille correspondant à la date d'aujourd'hui , tu peux essayer


Sheets(Month(Date)).Select



bonne journée
michel
0
cs_apz Messages postés 281 Date d'inscription dimanche 7 avril 2002 Statut Membre Dernière intervention 11 avril 2013
23 mars 2006 à 00:59
Sheets(Month(Date)).Select

ne donne que le numéro du mois et non pas le nom ...


------------------------------------------------------------------
Debutant Excel/VBA, PHP/SQL, Delphi
Club de correspondance :
http://membres.lycos.fr/elatlasclub
htpp://members.lycos.co.uk/elatlasclub</S< body>
0
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 32
23 mars 2006 à 05:42
bonjour

oui mais tu n'est pas obligé d'avoir d'avoir le nom de la feuille pour l'ouvrir


Sheets(1).Select
permet d'ouvrir le 1ere feuille du classeur

donc si tu ranges tes feuilles dans l'ordre ( 1ere feuille=Janvier , 2eme feuille =Fevrier ...) tu pourras utiliser cette methode

dans l'exemple proposée
Month(Date)
renvoie le numero du mois pour la date du jour

donc si les feuilles sont classées :
Sheets(Month(Date)).Select
ouvre la feuille pour le mois en cours

s'il s'agit d'une date specifique tu peux utiliser
Sheets(Month(CDate("22/03/2006"))).Select

bonne journée
michel
0
Rejoignez-nous