Discussion :

[iZinoux]

Bonjour !

Je me tourne vers vous car j'ai un problème avec un code.
Je vous explique, je dois gérer des stocks de réactifs. Pour cela nous avons une fiche avec :
Date de réception / Date d'ouverture.
Lorsqu'une bouteille est ouverte elle sort du stock donc une date d'ouverture est renseignée.

J'aimerais un code VBA qui regarde si en date de réception il y a une date et en date d'ouverture il n'y a rien pour ajouter 1 au stock.
J'ai fais ce bout de code qui m'affiche tout le temps 0 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CalculStock()
    Dim i, Somme As Long
 
    With Sheets("Fiche de vie")
        For i = 6 To 50
            If Cells(i, 1) = Format(date_test, "dd/mm/yyyy") And Cells(i, 4) = 0 Then
            Somme = Somme + 1
            End If
        Next i
    End With
 
    Cells(5, 14) = Somme
End Sub

J'ai beau cherché partout, je ne trouve pas de solutions à mon problème.
Merci d'avance pour votre aide !

[MarcelG]

Bonjour et bienvenu sur le Forum,

Tu peux tester sur la propriété

Code :

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

IsDate

[iZinoux]

C'est bon! Ca fonctionne !
Merci beaucoup