Compter les occurences d'une date

Bonjour,

Dans le fichier joint, j'aimerais que dans la feuille "Gen. Stats." soit affichées toutes les dates saisies dans la colonne D de la feuille "Details", ainsi que le nombre de fois qu'elles sont saisies. J'ai mis un exemple pour illustrer mes propos. Dans cet exemple on a 2x la date "26/10/2017" et 1x "28/10/2017". Tout ceci est relevé dans la feuille "Gen. Stats.", saisi manuellement pour l'exemple.

Toutes ces données se retrouveraient dans le graphique affiché dans "Gen. Stats.".

Voilà, si jamais vous avez des questions pour de plus amples détails, ou quelque chose que vous n'avez pas saisi (il est possible que je m'exprime mal), n'hésitez pas, je chasserai vos doutes le plus rapidement possible

Merci par avance de votre aide

PS : J'ai dû archiver le fichier, il est tout juste trop gros

Bonjour,

Chez moi le fichier ne peut-pas être décompressé : Essayez de le déposer sans le compresser sur cjoint et donnez nous le lien de téléchargement.

A+

Voilà :

https://www.cjoint.com/c/GKdcWt2CCCy

Bonjour Galopin01

galopin01 a écrit :

Bonjour,

Chez moi le fichier ne peut-pas être décompressé : Essayez de le déposer sans le compresser sur cjoint et donnez nous le lien de téléchargement.

A+

Avec Izarc v4.2 il n'y a absolument aucun problème et il est gratuit

Re,

Voici ton fichier modifié avec un petit code qui va bien

A+

Salut,

Je te remercie, il y a du progrès, mais un petit problème est présent :

Comme la date 26/10/2017 a 2 occurrences, elle apparaît 2 fois dans le tableau, et donc dans le graphique.

SineNomine_ a écrit :

Salut,

Je te remercie, il y a du progrès, mais un petit problème est présent :

Comme la date 26/10/2017 a 2 occurrences, elle apparaît 2 fois dans le tableau, et donc dans le graphique.

Oups , pas normal, car chez moi les tests étaient OK

Essayes avec ce code

Sub MajDate()
  Dim LigS As Long, LigD As Long
  Dim ShtS As Worksheet
  ' Définir la feuille Source
  Set ShtS = ThisWorkbook.Sheets("Details")
  ' Pour chaque ligne de date de la feuille
  For LigS = 1 To 10990 Step 11  ' derlnière ligne avec date
    If IsDate(ShtS.Range("D" & LigS)) Then
      ' Rechercher si la date existe
      On Error Resume Next
      LigD = 0
      LigD = Application.Match(ShtS.Range("D" & LigS), ActiveSheet.Range("A:A"), 0)
      On Error GoTo 0
      ' Vérifier
      If LigD = 0 Then
        ' Si pas trouver, inscrire la date et la formule
        LigD = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
        Range("A" & LigD).Value = ShtS.Range("D" & LigS).Value
      End If
      ' Inscrire ou réinscrire la formule
      Range("B" & LigD).FormulaLocal = "=NB.SI(Details!D:D;A" & LigD & ")"
    End If
  Next LigS
End Sub

A+

Ah OK, je viens de voir une autre chose.

Avant l'histogramme coupé insérait automatiquement la date 27/10/2017 dans son abscisse, mais là il ne le fait plus.

EDIT

Euuuuh ... Dsl mais je ne sais pas DU TOUT coder sous Excel

Tout d'abord, dsl pour le double-post.

Mais je ne sais absolument pas du tout quoi faire avec le code que tu m'as envoyé, je ne comprends pas comment tu as fait.

Est-ce que tu pourras m'expliquer, comme ça je pourrai modifier par moi-même et reproduire ça si l'occasion se présente.

Merci