probleme de format date

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

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

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)))

---

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.

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

---