Bonjour à tous,
Je rencontre un problème qui est sans doute assez simple. Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub indicateurs()
Dligne = Range("A1500").End(xlUp).Row
 
For J = 7 To Dligne
compteur = 0
If Cells(J, 7) > Cells(1, 8) Then compteur = compteur + 1
Next J
Cells(4, 1) = compteur
 
End Sub
Pour information: Mon tableau débute en ligne 7.
Je souhaite ici comparer toutes les cellules de ma colonne 7 (ce sont des dates) à la cellule en (1,8) (date également), et faire une somme de +1 à chaque fois qu'une cellule est supérieur à la date en (1,8).

Malheureusement, il semble y avoir une erreur dans mon code… Une âme charitable pour m'aiguiller ?

Bonne journée,
Mickamax