creation feuille

[wave68runner]

Bonjour,

j'ai realisé un petit prog de gestion de sortie VTT sous excel
j'ai une userbox, qui me demande la date, le lieu la durée, etc ....

j'aimerais que ma userbox creer une feuille par année, feuille 2008, 2009, puis en 2010 etc etc

et j'aimerais que les feuilles soit crées/classées et renommées dans un certain ordre,
Accueil/2009/2008 puis l'année prochaine
Accueil/2010/2009/2008
etc etc

Donc comment a partir de la date insérée dans ma Userbox je peux creer ce que je souhaite.

merci a vous

 

[nolich]

Re : creation feuille

Bonjour wave68runner, bonjour à toutes et à tous,

Voici une petite idée que tu pourras peut-être adapter au code de ta TextBox :

  Dim MaDate As Date
  
  [COLOR="Green"]' Affecter une valeur à MaDate
  
  ' On vérifie d'abord que la feuille de l'année de MaDate
  ' n'existe pas déjà. Si c'est le cas, on crée une nouvelle
  ' feuille[/COLOR]
  If Sheets(2).Name <> Year(MaDate) Then
    Sheets.Add after:=Sheets("Accueil")
  [COLOR="green"]' ou encore, pour conserver le format des autres feuilles annuelles[/COLOR]
    Sheets(2).Copy After:=Sheets("Accueil")
    [COLOR="green"]' Placer ici, la procédure d'effacement des données de la
    ' nouvelle feuille qui est donc au même format que celles
    ' des années précédentes, et son remplissage[/COLOR]
  Else
    [COLOR="Green"]' Utiliser ton code habituel[/COLOR]
  End If

Je pars du principe que ta feuille "Accueil" est la première du classeur, sinon tu modifies en fonction de la place que tu souhaites donner à ta nouvelle feuille.

Cordialement,
Lio