Comptage

[roby]

Bonsoir le Forum

je vous soumets un problème car je n'y arrive pas à trouver la bonne formule.

j'aimerai faire une synthèse des cellules ayant le même libellé, mais ceux-ci sont saisie avec une date.

ci-joint le fichier compressé, il vous en dira beaucoup plus.

dans l'attente

bonne soirée à tous Roby @+

 

[Victor21]

Re : Comptage

Bonsoir.

Essayez :

SOMMEPROD(--(GAUCHE($F$4:$F$4397;10)=GAUCHE(H4;10)))

Le 10 correspond au nb de caractères communs. A adapter si besoin.

Autre possibilité : convertir les données de la colonne F avec comme séparateur la parenthèse ouvrante, et utiliser nb.si.

Edit : Bonjour, Chris. 🙂 Joli !

 

[chris]

Re : Comptage

Bonjour

En J4, à recopier en dessous

=NB.SI($F$4:$F$4397;H4&"*")

Edit : salut Victor. Même pas mal !

 

[roby]

Re : Comptage

Bonsoir Victor21 et chris


tout d abord merci à vous deux

la formule de Victor21 semble correspondre a ma requête, je n'ai pas fait la synthèse exacte mais correspond-elle bien au libellé sans la date ? je ne me trompe pas Victor21.

dans la colonne H peut on faire correspondre un libelle unique (sans date) avec le nombre en J

exemple: Emprisonnement 533
Aménagement de peine 66

merci d'avance

Roby @+

 

[Victor21]

Re : Comptage

Re,

Vous pouvez vérifier en listant tous les libellés possibles, et en recopiant vers le bas les formules qui vous ont été communiquées.
Le total devrait correspondre au nombre de lignes de votre tableau.

Mais je vous conseille la solution de chris qui, tout en étant plus courte, devrait être moins gourmande en ressources.

 

[roby]

Re : Comptage

Re,

j'ai bien tire les formules vers le bas. pour une question de lecture, la synthese ne devrait comporter qu'un libelle et qu'un nombre associé.

Roby

 

[Victor21]

Re : Comptage

Re,

Voir fichier joint.

 

[mapomme]

Re : Comptage

Bonjour le Forum & Victor & Chris,

Il y a plusieurs libellés commençant par les mêmes caractères (ex: enquête , ENQUÊTE EN VUE D'AP , ENQUÊTE RAPIDE )
Pour ne pas en compter en double, on pourrait peut-être utiliser la formule =NB.SI($F$4:$F$4397;H4&"(*") qui distingue 'enquête ' de 'ENQUÊTE EN VUE D'AP ' et de 'ENQUÊTE RAPIDE '

 

[roby]

Re : Comptage

Re

j'ai essaye de faire une synthèse rapide suivant les différentes formules, mais le compte est beaucoup plus important que le nombre de ligne.

fichier joint avec les totaux

Roby

 

[mapomme]

Re : Comptage

Bonjour,
Voir le message #8,

D'autre part la liste des libellés (dans votre dernier fichier) est à priori fausse! J'y vois au moins un doublon (SURSIS MISE À ÉPREUVE) et au moins un item manquant (saisine aux fins d'enquête )

 

[roby]

Re : Comptage

bonjour le forum, mapomme, victor21 et chris

j'ai effectue un contrôle et j'en avait oublie ou duplique, la solution serait de trouver une formule qui puisse en colonne H, afficher une liste unique (sans doublons).

est ce possible ?

merci d'avance pour votre patience

Roby

 

[Victor21]

Re : Comptage

Re,

la solution serait de trouver une formule qui puisse en colonne H, afficher une liste unique (sans doublons).

Non seulement c'est possible mais, en plus, la manière de le faire a été expliquée dans le fichier du #7.

 

[roby]

Re : Comptage

Re

j'ai commence avec quelques formules, mais des erreurs apparaissent.

ci joint un début de fichier.

 

[Victor21]

Re : Comptage

Re,

En VBA ?

Brut de décoffrage, issu de Henri.
Les libellés avec les dates sont en colonne B

Option Explicit

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 27/11/2011 par PB
'

'
    Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="(", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Columns("C:F").Select
    Selection.Delete Shift:=xlToLeft
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "LISTE"
    Columns("B:B").Select
    Range("B1:B4395").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "D2"), Unique:=True
    Columns("D:D").Select
    Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("A:C").Select
    Selection.Delete Shift:=xlToLeft
End Sub

La liste sans doublons des libellés sans les dates est en colonne A

 

[roby]

Re : Comptage

Re

la macro fonctionne mais pourquoi ajoute-elle un item "LISTE"

le fichier joint prêt a lancer