Verouiller un commentaire sans protéger la feuille

[SiD88]

Bonjour,

J'ai une cellule, T52 dans mon cas, où je rentre de manière journalière un nombre d'heure sous forme de formule.

Ex: jour 1: =52.30
jour 2: =52.30+20
jour 3: =52.30+20+18
.
.
.
ECT

A cette même cellule, j'ai inséré un commentaire du genre "Les 20h ont été réalisé par X, les 18h par Y, les 52.30 par Z ect"

Comment je fais pour verrouiller ce commentaire (c'est à dire personne peut venir faire clique droit, modifier/supprimer le commentaire) sans verrouiller la feuille ou la cellule (la cellule doit rester modifiable)

Merci

 

[Pierrot93]

Re : Verouiller un commentaire sans protéger la feuille

Bonjour,

regarde peut être ce lien, espérant qu'il puisse t'aider :
http://boisgontierjacques.free.fr/pages_site/commentaire.htm#CmtPropio
bonne journée
@+

 

[SiD88]

Re : Verouiller un commentaire sans protéger la feuille

Bonjour Pierrot93,

Il n'y a pas ce que je cherche mais je vais comme même piquer ton lien!
Il semblerait qu'il n'y pas de solution pour mon problème, je suis obligé de verrouiller la cellule pour verrouiller mon commentaire 🙁

Je suis cependant preneur de toute autre solution, même barbare.

A bientôt

 

[job75]

Re : Verouiller un commentaire sans protéger la feuille

Bonjour SiD, salut Pierrot,

On peut par exemple, lors de la création du commentare, en mémoriser le texte dans un nom défini.

On peut ensuite modifier le commentaire, mais il est rétabli quand on sélectionne une autre cellule :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
[T52].AddComment
[T52].Comment.Text [texte]
End Sub

Sub CreerCommentaire()
Dim t As String
t = "Les 20h ont été réalisé par X, les 18h par Y, les 52.30 par Z"
[T52].ClearComments
[T52].AddComment t
ThisWorkbook.Names.Add "texte", t 'nom défini
End Sub

Fichier joint.

 

[job75]

Re : Verouiller un commentaire sans protéger la feuille

Re,

Si l'on craint que le nom défini soit piraté on peut le masquer lors de sa création :

ThisWorkbook.Names("texte").Visible = False

Fichier (2).

A+

 

[SiD88]

Re : Verouiller un commentaire sans protéger la feuille

Bonjour job75,

Ça marche nickel. C'est marrant,ces temps ci, dés que j'ai un souci sur Excel, c'est toi qui me trouve une solution.
Si ça continue je vais te mettre en remerciement dans mes projets!

Merci encore et à bientôt