Discussion :

[totor6789]

Bonjour,

j'ai un tableau excel avec une colonne remplie de dates, puis d'autres colonnes avec des caractères.
Ma question est simple :

j'aimerais savoir, en janvier par exemple, combien de fois le mot "Accident" apparaît dans la colonne T.

J'ai essayé avec une formule du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=If(Month(Bilan!A:A)=1;Countif(Bilan!T:T;"Accident");"0")

Mais cela ne marche pas...j'ai également utilisé avec une formule matricielle mais échec également...

Merci pour vos réponses

[Philippe Tulliez]

Bonjour,
La fonction SOMMEPROD
Exemple (version française) : Pour une plage $A$2:$A$10 contenant les dates et la plage $D$2:$D$10 contenant le texte cherché

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMMEPROD( (MOIS($A$2:$A$10)=1) * ($D$2:$D$10="Accident"))

[totor6789]

Merci pour la réponse!

cependant ça ne marche pas

j'ai une version anglaise, donc j'utilise sumproduct et month.

il me met #Value!
N'y a t il pas une exigence sur le format de la date??
la mienne est au format dd/mm/yyyy

j'ai de plus selectionné ma colonne, Format Cells, Date au bon format.
Mais même avec ça ça ne va pas..

Une idée?

[L'Albatros]

Bonjour,
Ce bout de code n'est pas très poétique mais soyons pragmatique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub compte_occurence()
'---------------------------------------------Déclaration des variables
Dim compteur_boucle As Integer
Dim compteur_occurence As Integer
'---------------------------------------------Initialisation du compteur d'occurence"Accident"
compteur_occurence = 0
'---------------------------------------------Boucle de balayage du tableau en supposant que la colonne T reflète la dimension du tableau
For compteur_boucle = 1 To Range("T1").End(xlDown).Row
'---------------------------------------------Condition 1: le mois cible
    If Range("A" & compteur_boucle) = "janvier" Then
    '-----------------------------------------Condition 2: l'occurence
        If Range("T" & compteur_boucle) = "Accident" Then
        '-------------------------------------Incrémentation du compteur
            compteur_occurence = compteur_occurence + 1
        End If
    End If
Next compteur_boucle
MsgBox ("Nombre d'occurences: " & compteur_occurence)
End Sub

C'est moche mais radical, non ?
'------------------------------------------------------------------------
Si je vous ai aidé, merci de me le faire savoir avec un pouce

[totor6789]

Bonjour,

Merci corona, l'astuce de F9 m'as permis de trouver l'erreur, et maintenant ça marche.

Il n'as pas reconnu une date, alors que celle ci était correctement écrite. Je l'ai retaper et maintenant c'est bon...

Cependant j'aimerais savoir pourquoi il n'as pas aimé???
C'est quand même embêtant de voir qu'en retapant le contenu d'une cellule ça fonctionne...comment mettre en place un outil fonctionnnel sous excel à la disposition de tous si ça plante comme ça "sans raison"...

Je dois mettre en place cet outil plusieurs utilisateur, et je sens que tout le monde va trouver ça merdique si ça plante comme ça....

En tt cas merci pour l'aide!

[Philippe Tulliez]

Bonjour,

Il n'as pas reconnu une date, alors que celle ci était correctement écrite. Je l'ai retaper et maintenant c'est bon...

Peut-être était elle au format texte, ou inversée, encodée au format jj/mm/aa alors que c'est aa/mm/jj. Je ne vois pas d'autres explication.
Attention que si ta base de données contient des dates d'une autre année, il faut ajouter un contrôle à SUMPRODUCT.

[Philippe Tulliez]

Bonjour,

Merci pour la réponse!
cependant ça ne marche pas
j'ai une version anglaise, donc j'utilise sumproduct et month.
il me met #Value!
N'y a t il pas une exigence sur le format de la date??
la mienne est au format dd/mm/yyyy
j'ai de plus selectionné ma colonne, Format Cells, Date au bon format.
Mais même avec ça ça ne va pas..
Une idée?

Par acquit de conscience, je me suis mis en version anglaise, Options régionale de Windows Français(Belgique). Les date sont donc au format jj/mm/aa mais Month(date) doit renvoyer le mois de la date quel que soit la version linguistique de Windows.
Je confirme que cela fonctionne parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SUMPRODUCT( (MONTH($A$2:$A$10)=2) * ($D$2:$D$10="Accident"))

Pour vérifier, sélectionne dans la formule MONTH($A$2:$A$10)=2 et appuie sur F9, tu dois voir une suite de TRUE et FALSE, comme ci-dessous, suivant que les mois sont de janvier ou autres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SUMPRODUCT( ({FALSE;TRUE;FALSE;FALSE;TRUE;FALSE;FALSE;FALSE;FALSE}) * ($D$2:$D$10="Accident"))

Attention d'appuyer sur la touche escape ensuite sinon la formule se transforme en constante.