Mettre en couleur une partie d'une chaine de caractère

Question

Bonjour à tous , voici le code avec lequel j'ai un soucis:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub scrAnnée_Change()
Dim varAnnée As Single
varAnnée = scrAnnée.Value
txtAnnée.Value = "L’an " & varAnnée & " est une année bissextile."

chaine = txtAnnée.Value
couleur_chaine chaine

End Sub

Function couleur_chaine(c As String)

End Function

For i = 1 To Len(c)

    If IsNumeric(Mid(c, i, 2)) Then
    c.Characters(i, 2).Font.ColorIndex = 3
    End If

Next i

le code ne fonctionne pas , pouvez vous m'aider?

nb : je suis au travail et je n'ai pas beaucoup le temps pour rediger ma question lol désolé

merci d'avance

Banzai64 · Answer

Un fichier serait utile entre-autres Ton code n'est pas placé entre Function ...... End Function Characters n'est pas une propriété d'une chaine de caractères Une fonction est sensée retourner une valeur, mais pas dans ta formulation couleur_chaine chaine C'est pour ça...

Theze · Answer

Ca ne marchera absolument pas car le TextBox ne sait pas gérer les couleurs pour différents caractères mais seulement pour l'ensemble (ForeColor). D'ailleurs, il n'a pas de propriété "Characters" comme une cellule. Pour ça, il faudrait voir du coté d'un RichTextBox mais qui n'est pas fourni par défaut dans Excel, il faudrait télécharger l'ocx (richtx32.ocx je crois) et l'enregistrer ce qui ne réussi pas toujours. Hervé...