Bonjour à tous,

Dans les deux procédures suivantes, le code est presque le même excepter quelques détails prés.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Sub Stock_Bon()
    Dim sDerLig As Integer, DerLig As Integer, lDerlig As Integer
 
    '-- Définition des plages nommées dans la feuille "BD"
    With Sheets("BD")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        'MsgBox "bDerLig : " & bDerLig
        .Range("A1:K" & DerLig).Name = "ZoneExtract"
        .Range("A2:A" & DerLig).Name = "sRéférence"
        .Range("C2:C" & DerLig).Name = "sEtat"
        .Range("D2:D" & DerLig).Name = "sDate"
        .Range("E2:E" & DerLig).Name = "sMouvement"
        .Range("F2:F" & DerLig).Name = "sQuantité"
    End With
 
    With Sheets("Listes")
        lDerlig = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A2:E" & lDerlig).Name = "TabRef"
        .Range("A2:A" & lDerlig).Name = "Ref"
    End With
 
    '-- Filtre
    Sheets("B").Activate
 
    [ZoneExtract].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("B").Range("A3:B3"), Unique:=True
 
    '-- Définition des plages nommées dans la& feuille "B"
    With Sheets("B")
        sDerLig = .Range("A" & Rows.Count).End(xlUp).Row
 
        .Range("D4:D" & sDerLig).Name = "bEntréeS"
        .Range("E4:E" & sDerLig).Name = "bSortieS"
        .Range("F4:F" & sDerLig).Name = "bStockDispoS"
        .Range("C4:C" & sDerLig).Name = "bStockInitialS"
        .Range("G4:G" & sDerLig).Name = "bStockMiniS"
        .Range("H4:H" & sDerLig).Name = "bDateS"
        .Range("I4:I" & sDerLig).Name = "bAlerteS"
    End With
 
    '-- Ecriture des formules et calcul
    With Sheets("B")
 
        '-- Formule pour calculer la somme des entrées pour une référence
        .Range("D4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""B"")*(sMouvement=""Entrée"")*(sQuantité))"
        .Range("D4").AutoFill Destination:=[bEntréeS], Type:=xlFillDefault
 
        '-- Formule pour calculer la somme des sorties pour une référence
        .Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""B"")*(sMouvement=""Sortie"")*(sQuantité))"
        .Range("E4").AutoFill Destination:=[bSortieS], Type:=xlFillDefault
 
        '-- Formule pour calculer la quantité en stock pour une référence
        .Range("F4").Formula = "=C4+(D4-E4)"
        .Range("F4").AutoFill Destination:=[bStockDispoS], Type:=xlFillDefault
 
        '---- Affichage du stock initial correspondant ---
        Range("C4").Formula = "=INDEX(TabRef,MATCH($A4,Ref,0),4)"
        Range("C4").AutoFill Destination:=[bStockInitialS], Type:=xlFillDefault
 
        '---- Affichage du stock mini correspondant ---
        Range("G4").Formula = "=INDEX(TabRef,MATCH($A4,Ref,0),5)"
        Range("G4").AutoFill Destination:=[bStockMiniS], Type:=xlFillDefault
 
        '-----
 
        '-- Calcul de la date du dernier mouvement
        '.Range("H4").FormulaArray = "=MAX(IF((sRéférence=$A4)*(sEtat=""B""),sDate))"
        .Range("H4").FormulaArray = "=MAX((sRéférence=$A4)*(sEtat=""B"")*sDate)"
        .Range("H4").AutoFill Destination:=[bDateS], Type:=xlFillDefault
        [bDateS].NumberFormat = "m/d/yyyy h:mm"
 
        '-- Derniere colonne
        .Range("I4").Formula = "=IF(bStockMiniS="""","""",IF(bStockDispoS<bStockMiniS,""Attention: Stock bas"",""RAS""))"
        .Range("I4").AutoFill Destination:=[bAlerteS], Type:=xlFillDefault
        Application.Calculation = xlCalculationAutomatic
 
        Columns("A:I").EntireColumn.AutoFit
    End With
