titres de colonnes qui changent selon la date

M

marie

Guest
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
 
M

marie

Guest
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

XLDnaute Impliqué
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

XLDnaute Nouveau
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
 

Monique

Nous a quitté
Repose en paix
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

Nous a quitté
Repose en paix
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
 

Discussions similaires

Réponses
11
Affichages
601
Réponses
46
Affichages
1 K

Statistiques des forums

Discussions
312 816
Messages
2 092 327
Membres
105 366
dernier inscrit
beru19781978