Change le commentaire modifié à chaque fois

**destiny71** · 14/01/2010, 14h39

Bonjour!

Je ne sais pas si je vais pouvoir vous l'exprimer comme il faut de manière à ce que cela soit bien claire... mais je vais essayer..

Voilà j'ai écris ce code afin de faire apparaître un commentaire selon la valeur d'une cellule. Cependant j'aimerais pouvoir modifier ce commentaire et qu'à chaque clique sur le "bouton" cela ne me réinitialise pas mon commentaire modifié par celui d'origine.
D'avance merci pour vos réponses...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Bouton7604_Clic()
Dim c As Range
For Each c In Range("c5:g10")
If c < 8 And Not c.Comment.Text = "CP" Then
c.Comment.Text "RTT"
Else
On Error Resume Next
c.Comment.Delete
End If
Next

**LeForestier** · 14/01/2010, 15h23

Bonjour,
J'ai essayé de comprendre ce que tu veux mais avec ton code c'est pas possible, pourrais-tu expliquer ce que tu veux exactement.
A+

**destiny71** · 14/01/2010, 15h42

Merci déjà dans un premier de te pencher sur mon problème,

Voilà,

J'ai crée un tableau de gestion d'heures travaillées. Dans ce Tableau les journées complètes travaillées sont à 8 ou plus (> 8 heures), dans ce cas lorsque la journée est complète, il n'y a pas de commentaire à afficher.
Cependant, lorsque la journée comporte moins d'heures (< 8), cela signifie que l'employé a soit prit un "RTT" ou un "CP", dans ce cas on affiche un commentaire qui d'origine dans le code sera "RTT".
MAIS je veux pouvoir modifier ce "RTT" par "CP" lorsque c'est nécessaire. Le problème qui survient c'est que lorsque j'appui sur mon bouton d'actualisation (celui qui va lancer la macro), tous mes commentaire sont réinitialisés à "RTT" ... (même ceux que j'ai modifiés en "CP")