Afficher la date de la dernière modification

Bonjour à tous

Je dois compléter une feuille de manière régulière. des simples données que copie-colle.

Je souhaiterais avoir un genre de pop-up ou useform ou autre chose qui permette de m'indiquer la date du dernier ajout.

Pouvez vous m'aider ?

merci

Salut Nicoben,

sans fichier, on navigue à vue...

Ici, tu as une solution à la va-vite.

Une première macro qui inscrit la date du jour en [A1] lorsque quelque chose change/est ajouté dans la colonne B.

Une deuxième qui affiche cette date dans une MsgBox lorsque tu cliques sur [A1]. Utile si [A1] est invisible, évidemment ou si cette date est copiée ailleurs...

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    [A1] = Date
End If
'
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
    MsgBox [A1]
End If
'
End Sub

A+

Bonjour,

Tu n'es pas nouveau sur le forum.

Ta question, c'est une énigme, une devinette.

Alors, tu REformules et tu joins un fichier à ta demande.

Cdlt.

bonjour à tous

effectivement, c'est mieux avec le fichier, désolé

En PJ mon ex. Je cherche donc à avoir en S2 par ex ou en pop-up la date du dernier copié-colle que je ferais sur ce fichier.

J'espère que c'est plus clair comme cela.

Merci à vous

Re,

Non ce n'est pas plus clair.

Cdlt.

Salut Nicoben,

à peu de choses, c'était bon!

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    [S1] = Date
End If
'
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Application.Intersect(Target, Range("A1:Z1")) Is Nothing Then
    MsgBox [S1]
End If
'
End Sub

Pour récupérer la date de la dernière modification (basée sur un changement en colonne A), tu cliques n'importe où sur la première ligne de ta feuille.

A+

re-bonjour

je vais essayer de le formuler différemment.

Comme je fais des copié collé d'autre données sur ce fichier, je voudrais éviter les doublons mais aussi être sûr que toutes les données ont été importées. (j'ai plusieurs onglet comme celui là ).

Je voudrais donc avoir une information indiquant la date du dernier ajout. Autrement dit, lorsque je vais remplir la ligne 312 de mon tableau, si je le fais aujourd'hui, je souhaiterais que la date apparaisse. Donc, uniquement dans le cas ou une ligne a été modifiée, pas dans le cas de l'ouverture de ce document.

Est-ce plus clair comme cela ?

merci

merci curulis57 mais je comprends pas ou je peux recuperer la date.

J'ai bien intégré ta macro dans un module, créé un bouton pour l'activé mais rien ne s'affiche. Comment faire ?

merci

Re,

Je ne comprends pas la demande. Je passe donc le relais, à d'autres intervenants.

Comme je fais des copié colléd'autre données sur ce fichier, je voudrais éviter les doublonsmais aussi être sûr que toutes les données ont été importées. (j'ai plusieurs onglet comme celui là ).

Cdlt.

Salut,

Bonjour Jean-Eric,

c'est vrai que les demandes s'entrechoquent!

Ici, Nicoben, je ne m'occupe QUE de la date dans CETTE feuille!

Le code, en l'état, ne doit pas être intégré dans un module mais directement dans la feuille concernée.

Je te mets le fichier, ce sera plus simple!

A+

Merci .

J'ai essayé de l'intégrer dans mon fichier de base mais ca ne fonctionne pas.

Pour le faire, j'ai copié-collé ton code, j'ai doublic sur ma feuille concerné pour y intégrer ton code mais je n'ai rien.

Ai-je fait la bonne manipulation ?

Difficile à dire sans rien voir!

Je crois que, plus simple, tu meurs!

Si ton fichier de base est trop lourd, passe-le via CJOINT.COM!

A+

merci de ton retour.

c'est bon, ca fonctionne.

merci