Re: [users-fr] Activé une feuille lors de l'ouverture d'un classeur

Thu, 02 Aug 2007 03:15:49 -0700 

Bonjour,

C'est Génial et merci encore pour ton aide.
Bonne journée.



From: Francois Gatto <[EMAIL PROTECTED]>
Reply-To: [email protected]
To: [email protected]
Subject: Re: [users-fr] Activé une feuille lors de l'ouverture d'un classeur 
Date: Wed, 01 Aug 2007 23:10:44 +0200

Bonsoir,

somphone chanthasensack a écrit :

Bonjour
J’ai un classeur de 12 feuilles, chaque feuille correspond à un mois de l’année et reconnue par le numéro du mois renseigné dans chaque feuille dans une cellule. Y a t il un astuce lors de l’ouverture de ce classeur d’activer uniquement la feuille correspondant au mois en cours. 
Merci d’avance pour votre aide.



Je pense que seule une macro serait à même de répondre au besoin.

Voici une idée déclinée en 2 variantes.
La première ne tient compte que du nom des feuilles (ie : "Mois 01", "Mois 02", etc)
La seconde parcourt l'ensemble des feuilles du classeur actif à la recherche du nom de la feuille correspondant au mois en cours. 

== macros ==

sub SheetByMonth1()

 dim aCurDate

 aCurDate = Month(Now)

 if aCurDate < 10 then aCurDate = "0" & aCurDate
thisComponent.currentController.activeSheet = thisComponent.Sheets.getByName( "Mois " & aCurDate ) 

end sub

sub SheetByMonth2()

 dim aCurDate
 dim oDoc     as object
 dim oCurCont as object
 dim oEnum    as object
 dim oSheet   as object
 dim bFind    as boolean

 aCurDate = Month(Now)
 bFind    = false
 oDoc     = thisComponent
 oEnum    = oDoc.getSheets.createEnumeration
 oCurCont = oDoc.currentController

 do while oEnum.hasMoreElements AND Not bFind
  aSheet = oEnum.nextElement
  if aCurDate = oSheet.getCellRangeByName("G1").value then bFind = true
 loop

 if bFind then
  if aCurDate < 10 then aCurDate = "0" & aCurDate
  oCurCont.activeSheet = oDoc.Sheets.getByName( "Mois " & aCurDate )
 else
  msgbox( "Pas de feuille pour le mois courant", 48, "Hum !!!" )
 end if

end sub


NB :
- ici la cellule G1 (sur chaque feuille) contient le numéro de mois
- il faudra veiller à ajouter des contrôles pour éviter les crashs
- d'autres solutions sont envisageables

Francois Gatto

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



_________________________________________________________________
Gagnez des écrans plats avec Live.com http://www.image-addict.fr/

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à