Coloration d'une partie d'une cellule implémentée
Bonjour à tous,
Voilà je vous explique mon problème.
J'ai un tableau Excel qui est rempli à l'aide d'un Userform.
Dans ce Userform, j'ai un champ commentaire qui implémente une cellule commentaire du tableau.
A chaque fois que l'utilisateur saisit un nouveau commentaire, celui-ci vient se mettre dans la même cellule que celui d'avant, à la ligne.
Mon code pour ça fonctionne sans problème.
De plus, je souhaite laisser la possibilité à l'utilisateur de pouvoir mettre son commentaire en rouge.
J'ai donc créé une Checkbox qui quand elle est cochée met le commentaire saisi en rouge.
Cette partie fonctionne aussi.
Mon problème est lorsque je répète plusieurs fois mon code.
Le programme ne garde pas en mémoire les précédents commentaires en rouge, ils les remet en noir.
Bref, seul mon dernier commentaire s'affiche en rouge alors que je voudrais garder la couleur pour tous.
Voilà mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| If Info.TI_com.Value <> "" Then
q = Len(Range("F" & j))
Range("F" & j).Select
ActiveCell.FormulaR1C1 = _
Range("F" & j).Value & Chr(10) & Info.TI_com.Value
r = Len(Range("F" & j))
s = r - q
If Info.CB_rouge = True Then
With ActiveCell.Characters(Start:=q + 1, Length:=s).Font
.Color = -16776961
End With
End If
End If |
Merci d'avance pour votre aide,
Co²
