titres de colonnes qui changent selon la date

[marie]

Bonjour,
Est-ce possible de faire varier des noms de colonnes en fonction de la date ? Par exemple la colonne 1 comporte des donnees ui correspondent au mois en cours. En A1 je veux avoir 'juillet 2005' pour l'instant mais 'aout 2005' le mois prochain.
Merci bcp,
Marie

 

[PascalXLD]

Bonjour

en A1
=AUJOURDHUI()

au format:
mmmm aaaa

Bon courage

 

[marie]

Merci!
En fait je me suis assez mal expliquee desolee...
J ai 4 colonnes, dont les titres sont 'trimestre1', 'trimestre2', 'trimestre3' et 'trimestre4', avec l annee en plus. Je dois toujours avoir 4 colonnes mais selon le mois en cours, ce ne sont pas les memes titres : en ce moment on en est au 3e trimestre 2005, et mes 4 colonnes doivent etre 'trimestre3 2004', 'trimestre 4 2004', 'trimestre1 2005' et 'trimestre2 2005'. Qd on en sera au 4e trimestre 2005, tout se decale : il faudra 'trim4 2004' et les 3 premieres trimestres de 2005.
Est-ce possible ?
Merci...

 

[2passage]

Bonjour

j'ai une proposition qui doit marcher (en tout cas aujourd'hui ca marche).

EDIT : vloià.. j'ai changé mon fusil d'épaule là ca ne devrait plus merd***

A1 :
='Trimestre ' & CHOISIR(MOIS(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-9;JOUR(AUJOURDHUI())));1;1;1;2;2;2;3;3;3;4;4;4) & ' ' & ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-9;JOUR(AUJOURDHUI())))
B1 :
='Trimestre ' & CHOISIR(MOIS(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-6;JOUR(AUJOURDHUI())));1;1;1;2;2;2;3;3;3;4;4;4) & ' ' & ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-6;JOUR(AUJOURDHUI())))
C1 :
='Trimestre ' & CHOISIR(MOIS(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-3;JOUR(AUJOURDHUI())));1;1;1;2;2;2;3;3;3;4;4;4) & ' ' & ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-3;JOUR(AUJOURDHUI())))
D1 :
='Trimestre ' & CHOISIR(MOIS(AUJOURDHUI());1;1;1;2;2;2;3;3;3;4;4;4) & ' ' & ANNEE(AUJOURDHUI())

Message édité par: 2passage, à: 27/07/2005 14:21

 

[Tenormadness]

Salut

Oui ça peut se faire par formule comme 2passage ou en macro

Function DefinirNomColonne() As String
Dim lintCol As Integer, lintMois As Integer, lintTrimestre As Integer, lintIncAnnée As Integer

lintCol = ActiveCell.Column
lintMois = Month(Now()) + (lintCol - 1) * 3
lintTrimestre = Int(lintMois / 3)

If lintTrimestre >= 5 Then
lintTrimestre = lintTrimestre Mod 4
lintIncAnnée = 1
End If

Select Case lintTrimestre
Case 1
DefinirNomColonne = '1er Trismestre ' & Year(Now) + lintIncAnnée
Case 2, 3, 4
DefinirNomColonne = CStr(lintTrimestre) & 'ème Trismestre ' & Year(Now) + lintIncAnnée
End Select

End Function

et dans tes colonnes tu ecrit =DefinirNomColonne()

tu choizz

 

[marie]

merci bcp !!
c'est complique pour moi mais je vais qd meme essayer !
en tout cas merci ca doit prendre du temps de faire ca...
marie

 

[Monique]

Bonjour,

Comme ça, aussi :

Le trimestre et l'année en cours :
='Trimestre '&PLAFOND(MOIS(AUJOURDHUI())/3;1)&' - '&ANNEE(AUJOURDHUI())

3 mois avant :
='Trimestre '&PLAFOND(MOD(MOIS(AUJOURDHUI())-3;12)/3;1)&' - '&ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-3;1))

6 mois avant :
='Trimestre '&PLAFOND(MOD(MOIS(AUJOURDHUI())-6;12)/3;1)&' - '&ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-6;1))

9 mois avant :
='Trimestre '&PLAFOND(MOD(MOIS(AUJOURDHUI())-9;12)/3;1)&' - '&ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-9;1))

 

[Monique]

Re,

Avec le format nombre personnalisé :
'Trimestre '0' - '0000

=PLAFOND(MOIS(AUJOURDHUI())/3;1)*10000+ANNEE(AUJOURDHUI())

=PLAFOND(MOD(MOIS(AUJOURDHUI())-3;12)/3;1)*10000+ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-3;1))

=PLAFOND(MOD(MOIS(AUJOURDHUI())-6;12)/3;1)*10000+ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-6;1))

=PLAFOND(MOD(MOIS(AUJOURDHUI())-9;12)/3;1)*10000+ANNEE(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-9;1))

Pour le trimestre en cours, par exemple, le résultat est de 32005
mais le format te donne Trimestre 3 - 2005

 

[marie]

merci beaucoup !!
c est tres sympa...
a plus !