Discussion :

[bboy-eazy]

bonjour,

J'ai un problème lorsque je veux manipuler des dates:

Je pars d'une expression au format dd/mm/aaaa
je veux arriver au format mmm aaaa

J'ai donc voulu passer par une formule:
=MOIS(B2) & " " & ANNEE (B2)
cela renvoi toujours janvier...
or si je fais =MOIS(B2), cela renvoie bien le bon numéro de mois en nombre et quand je fais TEXTE(MOIS(B2);"mmmm") et bien la ca renvoie janvier et non plus le bon mois....

j'ai donc voulu passer par une macro pour contourner le problème mais la toutes les cellules se change bien sauf que certain format se positionnent à droite de la cellule et d'autre a gauche donc c'est pas la meme format et du coup lorsque je veux exploiter ces données via un tableau croisé dynamique, il prend pas en compte tous les mois ensemble et en sépare quelque un...

je mets mon classeur en PJ pour que vous visualisiez le pb...

merci d'avance de votre aide précieuse

EDIT: voici mon code pour focer du string

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
Dim DATA As String
 
 
For i = 2 To 187
With ThisWorkbook.Worksheets("Feuil3")
.Cells(i, 3).Value = CStr(Format(Right(.Cells(i, 2), 7), "mmm yyyy"))
End With
Next i
 
For i = 2 To 187
With ThisWorkbook.Worksheets("Feuil3")
DATA = CStr(.Cells(i, 3).Value)
.Cells(i, 3).Value = CStr(Format(DATA, "mmm yyyy"))
End With
Next i
 
End Sub