Discussion :

[boss_gama]

Bonjour à tous,
Je dispose d'un tableau de données, dont l'entête correspond aux mois de l'année, formatés comme suit: janv- fév- mars- avril- mai- juin- juil- aout- sept- oct- nov- déc-

Je cherche par macro à compléter ces mois avec l'année en cours, pour obtenir janv-08 fév-08 mars-08 avril-08 mai-08 juin-08 juil-08 aout-08 sept-08 oct-08 nov-08 déc-08

Jusque là rien de compliqué. Sauf que les mois de septembre, octobre et novembre sont convertis automatiquement au format date jj/mmm, et du coup j'obtiens 08-sept 08-oct et 08-nov.

Je vois pas du tout pourquoi cela me fait ca, vu que le format de cellule est bien général, que je ne le modifie pas, et que je me contente de concaténer deux chaines de caractères....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim sYear as string
sYear = Right(Year(Date), 2)
For Each rCell In .Range("E3:P3")
      If Right(rCell.Value, 1) = "-" Then
         rCell.Value = rCell.Value & sYear
      End If
Next rCell

Quelqu'un à une idée?

PS si je mets le mois complet ca marche, mais le texte devient trop long

[ilcocodrillo]

et simplement mettre ça dans ta cellule sans faire de VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

= "Janv - " & DROITE(ANNEE(AUJOURDHUI());2)

koitenpens ?

[ilcocodrillo]

autre chose... concatener les strings c'est de la polygammie...



vivement les vacances....

[Godzestla]

autre chose... concatener les strings c'est de la polygammie...:

lahola:

vivement les vacances....

Fichtre.... fallait la sortir celle-là. C'est de toi ?

[J.Michel]

autre chose... concatener les strings c'est de la polygammie...

Non, c'est de la couture

[boss_gama]

et simplement mettre ça dans ta cellule sans faire de VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

= "Janv - " & DROITE(ANNEE(AUJOURDHUI());2)

koitenpens ?

Ca marche, mais je ne peux pas l'utiliser

Je construit mon tableau par macro, donc je ne peux pas le mettre dans la formule directement, et quelque soit le moment ( ou l'endroit) où je concatène mes strings , ca ne marche pas

Ca ne le fait que chez moi?
Peut-être un bug d'excel 2003???

[Godzestla]

Idée différente :

Et si tu formattais tes cellules en texte pur, et pas en date ou général, alors tu y mets ce quet tu veux et ton formattage ne change par pour Septembre à novembre.

[boss_gama]

Idée différente :

Et si tu formattais tes cellules en texte pur, et pas en date ou général, alors tu y mets ce quet tu veux et ton formattage ne change par pour Septembre à novembre.

Idée intéressante, mais dans ce cas excel affiche T2008xt2008, et 08/09/2008 dans la formule (la même valeur qu'avant).

[Godzestla]

Idée intéressante, mais dans ce cas excel affiche T2008xt2008, et 08/09/2008 dans la formule (la même valeur qu'avant).

je ne comprends pas

[ilcocodrillo]

Si tu construit ton tableau par vba, tu dois pouvoir insérer cette formule là au moment ou tu rempli cette plage là mais à mon avis il y a plus simple...

genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
For I = 1 To 12
    Cells(1, I).Select
    ActiveCell.Value = CDate("01/" & I & "/2008")
    Selection.NumberFormat = "mmm-yy"
Next I