Synthèse à effectuer

[akramenergie]

bonjour mes amis
j'ai besoin de votre aide svp
je travail sur une macro excel ce fichier excel comtien 3 feuil la premiere et la deuxieme regroupe le numéro de projet et l'information OK ou KO dans la 3eme feuil je doit faire une syntese des deux premiere feuil, devant chaque projet je doit avoir le nombre de OK et le nbr de KO 😕


Merci de votre aide

 

[akramenergie]

Re : Synthèse à effectuer

svp qulq'un peut m'aider je bloque

 

[akramenergie]

Re : Synthèse à effectuer

je fait appel aux dieu d'excel de l'aide svp

 

[abcd]

Re : Synthèse à effectuer

Bonjour,

En attendant une solution par macro, en voici une par formule en pièce jointe.

abcd

 

[akramenergie]

Re : Synthèse à effectuer

pas de NEW au sujet de la macro 😕????
qlq 'un svp peut m'aider a la faire

 

[bqtr]

Re : Synthèse à effectuer

Bonjour à tous,

Voici une solution à tester :

Sub Synthese()

Dim Ws As Worksheet
Dim K As Long, m As Long
Dim NbrOK As Integer, NbrKO As Integer

Application.ScreenUpdating = False

With Sheets("bilan")
    .Range("B2:C" & .Range("A65536").End(xlUp).Row) = ""
        For K = 2 To .Range("A65536").End(xlUp).Row
            For Each Ws In ThisWorkbook.Worksheets
                If Ws.Name <> "bilan" Then
                    For m = 2 To Ws.Range("A65536").End(xlUp).Row
                       If Ws.Cells(m, 1) = .Cells(K, 1) And Ws.Cells(m, 2) = "ok" Then NbrOK = NbrOK + 1
                       If Ws.Cells(m, 1) = .Cells(K, 1) And Ws.Cells(m, 2) = "ko" Then NbrKO = NbrKO + 1
                    Next
                End If
            Next
            .Cells(K, 2) = NbrOK
            .Cells(K, 3) = NbrKO
            NbrOK = 0
            NbrKO = 0
        Next
End With

Application.ScreenUpdating = True
        
End Sub

Le code fonctionne avec ton fichier exemple, si tu as plus de feuille sur ton fichier de travail il faudra adapter en excluant les feuilles non concernées par le calcul.
Il faudra compléter la suite de If Ws.Name <> "bilan" en ajoutant And If Ws.Name <> "???" ...

Si tu en a trop, passer par un Array() avec les feuilles concernées par le calcul.



Bonne journée