Tri de doublons en fonction du mois

[dimferte]

Bonjour,

J'ai un problème que je n'arrive pas à solutionner: j'ai une liste de noms avec des dates de venue: je voudrais faire une file active : compter tous les noms une seule fois par mois, mais bien sûr les compter plusieurs fois s'ils existent sur plusieurs mois.

En tableau croisé cela me semble impossible et je ne trouve pas de fonction pour le faire.

Je serai heureux si quelqu'un peut me donner une piste.

Avec mes remerciements

 

[david84]

Re : Tri de doublons en fonction du mois

Bonjour,
Il n'y a pas assez de données pour pouvoir traiter mais je pense qu'en créant une colonne Mois et en utilisant la fonction MOIS pour l'extraire de la date, tu pourras utiliser ce critère dans ton TCD.
A+

 

[dimferte]

Re : Tri de doublons en fonction du mois

Merci pour ton aide,

J'avais bien pensé à cela, mais je ne vois pas comment les filtrer dans le TCD ( il faudrait que les 2 deviennent des 1 dans mon exemple).
Encore merci

 

[klin89]

Re : Tri de doublons en fonction du mois

Bonsoir dimferte, david84

Avec l'objet Scripting.Dictionary :

Sub Decompte_Visites_Patients()
  Set mondico = CreateObject("Scripting.Dictionary")
  Application.ScreenUpdating = False
  Range("A2:C" & Range("A65536").End(xlUp).Row).Sort Key1:=[B2], Order1:=xlAscending, Header:=xlGuess
  For Each C In Range("B2:B" & Range("A65536").End(xlUp).Row)
    temp = Format(C.Value, "mmmm yyyy") & "_" & C.Offset(, 1).Value
    mondico(temp) = mondico(temp) + 1
  Next C
  With Sheets("Feuil2")
    .Range("A1") = "VMDD": .Range("B1") = "PATNOMP": .Range("C1") = "Nbre de visites"
    .Range("A2").Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
    .Range("C2").Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
    .Range("A2:A" & .Range("A65536").End(xlUp).Row).TextToColumns Destination:=.Range("A2"), _
     DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
     Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="_"
  End With
  Application.ScreenUpdating = True
End Sub

La Feuil1 doit être la feuille active, voir le résultat en Feuil2.
Une visite sur le site de J-Boisgontier s'impose pour bien comprendre l'objet dictionnaire.

Klin89

 

[JCGL]

Re : Tri de doublons en fonction du mois

Bonjour à tous,

Un essai par TCD

A + à tous

 

[dimferte]

Re : Tri de doublons en fonction du mois

Merci à vous deux les deux solutions sont géniales.
Je vais mieux finir le week end grâce à vous.