Connaitre nombre de journées saisies

[anasimo]

Bonjour

Je reçois un reporting (format scv de plus de 63000 lignes) qui reprend l'ensemble des données mensuels...je voudrais savoir s'il y a moyen de connaitre le nombre de journée saisies/présente dans le fichier (pour ne pas être obligé de pointer manuellement journée par journée).

La date de la journée se trouve dans la colonne C du fichier (y a une seule feuille)

Merci

 

[Robert]

Bonjour Anasimo, bonjour le forum,

Une proposition VBA ci-dessous :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Long 'déclare la variable I (Incrément)

Set O = Worksheets(1) 'définit l'onglet O, le premier onglet du classeur
DL = O.Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne C de l'onglet O
TV = O.Range("C1:C" & DL) 'définit le tableau des valeurs TV
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To DL 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la secodne)
    D(TV(I, 1)) = "" 'alimente le dictionnaire D
Next I 'prochaine ligne de la boucle
MsgBox D.Count & " dates différentes !" 'message ou D.Count représente le nombre de dates uniques du dictionanire D
End Sub

 

[anasimo]

Merci beaucoup...ça marche très bien avec la macro