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