problème de recuperation de date

bonjour ,

j'ai une colonne (B, dont le format des cellules est de type date) contenant des dates (au format ex 12/01/2009).
je souhaite ecrire une un code permettant de parcourir cette colonne ,et à chaque fois qu'une date correspond au mois de janvier, afficher "janvier" dans la colonne "A" .voici mon code qui ne me renvoi rien:

Code:

---

1 2 3 4 5 6

Sub ha() Sheets("Feuil3").Select For i = 2 To 40 If Cells(i, 2) = "*/01/2009" Then Cells(i, 1) = "janvier" Next i End Sub

---

merci d'avance

salut,
plutot que :

Code:

---

If Cells(i, 2) = "*/01/2009" Then Cells(i, 1) = "janvier"

---

utilise le format date :

Code:

---

If month(cdate(Cells(i, 2).value))= 1 Then Cells(i, 1) = "janvier"

---

j'ai pas testé...
zigo

Salut doudou8mc et le forum
Une autre proposition

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ha() Dim i As Integer 'Sheets("Feuil3").Select For i = 2 To 40 If Month(Cells(i, "B")) = 1 Then Cells(i, "A") = Cells(i, "B") Cells(i, "A").NumberFormatLocal = "mmmm" End If Next i End Sub

---

sans test, la même chose quelque soit le mois est réalisable, mais c'est pkus simple en passant par les formules et les formats de cellule 8-)
A+