[XL-2007] probleme de format date [Résolu]

[chris09300]

Bonsoir
J'ai le probleme suivant:
J'ai en colonne B des dates, et j'ai la macro suivante:

Code :

1
2
3
4
5
6
For i = 2 To 65000 'A adapter avec le nombre de ligne
If ActiveCell.Offset(0, 0) <> "" Then
ActiveCell.Offset(0, 4) = Format((ActiveCell.Offset(0, 0).Value), "mmmm")
ActiveCell.Offset(1, 0).Select
End If
Next i

J'ai bien un mois correspondant a cette date mais c'est le mois de juin
date en B2 04/12/2011 et en E2 juin
je pense qu'il prend le 12 comme jour et le 04 comme mois.
merci de votre info
cris

[kiki29]

Salut, voir http://didier-gonard.developpez.com/...-excel-et-vba/

[jfontaine]

Bonjour,

Essais comme cela

Code :

ActiveCell.Offset(0, 4) = Format((DateValue(ActiveCell.Offset(0, 0).Value)), "mmmm")

ou une autre méthode

Code :

ActiveCell.Offset(0, 4) = MonthName(Month(DateValue(ActiveCell.Value)))

[chris09300]

j'ai essaye les deux code cela ne fonctionne pas.
De plus je viens de faire plusieurs test en changeant les dates ilme met toujours en E2 juin
je m'y perds.

[jfontaine]

Evites d'utiliser Activecell dans une boucle

Si les dates sont en colonen B et le nom du mois doit se trouver en E alors :

Code :

1
2
3
4
5
For i = 2 To Range("B" & Rows.Count).End(xlup).row 'A adapter avec le nombre de ligne
  If Range("B" & i).value <> "" Then
    Range("E" & i).value =  MonthName(Month(DateValue(Range("B" & i).value)))
  End If
Next i