Bonjour,

Je suis a la recherche d'une facon de faire pour realiser mon besoin,

Je voudrai modifier une date instantanement (la date du "AUJOURDHUI") suite à la modification d'une valeur numerique d'une cellule.

Je m'explique, pour un suivis de stock, j'aimerai automatisé la mise à jour de la date de modification de quantité de l'article présent en stock.

Il me faut aussi mettre a jour automatiquement l'ancienne quantité qui elle doit rester fige apres l'ouverture du fichier.

La cellule D8 doit etre égale à la valeur de l'ancienne cellule E8 mais ne doit pas changer avant la fermeture du fichier lorsque je modifie E8.

Si je modifie E8 je veut que la date en G8 soit mise jour, mais si il n'y a pas de modification la case doit etre inchangée.

Voilà il  y a peut être d'autre solution, donc n'hesiter pas a donnée vos idées.

Si possible je voudrai pas rajouter trop de colonne en plus.

Cordialement

Bonsoir bernard, bienvenue sur XLpages.com

Pour tenter de répondre au mieux à ta demande, je ne vois que VBA. Je doute fort qu'on puisse répondre à l'ensemble des contraintes exposées avec la seule utilisation de formules de calcul...

Tu trouveras donc en pièce jointe une tentative de solution.

J'ai utilisé le code VBA suivant :

DANS LE MODULE DE CODE DE LA FEUILLE


DANS LE MODULE DE CODE THISWORKBOOK


En espérant t'avoir dépanné...

Cordialement,

Bonjour ,

Un grand merci ça marche parfaitement, il va vraiment falloir que je m'y attaque au VBA.

Cordialement

Bonjour,

Cela marche bien sauf si je suis en réseau. J'ai une erreur sur la ligne suivante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lmax As Long
     'Ne gère pas les modifications par plage entière
     If Target.Count > 1 Then Exit Sub
     Lmax = Cells(Rows.Count, 1).End(xlUp).Row
     'Si modif du stock réel en colonne E
     If Not Application.Intersect(Target, Range(Cells(36, 15), Cells(Lmax, 40))) Is Nothing Then
         If Target.Value <> Target.Offset(38, 15).Value Then
             'Si quantité change (colonne E <> colonne J), alors insérer la Date du jour en colonne G
             Target.Offset(2, 0).Value = Date
         End If
     End If
End Sub

Que faut-il faire?

Merci de votre aide

Bonsoir,

J'ai trouvé!! Cela ne fonctionnait pas car la cellule qui devait être modifiée était en mode protégé.