Conversion formule date en date
Bonjour à tous !
J'ai un petit problème avec un formule de date.
Je m'explique! J'ai fait code permettant d'insérer dans la feuille une formule de date.
Code:
1
2
3
4
5
6
7
8
| ' Ecrit en-têtes mois
Range("B2").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(TODAY()),COLUMN()-1,1)"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:M2"), Type:=xlFillDefault
Range("B2:M2").Select
Selection.NumberFormat = "[$-40C]mmm-yy;@" |
Il y a donc création d'en-têtes ( mois de l'année courant).
Aprés je veux effectuer un test avec une date présente dans le classeur.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub trouv()
Dim daterange As Range
Dim d As Variant
Dim m As Date
m = CDate(Range("A6"))
' m = 01/05/2013 par exemple c'est toujours le premier du mois
Set daterange = Range("B2:M2")
For Each d In daterange
If d=m Then
d.Offset(2).Formula = toto
End If
Next d
End Sub |
Ainsi je souhaite trouver la concordance entre la plage d'en têtes (B2:M2) et la date m (premier du mois).
Quelqu'un peut m'aider s'il vous plait ?
Cdt
Tiviiia
