XL 2010 compter masculin feminin

[jean123]

bonjour à tous, j'ai un tableau de 50 000 lignes environ et qui grossie au fur et à mesure

dans ce tableau j'ai des dates colonne A et une colonne (D) sexe "m" et "f"

j'aimerais si possible en vba pouvoir compter le nombre de "m" pour chaque date et le nombre de "f" pour chaque date

un grand merci pour votre aide

 

[jean123]

pas de souci désolé
je t'ai fait deux classeur excel exemple pour les 2 demandes

 

[jean123]

voila les deux classeurs

 

[jean123]

j'ai essayé un truc

Sub TEST()

Set mondico = CreateObject("Scripting.Dictionary")
tb1 = Sheets("Feuil1").Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row)
tb2 = Sheets("Feuil2").Range("A2:C" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tb1, 1) To UBound(tb1, 1)
If tb1(n, 1) And tb1(n, 3) = tb2(n, 1) And tb2(n, 5) Then
mondico = mondico
End If
Next
b = mondico.items
Sheets("Feuil2").Range("L1").Resize(UBound(b) + 1) = Application.Transpose(b)

End Sub

bon ça marche pas !! je pense que j'ai encore beaucoup a apprendre 😱

 

[jean123]

est ce que tu as besoin de plus d’explication ? si besoin je refait les classeurs exemple n’hésite pas

 

[jean123]

j'ai essayé de comprendre comment tu as procédé et j'ai réussit a faire ça

Sub report()

tablo = Sheets("Feuil1").Range("A2:E" & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
  x = CDbl(CDate(tablo(n, 1)))
  If tablo(n, 4) = "A" Then
     dico(x) = dico(x) + tablo(n, 5)
  Else
     dico(x) = dico(x)
  End If
Next
a = dico.keys
b = dico.items
Range("I2").Resize(UBound(a) + 1) = Application.Transpose(a)
Range("J2").Resize(UBound(b) + 1) = Application.Transpose(b)
End Sub

Sub report2()

tablo = Sheets("Feuil1").Range("A2:E" & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
  x = CDbl(CDate(tablo(n, 1)))
  If tablo(n, 4) = "B" Then
     dico(x) = dico(x) + tablo(n, 5)
  Else
     dico(x) = dico(x)
  End If
Next
a = dico.keys
b = dico.items
Range("I2").Resize(UBound(a) + 1) = Application.Transpose(a)
Range("K2").Resize(UBound(b) + 1) = Application.Transpose(b)
End Sub

ça fonctionne je pense pas avoir fait de connerie (si tu peut jeter un œil)

il reste le copier coller en macro mais là je coince

 

[jean123]

pierrejean ?