End Sub

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub Stock_Mauvais()
    Dim sDerLig As Integer, DerLig As Integer, lDerlig As Integer
 
    '-- Définition des plages nommées dans la feuille "BD"
    With Sheets("BD")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        'MsgBox "bDerLig : " & bDerLig
        .Range("A1:K" & DerLig).Name = "ZoneExtract"
        .Range("A2:A" & DerLig).Name = "sRéférence"
        .Range("C2:C" & DerLig).Name = "sEtat"
        .Range("D2:D" & DerLig).Name = "sDate"
        .Range("E2:E" & DerLig).Name = "sMouvement"
        .Range("F2:F" & DerLig).Name = "sQuantité"
    End With
 
    With Sheets("Listes")
        lDerlig = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A2:E" & lDerlig).Name = "TabRef"
        .Range("A2:A" & lDerlig).Name = "Ref"
    End With
 
    '-- Filtre
    Sheets("M").Activate
 
    [ZoneExtract].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("M").Range("A3:B3"), Unique:=True
 
    '-- Définition des plages nommées dans la& feuille "M"
    With Sheets("M")
        sDerLig = .Range("A" & Rows.Count).End(xlUp).Row
 
        .Range("D4:D" & sDerLig).Name = "mEntréeS"
        .Range("E4:E" & sDerLig).Name = "mSortieS"
        .Range("F4:F" & sDerLig).Name = "mStockDispoS"
        .Range("C4:C" & sDerLig).Name = "mStockInitialS"
        .Range("G4:G" & sDerLig).Name = "mStockMiniS"
        .Range("H4:H" & sDerLig).Name = "mDateS"
        .Range("I4:I" & sDerLig).Name = "mAlerteS"
    End With
 
    '-- Ecriture des formules et calcul
    With Sheets("M")
 
        '-- Formule pour calculer la somme des entrées pour une référence
        .Range("D4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""M"")*(sMouvement=""Entrée"")*(sQuantité))"
        .Range("D4").AutoFill Destination:=[mEntréeS], Type:=xlFillDefault
 
        '-- Formule pour calculer la somme des sorties pour une référence
        .Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""M"")*(sMouvement=""Sortie"")*(sQuantité))"
        .Range("E4").AutoFill Destination:=[mSortieS], Type:=xlFillDefault
 
        '-- Formule pour calculer la quantité en stock pour une référence
        .Range("F4").Formula = "=C4+(D4-E4)"
        .Range("F4").AutoFill Destination:=[mStockDispoS], Type:=xlFillDefault
 
        '---- Affichage du stock initial correspondant ---
        Range("C4").Formula = "=INDEX(TabRef,MATCH($A4,Ref,0),4)"
        Range("C4").AutoFill Destination:=[mStockInitialS], Type:=xlFillDefault
 
        '---- Affichage du stock mini correspondant ---
        Range("G4").Formula = "=INDEX(TabRef,MATCH($A4,Ref,0),5)"
        Range("G4").AutoFill Destination:=[mStockMiniS], Type:=xlFillDefault
 
        '-----
        '-- Calcul de la date du dernier mouvement
        '.Range("H4").FormulaArray = "=MAX(IF((sRéférence=$A4)*(sEtat=""M""),sDate))"
        .Range("H4").FormulaArray = "=MAX((sRéférence=$A4)*(sEtat=""M"")*sDate)"
        .Range("H4").AutoFill Destination:=[mDateS], Type:=xlFillDefault
        [mDateS].NumberFormat = "m/d/yyyy h:mm"
 
        '-- Derniere colonne
        .Range("I4").Formula = "=IF(mStockMiniS="""","""",IF(mStockDispoS<mStockMiniS,""Attention: Stock bas"",""RAS""))"
        .Range("I4").AutoFill Destination:=[mAlerteS], Type:=xlFillDefault
 
        Application.Calculation = xlCalculationAutomatic
        Columns("A:I").EntireColumn.AutoFit
    End With
End Sub
Alors, j'aimerais bien réduire ce code, c'est si possible.

Merci d'avance.