Discussion :

[doudou8mc]

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 :

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

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

[zigo34]

salut,
plutot que :

Code :

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

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

utilise le format date :

Code :

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

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

j'ai pas testé...
zigo

[Gorfael]

Salut doudou8mc et le forum
Une autre proposition

Code :

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

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
A+