Soustraction de valeurs à chaque 1er du mois

Bonjour à tous,

Dans ma cellule B2 se trouve une date (la date actuelle)

Dans ma colonne "E" se trouve mon stock actuel , puis, dans ma colonne "H" se trouve mes estimations de quantité vendue par mois.

Est il possible, qu'à chaque 1er du mois, mon stock diminu des estimation de ventes ?

Avec si possible, mes cellules de stock mini qui deviennent rouge si le stock mini est atteint

(En VBA ou non)

Merci de votre aide

bonjour

en informatique pour la gestion de stocks, on ne saisit jamais le stock, on saisit les mouvements de stock.

(certains progiciels permettent la saisie des stocks réels, mais sans te le dire, ce stock est vite transformé en mouvement. Seuls les mouvements sont intéressants)

uen feuille en colonnes :

• date
• référence
• entrée
• sortie
• mouvement = entrée - sortie

ensuite tu fais des TCD pour voir les stocks à n'importe quelle date, y compris dans le futur

ta question devient donc "ajouter le 01 de chaque mois une ligne de mouvement égale à une prévision"

tu peux même, en ajoutant une colonne "prévision" tenir le stock réel et le prévisionnel

Bonjour,

Ce code devrai te convenir

Sub Dbt_mois()
    Dim i As Integer, StockActu As Integer, Prevision As Integer
    For i = 6 To 11 '6 => où le tableau commence | 11 => le nombre d'article que tu as
         StockActu = Range("e" & i).Value
        Prevision = Range("h" & i).Value
        StockActu = StockActu - Prevision
        Range("E" & i).Value = StockActu
    Next
End Sub

Il faut l'intégrer à un bouton où tu cliques à chaque début de mois.

PS: je travaille sur le changement de couleur des cellules

Re-bonjour,

Voici le code complet à mettre dans le Workbook

Private Sub Workbook_Open()
Dim i As Integer, StockActu As Integer, Prevision As Integer
    If Range("B2").Value Like "*01/0*" Or Range("B2").Value Like "*01/1*" Then
        For i = 6 To 11 '6 => où le tableau commence | 11 => le nombre d'article que tu as
            StockActu = Range("e" & i).Value
            Prevision = Range("h" & i).Value
            StockActu = StockActu - Prevision
            Range("E" & i).Value = StockActu
            If StockActu < Prevision Then
                Range("e" & i).Interior.Color = RGB(255, 166, 166)
            Else
                Range("e" & i).Interior.ColorIndex = xlColorIndexNone
            End If
        Next
    End If
End Sub

Lorsque tu va ouvrir ton fichier EXCEL le 1e du mois , il se mettra à jour.