Problème aberrant de concaténation de string

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:

---

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

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

Code:

---

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

---

koitenpens ?

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

:lahola:

vivement les vacances....

:alerte::koi:

Citation:

---

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

lahola:

vivement les vacances....

---

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

Citation:

---

Envoyé par ilcocodrillo

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

---

Non, c'est de la couture :mouarf:

Citation:

---

Envoyé par ilcocodrillo

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

Code:

---

= "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???

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.

:?

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:

---

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

---

Citation:

---

Envoyé par 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.

:?

---

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

Citation:

---

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 :?

Citation:

---

Envoyé par Godzestla

je ne comprends pas :?

---

Moi non plus!!!

Par contre la solution de ilcocodrillo marche.

Reste à voir pourquoi ma solution originelle ne marchait pas......


En tout cas Merci pour l'aide