comparer deux cellules dans une macro

[enda]

salut .

j'ai beusion de masquer ou d'afficher des colonne en fonction de la valeur de leur entete j'ai utulisé cette macro

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15/06/2004 par ee
'
If Range("b2") = 1 Then
For Each col In ActiveSheet.UsedRange.Columns

If col.Cells(5, 1).Value = "Janvier" Then

'si la cellule de la ligne 5 est egale à la cellule A1, la colonne est afficher
col.EntireColumn.Hidden = False
End If
Next
End If
'
End Sub


jai un pb au niveu de cette ligne
If col.Cells(5, 1).Value = "Janvier" Then
au lieu d'ecrir "janvier" je veux comparer à une cellele qui contient le mois

merci

 

[@nono]

Salut enda,

ben au lieu de mettre "janvier" dans ta cellule, tu mets une date :
01/01/04 et tu changes l'affichage de ta cellule pour que ça affiche juste "Janvier" :
=> format de cellule / nombre / affichage personalisé ==>> mmmm

ensuite, rien de plus simple de comparer la valeur Month(cells(5,1)) à la valeur numérique de ton mois, ou à une cellule comme tu l'as fait (il faut alors que la cellule soit une date, ou la valeur numérique du mois).

++