Remplacement d'une date par une autre

Bonjour à tous,

Je reviens vers vous pour un problème sur lequel je butte de nouveau.

Dans mon fichier ci-joint, j'ai un soucis de date

En cliquant sur gestion de stocks - Entrer des stocks, lorsque l'on saisie la date, à la validation elle n'est pas prise en compte et dans l'onglet "Pharmacie centrale" qui garde l'ancienne date.

Ce que je voudrai, c'est que si la date saisie via entrer des stocks est antérieure à celle figurant sur l'onglet "Pharmacie centrale", elle se substitue à celle présente dans l'onglet "Pharmacie centrale" sinon pas de changement ?

Ai-je été clair et surtout pensez vous que cela soit réalisable ?

Par avance, merci.

bonjour,

Dans la Private Sub CommandValiderEntrée_Click() rajouter la ligne indiquée :

'...
   With Sheets("Pharmacie centrale")
       .Unprotect "SDIS"
       .Cells(LigneDansBase, 3) = .Cells(LigneDansBase, 3) + CByte(Me.TxtQuantitéAEntrer)
       iR = LigneDansBase  'rajouter cette ligne et la ligne suivante
       .Cells(iR, 7) = IIf(CDate(LaDate) < .Cells(iR, 7), CDate(LaDate), .Cells(iR, 7))
                'la suite sans changement...
       .Protect "SDIS", True, True, , True
   End With
'...

A+

Bonjour Galopin01,

C'est parfait, un très grand merci.

Au plaisir.