XL 2016 formule nombre de véhicules mensuel

Cousinhub à dit:

Bah, si vous le dites...
Bonne continuation

Cliquez pour agrandir...

Lionel 25 à dit:

Ci vous voyez les immatriculation par exemple pour le 042U438,il y a des matériels qui sont comptabilisés deux fois

Je vous remercie.
Cordialement

Cliquez pour agrandir...

Lionel 25 à dit:

Ci vous voyez les immatriculation par exemple pour le 042U438,il y a des matériels qui sont comptabilisés deux fois

Je vous remercie.
Cordialement

Cliquez pour agrandir...

Sub FiltrerRapport()
    
     Const CodeES = "042U402"
     Const WshSNom = "Rapport 1"
     Const WshCNom = "Données filtrées"
     Const LoNom = "TS_Rapport"
    
     Dim wshS As Worksheet, wshC As Worksheet
     Dim LO As ListObject
     Set wshS = ThisWorkbook.Worksheets(WshSNom)
     Set wshC = ThisWorkbook.Worksheets(WshCNom)
     Application.ScreenUpdating = False
     On Error Resume Next
     With wshC.Evaluate(LoNom)
          .Clear
          Application.DisplayAlerts = False
          .ListObject.Unlist
          Application.DisplayAlerts = True
     End With
     On Error GoTo 0
    
     Set C = wshS.Cells.Find(What:="N° Individu", After:=wshS.Cells(1), LookIn:=xlFormulas, LookAt:=xlPart, _
                            SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).CurrentRegion
    
     C.Copy Destination:=wshC.[Titres].Resize(C.Rows.Count)
    
     Set LO = wshC.ListObjects.Add(xlSrcRange, wshC.[Titres].CurrentRegion, , xlYes)
     With LO
          .Name = "TS_Rapport"
          .TableStyle = ""
          .ListColumns.Add.Name = "Test"
     End With
     With wshC.[TS_Rapport[Test]]
          .NumberFormat = "General"
          .FormulaR1C1 = "=(COUNTIFS([N° Individu],TS_Rapport[[#This Row],[N° Individu]],[N° Immatriculation],TS_Rapport[[#This Row],[N° Immatriculation]])>1)*(TS_Rapport[[#This Row],[ES Réparateur AT]]=""042U402"")"
          LO.Range.AutoFilter Field:=LO.ListColumns("Test").Index, Criteria1:=0
          wshC.[TS_Rapport[Test]].EntireRow.Delete
          LO.Range.AutoFilter Field:=LO.ListColumns("Test").Index
          LO.ListColumns("Test").Delete
     End With

     With wshC.[TS_Rapport]
          .HorizontalAlignment = xlGeneral
          .VerticalAlignment = xlCenter
          .RowHeight = 20
     End With
     Application.ScreenUpdating = True
    
End Sub

1. Importer le rapport dans la feuille "Rapport 1"
2. Aller sur la feuille "Données filtrées"
3. Cliquer sur le bouton "Filtrer la feuille "Rapport 1""

Lionel 25 à dit:

Bonjour,

Je dois calculer tous les mois le nombre de véhicule que les ateliers ont produits.
Pour cela, j'ai un logiciel qui m'extrait les données et il me les convertit dans un fichier excel.
j'ai plusieurs fois la même immatriculation car le matériel est passé dans différent atelier.
Je recherche une formule pour quand le matériel dans mon cas est passé dans un code ES ATELIER et dans le code ES RDC, nous gardons qu'une ligne d’immatriculation,
et quand le matériel est passé uniquement au code es042u402 le ligne du matériel doit être supprimé.
J'espère que j'étais clair.
Et j souhaiterai que lorsque je sors mon extraction qu'elle fasse le tri automatiquement.
Je vous remercie par avance.
Cordialement.

Cliquez pour agrandir...

Lionel 25 à dit:

Il faudrait garder la ligne ou il y le 042U402.

Cliquez pour agrandir...

• quand il y a qu'une ligne (en fonction du type RDC ou Atelier),
• quand il y a plusieurs lignes (laquelle (lesquelles) conservée(s), code "ES Réparateur AT")
• quand il n'y a pas de "N° Immatriculation" (si le "N° Individu" suffit en soi.

Lionel 25 à dit:

Bonjour,
Quand il y a une ligne uniquement RDC nous ne prenons pas en compte le matériel.
Quand il y a une ligne uniquement avec des intitulés ateliers il faudrait prendre en compte les matériels.
Quand il y a plusieurs codes ateliers associés avec le code RDC, il faudrait les garder afin de pouvoir combien de matériels ont été produits par atelier.
Si les matériels n'ont pas d'immatriculation mais des numéros séries il faut les prendre en compte également.
J'espère que mes explications ont été assez claires.
Je vous remercie.

Cliquez pour agrandir...