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 : Sélectionner tout - Visualiser dans une fenêtre à part
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²