Compter le nombre d'occurences d'une valeur

Version imprimable

03/06/2013, 12h04
snorky94

Compter le nombre d'occurences d'une valeur

Bonjour,

J'ai un fichier csv avec 2 colonnes :

Citation:

mardi 21 mai 2013 ;OK
jeudi 25 avril 2013 ;OK
mardi 14 mai 2013 ;OK
mardi 14 mai 2013 ;OK
mardi 21 mai 2013 ;OK
mardi 14 mai 2013 ;OK
mardi 14 mai 2013 ;OK

Je souhaiterai le parcourir et compter le nombre de fois ou la même date apparait pour que ça donne un résultat comme ceci :

Citation:

mardi 21 mai 2013;2
jeudi 25 avril 2013;1
mardi 14 mai 2013;4

Savez vous comment je peux procéder ?

Merci.

:salut: une piste que j'ai vu dans un forum anglais :king:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'http://tek-tips.com/viewthread.cfm?qid=1711644
set objFSO = CreateObject("Scripting.FileSystemObject")
set objDuplicates = CreateObject("Scripting.Dictionary")
Set Ws = CreateObject("wscript.Shell")
set objStream = objFSO.OpenTextFile("input.csv", 1)
strContent = objStream.ReadAll
arrLines = split(strContent, vbNewLine)
 
For i = 0 to ubound(arrLines)
	strLine = arrLines(i)
	MyDate = split(strLine,";")
	For k = LBound(MyDate) To ubound(MyDate)
		intOccurrences = 1
		if not (objDuplicates.Exists(strLine)) then 
			for j = (i + 1) to ubound(arrLines)
				if (strLine = arrLines(j)) then intOccurrences = intOccurrences + 1
			next
			if (intOccurrences >= 1) then objDuplicates.Add strLine , intOccurrences
		end If
	Next
Next
 
set objStream = objFSO.OpenTextFile("Sortie.txt", 2, true, 0)
arrKeys = objDuplicates.Keys
For x = 0 to ubound(arrKeys)
	objStream.WriteLine arrKeys(x) & " : " & objDuplicates.Item(arrKeys(x))
Next
objStream.close
Ws.Run "Notepad Sortie.txt"

03/06/2013, 15h41
snorky94

Merci hackoofr !!!!

C'est exactement ca merci, c'est top !!!!

Merci encore +1000 :cool: