RESUMER sous condition

Steelson bonjour et Merci

¤ Si les 5 premiers caractères de chaque évènement = 3Lettres 2Chiffres = 1er Tri

¤ Si ce premier Tri est valide = procédé a la somme d'occurrences

Exemple ZTL013 et ZTLT04 devient ZTL01 avec 16 occurences

ZTL013 1 2 1 1 1 1 1

ZTL014 1 2 1 1 1 1 1

¤ Si cette évènement de 3Lettres 2chiffres est = ou superieur à 70% de l'encadré Rouge = 2eme Tri

Donc ZTL01 = 16 = 200% de 8 vu qu'il est >70% on prend

Pour répondre à ta question

pourquoi LVT081 doit rester muet alors que ZLT013 & ZTL014 sont à cumuler ! ?

Parce que à l'époque on s'est mal compris avec le calcul du %

ZLT013 & ZTL014 répondé au critères >=70% et pas LVT081 avec 1 cas/8

Encore Merci pour ton aide précieux

ci-joint

autre solution

Sub traitement()

Dim der

    Columns("DN:DP").ClearContents
    Range("DN1").Value = "code"
    Range("DO1").Value = "somme ligne"
    Range("DP1").Value = "somme 3L2C"

    der = Range("CE2").End(xlDown).Row

    Range("DN2").FormulaR1C1 = "=ChercheChaine(RC[-35],""^([A-Z]){3}([0-9]){2}"")"
    Range("DO2").FormulaR1C1 = "=IF(RC[-1]="""",0,SUM(RC[-35]:RC[-21])/R1C117)"
    Range("DN2:DP2").Select
    Selection.AutoFill Destination:=Range("DN2:DP" & der)

    Range("DP2").FormulaR1C1 = "=SUMPRODUCT((R2C118:R" & der & "C118=RC[-2])*(R2C119:R" & der & "C119))"
    Range("DP2").Select
    Selection.AutoFill Destination:=Range("DP2:DP" & der)
    Columns("DP:DP").Select
    Selection.NumberFormat = "0%"

    Range("DN1:DP1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$DN$1:$DP$" & der).AutoFilter Field:=3, Criteria1:=">=70%", Operator:=xlAnd

End Sub

Function ChercheChaine(chaine, pattern)
  Set obj = CreateObject("vbscript.regexp")
  obj.pattern = pattern
  Set a = obj.Execute(chaine)
  If a.Count > 0 Then ChercheChaine = a(0) Else ChercheChaine = ""
End Function

Bonjour Steelson,

Grâce à toi j'ai avancé d'un trés grand pas dans ce Dossier et je t'en remercie infiniment.

Je ne sais pas pourquoi mais la version macro TCD ne fonctionne pas chez moi.

Alors je me suis crée un Code Unique que je te joint dans ce dernier fichier qui élimine les doublons de ma population de code

il ne me reste plus qu'a comptabilisé pour chaque code son nbr d'occurences propre

J'ai essayé par RechercheV mais il ne remonte que la première ligne trouvé pas la somme.

Bien Merci à toi

Cordialement

le fichier

je l'avais calculé par SOMMEPROD (second envoi)

ou par TCD (premier envoi)

barachoie a écrit :

Je ne sais pas pourquoi mais la version macro TCD ne fonctionne pas chez moi.

Merci

Ok pour SUMPRODUCT

Toutes les conditions sont réunis Bravo !!!!!!! et MERCI TU ES UN AS !!!!!!!!!!!!!!!!!!!