Creation automatique de commentaire

[bleck]

Bonjour a tous,

A l'interieur d'une plage (ex B8/M24) est il possible lorsque je rentre une information dans une cellule que se cree automatiquement un commentaire indiquant la date et l'heure ?

Par avance, merci a tous
Francis

 

[myDearFriend]

Bonsoir Bleck,

Tu peux essayer d'insérer le code ci-desous dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("B8:M24")) Is Nothing Then
On Error Resume Next
Target.Comment.Delete
Target.AddComment "Modifié le : " & Format(Now, "dd/mm/yyyy hh:mm")
On Error GoTo 0
End If
End Sub

Cordialement.
Didier_mDF

 

[bleck]

Merci beaucoup Didier, mais comment fait-on pour inserer le code dans le module de la feuille?

 

[myDearFriend]

Re- Bleck,

Ton classeur est ouvert, tu veux que cette macro fonctionne sur la feuille 1, tu fais :

- ALT+F11 pour te retrouver dans l'éditeur VBA.
- Puis, CTRL + R pour afficher l'explorateur de projet (s'il n'est pas déjà affiché). L'explorateur de projet c'est la petite fenêtre au haut à gauche.
- Tu double-clic sur "VBAProject(LeNomDeTonClasseur)" pour développer l'arborescence.
- Tu double-clic cette fois sur l'objet "Feuil1(Feuil1)" et le module de code de la feuille 1 s'ouvre dans la fenêtre principale.
- Et tu fais un copier-coller du code à cet endroit (toutes les lignes de "Private Sub...." à "End Sub" incluses)
- Tu peux ensuite fermer l'éditeur VBA et sauvegarder ton classeur.


Bon courage.

Cordialement.
Didier_mDF

 

[bleck]

Cest super, ça marche a merveille.
Juste a titre de curiosité, j'avais 250 page et j'ai copié collé une par une.
Y avait-il un moyen plus rapide?
Encore merci, Didier, et bonne nuit a tous

 

[myDearFriend]

Ben oui, lol.

250 fois ! Tu aurais du le dire...

Il aurait simplement suffit de coller le code ci-dessous une seule fois dans l'objet ThisWorkbook cette fois :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

If Not Application.Intersect(Target, ActiveSheet.Range("B8:M24")) Is Nothing Then
On Error Resume Next
Target.Comment.Delete
Target.AddComment "Modifié le : " & Format(Now, "dd/mm/yyyy hh:mm")
On Error GoTo 0
End If

End Sub


Mise à part le nom de la procédure Workbook_SheetChange c'est quasiment la même chose.

Cordialement.
Didier_mDF

 

[bleck]

Merci pour toutes tes explications Didier. Grace a elles, j'enrichis mes connaissances, et je t'en remercie. Bien, malgre qu'il soit une heure de moins chez moi, je crois qu'il est temps d'aller faire dodo.
Alors, de beaux reves pour tous et a bientot
Merci