Couleur sur du text

Pierrot93

XLDnaute Barbatruc

• 8 Avril 2015

• #2

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
@+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 8 Avril 2015

• #3

Re : Couleur sur du text

Bonjour,

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

Code:

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

Code:

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

JB

 

Dernière édition: 8 Avril 2015

Vote positif 0 Vote négatif

Roger69

XLDnaute Junior

• 8 Avril 2015

• #4

Re : Couleur sur du text

bonjour BOISGONTIER et Pierrot93

je vais essayer le code que tu a fournis

 

Vote positif 0 Vote négatif

Roger69

XLDnaute Junior

• 8 Avril 2015

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Avril 2015

• #6

Re : Couleur sur du text

Re,

peut être à placer ici :

Code:

.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...

 

Vote positif 0 Vote négatif

Roger69

XLDnaute Junior

• 8 Avril 2015

• #7

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 .

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Avril 2015

• #8

Re : Couleur sur du text

Re,

faute de frappe dans le code :

Code:

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

 

Vote positif 0 Vote négatif

Roger69

XLDnaute Junior

• 8 Avril 2015

• #9

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 @+

 

Vote positif 0 Vote négatif

Roger69

XLDnaute Junior

• 8 Avril 2015

• #10

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Avril 2015

• #11

Re : Couleur sur du text

Re,

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Avril 2015

• #12

Re : Couleur sur du text

Re,

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

Code:

        .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

 

Vote positif 0 Vote négatif

Roger69

XLDnaute Junior

• 9 Avril 2015

• #13

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 !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Avril 2015

• #14

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
@+

 

Vote positif 0 Vote négatif

Roger69

XLDnaute Junior

• 9 Avril 2015

• #15

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 @+

 

Vote positif 0 Vote négatif