Date de mis à jour de la ligne dans un commentaire

[La Vouivre]

Bonjour les amis

Il y a bien longtemps que je suis venu vous demander de l’aide, aider du forum j’ai pu me débrouiller tout seul pour faire mes fichiers est je vous remercie de l’aide que vous m’apporter quotidiennement.

Mais la je bloque sur une astuce en VBA

J’ai trouvé de nombreuse discussion sur le sujet de la date du dernier enregistrement, mais pas celui que je recherche.

Il me faut mettre un commentaire avec la date du dernier enregistrement de la ligne, et je trouve pour le fichier, mais pas pour la ligne est en plus dans un commentaire


Je vous mets un fichier en exemple

Sur la feuille 1 j’ai en « A1 » la date de la dernière mis à jour du fichier avec cette macro


Dans le thisworkbook j'ai une macro qui me donne la dernière mise à jour du fichier en "A1"

'Date de mise à jour par feuille

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

titre = ActiveSheet.Name

reponse = MsgBox("Actualiser la date de mise à jour de la feuille " + titre + " avant d'enregistrer le fichier?", vbOKCancel)

If reponse = vbOK Then

Dim fs, f

nom = ActiveWorkbook.FullName

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(nom)

Cells(1, 1) = "Mis à jour le " + Left(f.DateLastModified, 10)

End If

If reponse = vbCancel Then

End If

End Sub



on me demande de le faire par ligne dans un commentaire comme l'exemple

que chaque nom de patronyme ait la date de la dernière mise à jour de façon à savoir quand a été mis à jour le contact est cela sur 3000 lignes, perso je préférerais de la ligne 2 jusqu'en bas de la colonne

 

[Eric 45]

Bonjour à tous
Bonjour La Vouivre

Je n'ai pas ouvert ton fichier. Si j'ai bien compris, tu veux : si tu modifies la cellule X27, que dans la cellule A27 il y ai un commentaire avec la date du jour. Je te propose ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a" & ActiveCell.Row).Comment Is Nothing Then
Range("a" & Target.Row).ClearComments
End If
Range("a" & Target.Row).AddComment
Range("a" & Target.Row).Comment.Text Text:="" & Date & ""
End Sub

A +
Eric

 

[La Vouivre]

Merci beaucoup mon ami

C’est pile poil ce que je cherchais

Je te remercie pour ton aide

Bonne soirée

 

[La Vouivre]

Mon amis ERIC 45

La macro fonctionne très bien si j’ajoute des données, mais me fait une erreur si je supprime des données

Erreur d’exécution 1004

Range("b" & Target.Row).AddComment


J’ai changé la colonne des commentaires en « B »

 

[riton00]

Bonsoir,

Autre méthode par double clic dans n'importe quelle cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.AddComment
    .Visible = False
    .Text "contact mis à jour le " & Date
End With
Target.Offset(1, 0).Select    
End Sub

Slts

 

[La Vouivre]

Merci riton00 pour ta proposition elle marche bien

Mais je dois mettre la date de la modif dans un commentaire, demande du chef


Je vous repasse le fichier, une erreur 1004 apparait quand je supprime les données ou que je change de colonne après une modif sur la ligne de code

Range("B" & Target.Row).AddComment

Comment je peux modifier la ligne

 

[Eric 45]

Essaie ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = "" Then
Range("a" & Target.Row).ClearComments
End If
If Not Range("a" & Target.Row).Comment Is Nothing Then
Range("a" & Target.Row).ClearComments
End If

Range("a" & Target.Row).AddComment
Range("a" & Target.Row).Comment.Text Text:="" & Date & ""
End Sub

A+

 

[La Vouivre]

Un grand merci pour ce travail, après essais ça marche quand je supprime une donnée, mais si je supprime plusieurs données par exemple enlever une personne j’ai l’erreur 13

Sur la ligne

If Target = "" Then

Merci pour ta patience mon amis Eric 45

 

[La Vouivre]

Bonjour les amis,

En cherchant de mon côté une solution, j’ai trouvé une macro qui met la date de la dernière modif faite sur une ligne, je vous la passe pour partager, mais ça ne solutionne pas mon problème de la date dans un commentaire

Qui peut m’aider, car moi je sèche complètement

 

[riton00]

Bonsoir

Je ne sais pas si cela solutionnera ton problème mais dans le fichier joint un commentaire se créera avec la date et heure par simple double clic dans une cellule

Slts

 

[riton00]

Re La Vouivre

Autre solution... Dans la plage B1:B100 tu écris un nom dans une cellule et un commentaire apparaîtra avec la date et heure

Slts

 

[La Vouivre]

Bonjour les amis,

Merci pour vos réponses

Les deux solutions fonctionnent bien

Bon weekend à tous