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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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