probleme de boucle

Bonjour
je travaille sur excel 2007.
J'ai un tableau sur 3 colonnes et x lignes variables,
dans la colonne B j'ai des dates, et je souhaiterais dans la colonne E recuperer cette date, que je formate en MMMM.
merci de vos infos
cris

Oups, en colonne E, ce sera :

Code:

---

1 2 3 4 5 6 7

Sub test1() Dim c As Range For Each c In Range([B2], Cells(Rows.Count, 2).End(xlUp)) c.Offset(, 3).Value = c.Value c.Offset(, 3).NumberFormat = "MMM" Next c End Sub

---

Bonjour,

Voici une premiere réponse:

Sub boucle()

Code:

---

1 2 3 4 5 6 7 8 9 10

Range("B2").Select 'Si il y a une ligne titre   For a = 1 To 50 'A adapter avec le nombre de ligne If ActiveCell.Offset(0, 0) <> "" Then ActiveCell.Offset(0, 3) = Format((ActiveCell.Offset(0, 0).Value), "mmmm") ActiveCell.Offset(1, 0).Select End If Next a   End Sub

---

Cordialement

merci beaucoup, cela fonctionne tres bien.
cris