[VBA-E][debutant]Tester des cellules
Bonjour
J'ai une colonne remplie de date (jj/mm/aaaa hh:mm). Je teste cellule par cellule. Lorsque la date de la cellule est supérieure à la date référence, je met 1 dans la colonne suivante sur la meme ligne, sinon je met 0
Voici le bout de code que je met :
Code:
1 2 3 4 5 6 7 8 9 10
|
For Each c In Worksheets("LISTE").Range("A:A")
Range("B:B").Select
If c.Value > Date Then
ActiveCell.FormulaR1C1 = "1"
Else
ActiveCell.FormulaR1C1 = "0"
End If
Next c |
Ceci ne marche pas, pouvez vous m'aider?
Je ne sais pas comment faire bien et rapide.