Adapter code avec nouveau fichier

Le 29/09/2021 à 23:55

Bonjour à tous,

je souhaiterai adapter le code ci-dessous qui marche avec le fichier joint nommé "Galiax - nbre boites au nouveau fichier "testb" pour calculer le nbre de Briques en colonne i (colonne en jaune) de la feuille "EtiquetasBags.rpt"

Private Sub Worksheet_Activate()
'
Dim tTab, tType, tExtract(), iTour%, iRow%, iCol%, iIdx%, sItem$
'
Application.ScreenUpdating = False
'
tTab = Worksheets("EtiquetasBags.rpt").Range("C1:I" & Worksheets("EtiquetasBags.rpt").Range("E" & Rows.Count).End(xlUp).Row).Value
With Worksheets("Nbre Boites")
iCol = .Cells(2, Columns.Count).End(xlToLeft).Column
iRow = .Range("A" & Rows.Count).End(xlUp).Row
If .[A3] <> "" Then _
.Range("A3").Resize(iRow, iCol).Value = "": _
.Range("A3").Resize(iRow, iCol).Borders.LineStyle = xlLineStyleNone
tType = .Range("B1").Resize(2, iCol).Value
For x = 1 To UBound(tTab, 1)
If InStr(tTab(x, 2), "Date de remise") > 0 Then _
If CInt(tTab(x + 1, 1)) <> iTour Then _
iIdx = iIdx + 1: _
iTour = CInt(tTab(x + 1, 1)): _
ReDim Preserve tExtract(iCol + 1, iIdx): _
tExtract(0, iIdx - 1) = iTour
If InStr(tTab(x, 1), "M-") > 0 Then sItem = tTab(x, 1)
If InStr(tTab(x, 2), "M-") > 0 Then sItem = tTab(x, 2)
If sItem <> "" Then
For y = 1 To iCol
If InStr(tType(2, y), sItem) > 0 Then _
tTab(x, 7) = Fix(CInt(Replace(tTab(x, 3), " ", "")) / CInt(tType(1, y))): _
tExtract(y, iIdx - 1) = CInt(tExtract(y, iIdx - 1)) + CInt(tTab(x, 7)): _
Exit For
Next
sItem = ""
End If
Next
Worksheets("EtiquetasBags.rpt").Range("C1:I" & Worksheets("EtiquetasBags.rpt").Range("E" & Rows.Count).End(xlUp).Row).Value = tTab
.Range("A3").Resize(iIdx, iCol).Value = WorksheetFunction.Transpose(tExtract)
.Range("A3").Resize(iIdx, iCol).Borders.LineStyle = xlContinuous
.Range("A3").Resize(iIdx, iCol).BorderAround Weight:=xlThick
End With
'
Application.ScreenUpdating = True
'
End Sub

puis calculer le nbre total dans l'onglet "Nbre Briques" sachant qu'1 brique de B-50 = 50 000 / 1 Brique de B-20 = 20 000 / 1 brique de B-10 = 10 000 / 1 Brique de B-5 = 5 000.

Cordialement

Galiax

6testb.xlsm (56.57 Ko)

3galiax-nbre-boites.xlsm (66.57 Ko)

Le 30/09/2021 à 00:09

Re bonsoir,

j'ai oublié de préciser que dans le code il faut rechercher et calculer le total par banque et non par tournée (banque situer en rouge dans la capture d'écran ci-dessous)...