XL 2010 compter masculin feminin

Papou-net

XLDnaute Barbatruc

• 24 Juillet 2017

• #16

Bonsoir jean123,

As-tu essayé de mettre la colonne au format date en sélectionnant son en-tête?

Sinon, tu peux joindre une copie de ton classeur.

Cordialement.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Juillet 2017

• #17

Re
Salut Papou-net

A tester:

Code:

Sub recap1()
Feuil1.Columns("D:E").ClearContents
Set monDico = CreateObject("Scripting.Dictionary")
tablo = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
  x = CDbl(CDate(tablo(n, 1)))
  If tablo(n, 2) <> "" Then monDico(x) = monDico(x) + 1
Next
a = monDico.keys
b = monDico.items
Range("D1").Resize(UBound(a) + 1) = Application.Transpose(a)
Range("E1").Resize(UBound(b) + 1) = Application.Transpose(b)

End Sub

 

Vote positif 0 Vote négatif

jean123

XLDnaute Occasionnel

• 27 Juillet 2017

• #18

super merci ça marche parfaitement juste un tout dernier point est ce que pour les dates ou il n'y a rien en B peuvent apparaître avec 0 en valeur en D et E

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Juillet 2017

• #19

Re
excuse moi je ne comprends pas
Peux-tu mettre le fichier avec le résultat attendu ?

 

Vote positif 0 Vote négatif

jean123

XLDnaute Occasionnel

• 27 Juillet 2017

• #20

en fait les cellule en jaune n'apparaissent pas si la valeur est 0 seul les cellules ou pour la date la valeur est supérieur a zéro apparaissent en résultat dans les colonnes D et E

 

Pièces jointes

• 123456.JPG

  41.3 KB · Affichages: 40

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 27 Juillet 2017

• #21

Bonsoir jean123,
Salut pierrejean,

Il suffit peut-être de modifier la ligne comme ceci:

Sub Recap()
Dim monDico As Object
Dim c As Range, Cle As Integer
Feuil1.Columns("D:E").ClearContents
Set monDico = CreateObject("Scripting.Dictionary")
With Feuil1
For Each c In .Columns(1).SpecialCells(xlCellTypeConstants)
If Not monDico.exists(c.Value) Then monDico.Add c.Value, CLng(c.Value)
Next c
.Range("D1").Resize(monDico.Count, 1) = Application.Transpose(monDico.items)
For Each c In .Columns(4).SpecialCells(xlCellTypeConstants)
i = 0
For Each c1 In .Columns().SpecialCells(xlCellTypeConstants)
If c1 = c And c1.Offset(, 1) <> "" Then i = i + 1
Next
c.Offset(, 1) = i
Next
End With
Set monDico = Nothing
End Sub
Cordialement.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Juillet 2017

• #22

Re

Salut Papou-net

Code:

Sub recap2()
Feuil1.Columns("D:E").ClearContents
Set monDico = CreateObject("Scripting.Dictionary")
tablo = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
 If tablo(n, 1) <> "" Then
     x = CDbl(CDate(tablo(n, 1)))
     If tablo(n, 2) <> "" Then
         monDico(x) = monDico(x) + 1
     Else
         monDico(x) = 0
     End If
  End If
Next
a = monDico.keys
b = monDico.items
Range("D1").Resize(UBound(a) + 1) = Application.Transpose(a)
Range("E1").Resize(UBound(b) + 1) = Application.Transpose(b)
End Sub

 

Vote positif 0 Vote négatif

jean123

XLDnaute Occasionnel

• 28 Juillet 2017

• #23

RE

j'ai testé ta macro pierrejean mais j'ai que des 0 en résultat

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Juillet 2017

• #24

Re

poste le fichier S.T.P

 

Vote positif 0 Vote négatif

jean123

XLDnaute Occasionnel

• 29 Juillet 2017

• #25

voilà le fichier

 

Pièces jointes

• recap.xlsm

  15 KB · Affichages: 24

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Juillet 2017

• #26

Re

OK voila la correction

 

Pièces jointes

• recap.xlsm

  15.8 KB · Affichages: 32

Vote positif 0 Vote négatif

jean123

XLDnaute Occasionnel

• 30 Juillet 2017

• #27

un gros merci a toi pierrejean ça marche nickel
j'aurai une toute dernière demande dans le même principe mais a la différence je voudrais faire la somme des valeurs au lieux de de compter les valeurs
et sur une autre macro pour chaque date en colonne I de la feuille 1 je souhaiterai copier et coller en feuille 2 a partir de la colonne L les données ce trouvant de la colonne J a V de la feuille 1 associé au date correspondante sur la feuille 2

 

Pièces jointes

• RECAP.xlsx

  10.6 KB · Affichages: 29

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Juillet 2017

• #28

Re

En espérant avoir compris

 

Pièces jointes

• RECAP (1).xlsm

  25.4 KB · Affichages: 32

Vote positif 0 Vote négatif

jean123

XLDnaute Occasionnel

• 31 Juillet 2017

• #29

c'est presque ça ;-)
en gros sur une première macro les somme que tu reporte en feuille 2 il faudrait quelle soit en feuille 1

sur la feuille 2 j'ai une liste de date en colonne A l'idée serait qu'avec une macro indépendamment du calcule de somme je puisse copier les données que j'ai en feuille 1 a partir de la colonne I et les rattacher au date de la colonne A de la feuille 2 (qui ne sont pas forcement dans le même ordre) il y a deux macro dissocié

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Juillet 2017

• #30

Re

Fait un effort pour exprimer tes souhaits, notamment avec des 'résultats attendus' dans des feuilles exemple
Il est très pénible de devoir deviner ce que tu attends

 

Vote positif 0 Vote négatif