Couleur sur du text

[Roger69]

Bonjour le forum
je voudrais mettre de la couleur sur du texte concernant le code ci-dessous, couleur de texte sur "FIN DE SERVICE"
pour qu' à la Saisie via le formulaire il puisse apparaitre d'une couleur dans le tableau merci de votre aide

Private Sub OptionButton2_Click()
If OptionButton2 Then T4 = "": T4 = "FIN DE SERVICE"
End Sub

 

[Pierrot93]

Re : Couleur sur du text

Bonjour,

si T4 est un "textbox", regarde du coté de la propriété"forecolor" de l'objet...

sans plus de détail, difficile d'en dire plus...

bonne journée
@+

 

[BOISGONTIER]

Re : Couleur sur du text

Bonjour,

D'après la syntaxe, T4 ne peut être qu'un TextBox

Private Sub OptionButton2_Click()
If OptionButton2 Then T4 = "FIN DE SERVICE": T4.ForeColor=vbRed
End Sub

Pour prendre la couleur d'écriture de la cellule N2

Private Sub OptionButton2_Click()
If OptionButton2 Then T4 = "FIN DE SERVICE": T4.ForeColor=[N2].Font.Color
End Sub

JB

 

[Roger69]

Re : Couleur sur du text

bonjour BOISGONTIER et Pierrot93

je vais essayer le code que tu a fournis

 

[Roger69]

Re : Couleur sur du text

Bon je ne doit pas être doué je ne vois pas l'écriture de couleur s'inscrire dans le tableau des cellule de la main courante

 

[Pierrot93]

Re : Couleur sur du text

Re,

peut être à placer ici :

.Cells(vLign, 5) = T4
.Cells(vLign, 5).Font.coloriindex = 3
        .Cells(vLign, 6) = TextBox2

dans ta procédure "transfert... mais vu le code que tu as déjà fait, cela ne devrait pas te poser de problème...

 

[Roger69]

Re : Couleur sur du text

c'est un fichier que j'ai modifier, pour se faire je ne suis pas un pros de code, pour revenir au code que vous avez donner sa n'a pas l'air de fonctionner j'ai mis les codes au endroit indiquer mais sans succer sa me met des erreur donc j'ai enlever est toujours pas résolue mon souci .

 

[Pierrot93]

Re : Couleur sur du text

Re,

faute de frappe dans le code :

.Cells(vLign, 5) = T4
.Cells(vLign, 5).Font.colorIndex = 3
        .Cells(vLign, 6) = TextBox2

 

[Roger69]

Re : Couleur sur du text

Merci Pierrot93 cela fonctionne merci encore pour ton aide est merci aussi à BOISGONTIER pour le soutien d'aide rapide merci encore
bonne journée @+

 

[Roger69]

Re : Couleur sur du text

Juste une question possible de mettre Appel du 18 en rouge par exemple prise de service en vert foncé fin de service en orange appel du 17 en bleu?

 

[Pierrot93]

Re : Couleur sur du text

Re,

oui, faire un test "if" sur la cellule ou la textbox....

 

[Pierrot93]

Re : Couleur sur du text

Re,

allez une tentative... numéro de "colorindex" à adapter, l'enregistreur de macro te donnera les bons...

        .Cells(vLign, 5) = T4
        
        If T4 = "Prise de service" Then
            .Cells(vLign, 5).Font.ColorIndex = 3
            ElseIf T4 = "Fin de service" Then .Cells(vLign, 5).Font.ColorIndex = 8
            ElseIf T4 = "Appel du 18" Then .Cells(vLign, 5).Font.ColorIndex = 11
            ElseIf T4 = "Appel du 17" Then .Cells(vLign, 5).Font.ColorIndex = 15
        End If

        .Cells(vLign, 6) = TextBox2

 

[Roger69]

Re : Couleur sur du text

je mis le code que tu a fournis mais il ne fonctionne pas les couleurs ne prenne pas en compte sa reste rouge sur tous sur appel du 18 - sur appel du 17 - sur fin de service - et prise de service !

 

[Pierrot93]

Re : Couleur sur du text

Bonjour,

fonctionne chez moi... la couleur de police de caractères est modifiée dans la cellule...

bonne journée
@+

 

[Roger69]

Re : Couleur sur du text

je vient de voir que j'avais fait une erreur le code fonctionne bien merci encore Pierrot93 pour ton aide apporter bonne journée @+