T
Trash
Guest
Bonjour,
J'ai un gros probleme sur VBA Excel.
J'ai une cellule.
Dans cette cellule, j'ajoute un texte1 issu d'une checkbox, ce texte doit être affiché en rouge.
Ensuite, j'ajoute dans la même cellule à la suite du texte1, un texte2 qui doit être affiché en bleu
et ainsi de suite...
Je n'arrive pas à coordonner le coloriage avec la fonction Characters. Quelqu'un peut m'aider ?
If Form1.wellbore.Value = True Then
text3 = text3 & ', wellbore'
End If
If Form1.feet.Value = True Then
text3 = text3 & ', feet'
End If
len3 = Len(Range('O' & i))
With Range('O' & i)
.Value = Range('O' & i) & text3
.Characters(len3 + 1, Len(text3) + 1).Font.ColorIndex = 6
End With
Merci de votre aide !
J'ai un gros probleme sur VBA Excel.
J'ai une cellule.
Dans cette cellule, j'ajoute un texte1 issu d'une checkbox, ce texte doit être affiché en rouge.
Ensuite, j'ajoute dans la même cellule à la suite du texte1, un texte2 qui doit être affiché en bleu
et ainsi de suite...
Je n'arrive pas à coordonner le coloriage avec la fonction Characters. Quelqu'un peut m'aider ?
If Form1.wellbore.Value = True Then
text3 = text3 & ', wellbore'
End If
If Form1.feet.Value = True Then
text3 = text3 & ', feet'
End If
len3 = Len(Range('O' & i))
With Range('O' & i)
.Value = Range('O' & i) & text3
.Characters(len3 + 1, Len(text3) + 1).Font.ColorIndex = 6
End With
Merci de votre aide !