Discussion :

[Invité]

Bonjour,

J'aimerai une aide pour corriger ou proposer une autre macro.

En fait pour la référence D-00001, si je saisi 3 en besoin, il tape dans L1 pour prendre cette quantité (donc il fait 10-3=7).
Donc normalement pour la référence suivante D-00004, en L1 on doit avoir 7 au lieu de 5 et ainsi de suite . Veuillez trouver le fichier ci-dessous: Merci.


Pièce jointe 524585

[ARTURO83]

Bonjour,

Si j'ai bien compris,
B6=B2-D2, B10=B6-D6, B14=B10-D10
B7=B3-D3, B11=B7-D7, B15=B11-D11
B8=B4-D4, B12=B8-D8, B16=B12-D12
B5=SOMME(B2:B4), B9=SOMME(B6:B8), B13=SOMME(B10:B12), B17=SOMME(B14:B16)

Si c'est cela, pas besoin de macros, de simples formules suffisent
Pièce jointe 524616

Cdlt

[Invité]

Merci c'est bien ça, mais j'aimerai une macro qui automatise ça quand on ajoute une nouvelle ligne, puisque il y'a beaucoup de références derrière.

En plus j'aimerai une macro pour pas que les utilisateurs modifient les formules.

Encore Merci !

[ARTURO83]

Ok, je vous fais ça

[ARTURO83]

Voilà,
Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Calculer()
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    [B5].FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    For i = 6 To DerLig Step 4
        Range(Cells(i, "B"), Cells(i + 2, "B")).FormulaR1C1 = "=R[-4]C-R[-4]C[2]"
        Cells(i + 3, "B").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    Next i
    Range(Cells(2, "B"), Cells(DerLig + 3, "B")).Value = Range(Cells(2, "B"), Cells(DerLig + 3, "B")).Value
End Sub

Le fichier
Pièce jointe 524622

Cdlt

[Invité]

C'est parfait !

Mais si j'ajoute une nouvelle ligne il prend pas en mémoire le stock restant.

Par exemple comme dans le fichier joint j'ai ajouté 2 à la colonne E mais il affiche que des 0 en colonne jaune alors qu'il reste 3 en stock (colonne F).

Si j'ai ça c'est top !

Pièce jointe 524626