EXCEL compteur Jour

Bonjour,

J'ai plusieurs mesures par jour et il est possible que certains jours je n'ai aucune mesure.
Je voudrais compter le nombre de jours où il ya des mesures pour un même mois.
J'ai essayé avec des SI... mais j'arrive pas à traduire en langage excel "si la valeur est identique à une autre valeur je la prend qu'une fois"
J'ai essayé avec NB.. mais du coup il faut que je l'associe avec autre chose sinon il me compte toutes les mesures.

En gros je galère pour un calul qui est surement très simple..

Quelqu'un a la solution?
Configuration: Windows XP
Internet Explorer 6.0

6 réponses

  1. Contributeur
    Bonjour,

    avec tes dates à partir de A2 :
    =SOMMEPROD((MOIS(A2:A50)=3)*(JOUR(A2:A50)<>JOUR(A1:A49))*1)

    3: le mois désiré (mars)
    et 1 petite restriction: les données doivent démarrer ligne 2

    J'ai considéré que si la date est présente c'est qu'il y a une mesure et que ça ne dépend pas d'une autre colonne.

    eric
    0
    1. en fait après réflexion, ça m'ennuie d'avoir une macro à mettre à jour.
      Comme ce n'est pas moi qui vais me servir du tableau j'essaye de faire au plus simple donc au minimum de manipulations.
      D'où plein de formules qui font le travail à notre place pour un minimum d'action et un gain de temps non négligeable.

      Existe-il quelque formule qui pourrait répondre à mon problème sans avoir besoin de passer par l'option macro?
      0
      1. Contributeur
        Ont a rien sans un petit effort, et quand je dit mettre à jour c'est a adapter le nom du classeur et le nom de la feuille, si ca c'est pas clair alors..
        Mais bon... A une prochaine alors.
        0
    2. Je dis:
      "oulala c'est quelle langue ça,!"

      Jvais essayer de décrypter...
      Mais je suis pas sûre de m'en sortir.
      0
      1. Contributeur
        Une solution avec une macro ?
        Adapter à ton classeur
        Sub CompteurDate()
        Dim DerLigne As Integer, i As Integer
        Dim e As Integer, Compteur As Integer
        Dim Col As Integer, DebutLigne As Long
        Col = 1 ' pour la colonne A à adapter
        DebutLigne = 1 'départ la première ligne à tester
        '------- Pas nécessaire si un seul classeur
            Workbooks("Classeur1").Activate
        '------------------------------------------
            Application.DisplayAlerts = False
        '------------------------------------------
            Sheets("feuil1").Select
            DerLigne = Range("A65536").End(xlUp).Row
            e = DebutLigne: Compteur = 1
            For i = DebutLigne + 1 To DerLigne
                If Cells(i, Col).Value <> Cells(e, Col) Then
                    Compteur = Compteur + 1
                    e = i
                End If
            Next i
            Application.DisplayAlerts = True
            MsgBox "Il y a " & Compteur & " jour(s) dans cette colonne"
        End Sub

        Tu dit...
        1
        1. Contributeur
          Bonjour,
          Comment ton tableau est-il agebcé, toutes les dates se suivent en ordre chronologique ? et dans la même colonne ?
          A+
          0