Date de modification cellule

Bonjour à tous,

J'ai vu de nombreux codes ici et là sur le web.

Malheureusement aucun ne donne satisfaction à ma requite. Peut-être une solution sur ce forum ? (J'espère...)

Situation de depart:

J'ai une liste de tâches à effectuer. (Tableau)

Avec un macro, je peux appuyer sur un bouton et une nouvelle ligne vient s'implémenter dans le tableau. (copie ligne 2 insérer en ligne 15)

Dans ma cellule en colonne Q, la valeur par défaut est "Neue Angabe"...

Je souhaiterais qu'en colonne S lorsque je modifie la valeur "Neue Angabe" par un autre texte, que s'affiche la date de modification en S.

Tout functionne tant que le fichier reste ouvert. Mais lors d'une nouvelle ouverture, la date (et je vois que c'est logique maintenant) se met à jour... Comme faire en sorte que la valeur "modification" reste bloqué à la date de modification effective ?

Voici mes codes :

Dans ma feuille:

Function Modification() As String

Modification = Now

End Function

Dans ma cellule :

=SI(Q25<>"Neue Angabe";modification();"")

Merci d'avance.... (je suis sûr qu'il me manqué un tout petit truc...)

Salutations !

Willau

Bonjour

Au lieu d'une fonction personnalisée, tu pourrais essayer une macro événementielle qui mettrait la l'horodate en dur chaque fois que tu modifies la cellule Q25 ou une autre de ton choix.

Bye !

Bonjour Gmb

Merci pour ton intervention.

Mais comment procède-t-on alors ?

Mes connaissances ne vont pas jusque là....

(Je suis un grand amateur du "copier-coller"....

Merci

Bonjour,

Essaie ainsi si tu persistes avec une fonction personnalisée.

Public Function Modification()
    Modification = VBA.Now
End Function

Bonjour Jean-Eric

Merci pour l'idée.

Elle ne fonctionne malheureusement pas.

A la réouverture du fichier, ma date se met à jour.

Merci tout de meme.

Willau

Re,

Pas chez moi.

Comme ça :

• Tu effaces la cellule Q25 (jaune)

o L’horodate du moment s’affiche en B8 (rose)

o Tu notes cet horodate

• Tu enregistres ton fichier et tu le fermes

o Tu l’ouvres à nouveau une minute plus tard

o en B8 il y a toujours l’horodate que tu as noté.

Mais cet horodate changera si tu valides à nouveau la cellule Q25

OK ?

Bye !

Merci à vous pour vos efforts et l'aide fournie...

Je ne m'en sors pas, même en "trafiquant" vos propositions.

Je vous fournis en pièce jointe une ébauche de mon fichier....

Protection fichier : 1234

Protection feuille : 1234

Peut être que vous verrez une solution à mon problème ...

PS

L'idée que la date et heure de modification s'affiche sur 2 lignes dans ma colonne S serait souhaitable d'être maintenue.

Merci

RE

Ci-dessous une procédure évenementielle à copier dans le le module Feuil1(SOMA_Liste).

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Me.UsedRange.Columns(17)) Is Nothing Then
        Target.Offset(, 1).Value = Application.UserName
        Target.Offset(, 2).Value = VBA.Date & Chr(10) & VBA.Time
    End If
    Set rng = Nothing
End Sub

Les fonction personnalisées Modification et Login peuvent être supprimées (si inutiles).

Cdlt.

F A N T A S T I Q U E !!!

Merci Jean-Eric, cela fonctionne à merveille.

(je n'ai fait pour l'instant que des "manipulations" simples dans mon fichier... mais ça ne devrait pas "bouger")

Grande classe et merci encore !

Si j'ose abuser ?:

Mon fichier s'ouvre en plein écran...

Les onglets sont dissimulés

Lorsque je souhaite quitter le fichier, la fenêtre "enregistrer" apparaît... et les cadres (titres/barres de formules/onglets) apparaissent...

Si j'appuie sur "annuler" tout reste affiché... ce que je veux éviter....

Existe-t-il une solution pour empêcher ça ?

Willau

Re,

Clos ce sujet et ouvres une nouvelle question pour ta nouvelle question.

Cdlt.

@ Jean-Eric

Merci pour ton intervention !

Je ne suis pas revenu sur le forum depuis un moment.

Je n'ai pas reçu de notification par e-mail (ou je l'ai loupée) ce qui fait que je ne suis pas revenu consulter ma file de messages.

Merci pour ton aide !

Bonne journée !

Cordialement

Willau