F
fredo
Guest
salut a tous,
apres avoir selectionné une colonne, je fais un test sur toutes les cellules de cette colonne afin de trouver celles qui ont pour date la date d'aujourd'hui voici mon code:
Windows("Feuille de calcul dans Basis (1)").Activate
Columns("S:S").Select
Dim compteur1
compteur1 = 0
For Each c In Selection
If c.Value = "=AUJOURDHUI()" Then
compteur1 = compteur1 + 1
End If
Next c
mais evidement ça ne marche pas, je pense que cela vient de mon c.value mais je ne sais pas comment y remedier....
merci par avance
apres avoir selectionné une colonne, je fais un test sur toutes les cellules de cette colonne afin de trouver celles qui ont pour date la date d'aujourd'hui voici mon code:
Windows("Feuille de calcul dans Basis (1)").Activate
Columns("S:S").Select
Dim compteur1
compteur1 = 0
For Each c In Selection
If c.Value = "=AUJOURDHUI()" Then
compteur1 = compteur1 + 1
End If
Next c
mais evidement ça ne marche pas, je pense que cela vient de mon c.value mais je ne sais pas comment y remedier....
merci par avance