macro qui marche pas

[alfonso]

bonjour
j'ai crèer une macro mais elle ne fonctionne pas j'ai mis le fichier en pièce jointe

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 11/04/2008 par aozel
'
For ligne = 1 To 3
For colonne = 1 To 3
If Cells(ligne, colonne).Value = Cells(2, 7) - 5 Then Cells(ligne, colonne).Interior.ColorIndex = 8
Next colonne
Next ligne

'
End Sub

en faite j'aimerais que la macros me colorie des cellules quand les dates qui se trouve dans ces cellules arrive a J-5 de la date d'aujourd'hui
mais j'obtiens aucun résultat

 

[joss56]

Re : macro qui marche pas

Salut

Il n'y a rien dans la cellule G2 (cells(2,7), c'est peut-être pour ça que ça ne marche pas...

A+
Joss

 

[alfonso]

Re : macro qui marche pas

ah zuttt
j'ai confondu les ligne et les colonnes

merci beaucoup joss

 

[Spitnolan08]

Re : macro qui marche pas

Bonjour,

Il faut inverser tes arguments :

Cells(7, 2).Value

Cordialement

 

[jp14]

Re : macro qui marche pas

Bonjour le fil

Ci dessous la macro modifiée.

Sub Macro2()
Dim date1 As Date
date1 = (DateAdd("d", -5, Sheets("Feuil1").Range("B" & 7).Value))
For ligne = 1 To 10
For colonne = 1 To 10
If CDate(Cells(ligne, colonne).Value) = date1 Then Cells(ligne, colonne).Interior.ColorIndex = 8
Next colonne
Next ligne

End Sub

JP

 

[alfonso]

Re : macro qui marche pas

merci c'est super