XL 2013 Soustraction deux colonnes

Doze3 à dit:

Bonjour a tous,

Je recherche comment soustraire deux colonnes et écraser l'ancienne valeur de la colonne quantité avec le résultat. Petite condition si le total est négatif le résultat doit être zéro.

Merci beaucoup.

Cliquez pour agrandir...

=MAX(0;B2-C2)

Doze3 à dit:

Bonjour.

J'ai n'ai pas de problème à résoudre le problème via formules. J'ai vraiment besoin que la problématique soit résolu en VBA, pour une insertion futur dans un plus gros projet ainsi que pour moi-même dans un but de compréhension du code utilisé.

Cliquez pour agrandir...

Sub echange()
    Columns(4).Insert
    Range("d2:d" & Cells.Find("*", , , , xlByRows, xlPrevious).Row).Formula = "=MAX(0,b2-c2)"
    Range("d2:d" & Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy
    [b2].PasteSpecial Paste:=xlPasteValues
    Columns(4).Delete
End Sub