je cherche à pouvoir reporter la quantité qui se trouve en F15:F27 de l'onglet FACTURE dans l'onglet MEMO
Sub Resumer()
Dim Titres(), Dic As New Dictionary, C As Long, TFact(), L As Long, TRés()
Titres = Feuil4.[A1:T1].Value
For C = 11 To UBound(Titres, 2): Dic(Titres(1, C)) = C: Next C
TFact = Feuil1.[A12:I32].Value
ReDim TRés(1 To 1, 1 To UBound(Titres, 2))
TRés(1, 1) = TFact(1, 2)
TRés(1, 2) = TFact(1, 1)
TRés(1, 4) = TFact(19, 9)
TRés(1, 5) = TFact(17, 9)
TRés(1, 6) = TFact(19, 9)
TRés(1, 7) = TFact(19, 4)
TRés(1, 9) = TFact(20, 4)
TRés(1, 10) = TFact(21, 4)
For L = 4 To 16
If Dic.Exists(TFact(L, 1)) Then C = Dic(TFact(L, 1)): TRés(1, C) = TRés(1, C) + TFact(L, 6)
Next L
Feuil4.Cells(&H100000, 1).End(xlUp).Offset(1).Resize(, UBound(TRés, 2)).Value = TRés
End Sub
Sub Resumer()
Dim Titres(), Dic As New Dictionary, C As Long, TFact(), L As Long, TRés()
Titres = Feuil4.[A1:T1].Value
For C = 11 To UBound(Titres, 2): Dic(Titres(1, C)) = C: Next C
TFact = Feuil1.[A12:I33].Value
ReDim TRés(1 To 1, 1 To UBound(Titres, 2))
TRés(1, 1) = TFact(1, 2)
TRés(1, 2) = TFact(1, 1)
TRés(1, 4) = TFact(19, 9)
TRés(1, 5) = TFact(17, 9)
For L = 19 To 22
Select Case Int(TFact(L, 3) * 1000 + 0.5) / 10
Case 5.5: C = 6: Case 7: C = 7: Case 10: C = 8: Case 20: C = 9
Case Else: C = 0: End Select
If C > 0 Then TRés(1, C) = TFact(L, 4)
Next L
For L = 4 To 16
If Dic.Exists(TFact(L, 1)) Then C = Dic(TFact(L, 1)): TRés(1, C) = TRés(1, C) + TFact(L, 6)
Next L
Feuil4.Cells(&H100000, 1).End(xlUp).Offset(1).Resize(, UBound(TRés, 2)).Value = TRés
Dim N
On Error GoTo NuméroUn
N = Right(Range("b12").Value, 5)
Range("B12").Value = "" & Year(Date) & "/" & Format(N + 1, "00000")
Exit Sub
NuméroUn:
Range("b12").Value = "" & Year(Date) & "/" & Format(1, "00000")
Resume Next
End Sub
=LIGNE()-11
=COLONNE()