Discussion :

[Tiviia]

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

[gFZT82]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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).Value = "toto"
        End If
    Next d
End Sub

Cordialement.

[Tiviia]

Bonjour

Merciii pour la correction de mon code !

Comme quoi juste des ("..") font toutes la différence !

Cdt
Tiviia