[XLS] Jour / Mois / Annee incrementiel dans differents feuillets

Marsh Posté le 30-12-2003 à 15:28:56

J'ai une arbo physique organisée de la sorte :

Année
- Mois
- Fichier excel comportant 31 feuillets

Les feuillets étant numérotés de 1 à 31, correspondant à chaque jour d'un mois. Chaque feuillet comporte un même tableau aux formules diverses.

Mon problème est de facilement mettre à jour la date dans chacun des feuillets sous la forme JOUR JJ MOIS ANNEE ("JEUDI 01 JANVIER 2004" ) sans avoir à me tapper les modifs 31*12 fois manuellement, ce qui est un brin fatiguant [:petrus75] . Je duplique à partir du premier feuillet, une formule parvenant à réutiliser par exemple le nom du feuillet pour faire la correspondance en jour serait top, mais je crois que je me fais des illusions sur les capacités d'Excel

Des suggestions pour mener ça à bien ?

---------------
Le topic du QLRR et FIRE - Knowledge is power. Power corrupts. Study hard, become evil.

Reply

Marsh Posté le 30-12-2003 à 15:28:56

Reply

Marsh Posté le 30-12-2003 à 16:00:48

Tu peux tenter avec un macro du type :

Code :

Private Function MonthToInt(sMois As String) As Integer
Dim iRetVal As Integer
iRetVal = 0
Select Case LCase(sMois)
Case "janvier"
iRetVal = 1
Case "février"
iRetVal = 2
Case "mars"
iRetVal = 3
Case "avril"
iRetVal = 4
Case "mai"
iRetVal = 5
Case "juin"
iRetVal = 6
Case "juillet"
iRetVal = 7
Case "aout"
iRetVal = 8
Case "septembre"
iRetVal = 9
Case "octobre"
iRetVal = 10
Case "novembre"
iRetVal = 11
Case "décembre"
iRetVal = 12
End Select
MonthToInt = iRetVal
End Function
Sub Macro1()
Dim sTree() As String
Dim sAnnee As String
Dim sMois As String
sTree = Split(ThisWorkbook.FullName, "\" )
sAnnee = sTree(UBound(sTree) - 2)
sMois = sTree(UBound(sTree) - 1)
sMois = MonthToInt(sMois)
For Each oWS In ThisWorkbook.Worksheets
oWS.Range("A1" ).Value = Format(ows.Name & "/" & sMois & "/" & sAnnee, "dddd Dd mmmm yyyy" )
Next
End Sub

Remarques :
- l'appel à la fonction de transformation du mois en entier n'est nécessaire que si le répertoire du mois contient celui ci en lettre, il doit être possible de faire mieux mais j'ai récuppéré ça d'une macro faisant ce genre de choses...
- la macro écrit la date dans la case A1 de chaque feuillet

Message édité par Guru le 30-12-2003 à 16:01:46

Reply

Marsh Posté le 30-12-2003 à 16:12:03

Houla :|

Me reste à ingurgiter tout ça, jamais fait de Macro sous Excel, par contre le code ressemble furieusement à du VB (parce que ça doit être du VBScript sans doute [:ddr555] )

---------------
Le topic du QLRR et FIRE - Knowledge is power. Power corrupts. Study hard, become evil.

Reply

Marsh Posté le 30-12-2003 à 16:19:10

... Et je vois d'ailleurs pas du tout quoi foutre avec dans le "Microsoft Visual Basic", j'ai rajouté ça en module de classe, mais je sais pas comment appeler ma foutue fonction dans ce merdier...

---------------
Le topic du QLRR et FIRE - Knowledge is power. Power corrupts. Study hard, become evil.

Reply

Marsh Posté le 30-12-2003 à 16:28:16

Si tu as mis la macro dans un module dans l'éditeur VB d'Excel tu devrais trouver "Macro1" (ou tout autre nom que tu auras modifié dans le code) dans le menu outils / macro / exécuter.

Reply

Marsh Posté le 30-12-2003 à 18:30:11

Ok, ça s'execute. Ca ne donne pas encore du tout ce que je veux, mais c'est du VB, je devrais reussir à adapter ça comme il faut en récupérant le nom des contrôles et compagnie dans l'editeur.

Merci bien :jap:

---------------
Le topic du QLRR et FIRE - Knowledge is power. Power corrupts. Study hard, become evil.

Reply

[XLS] Jour / Mois / Annee incrementiel dans differents feuillets

Sujets relatifs:

Leave a Replay