Couleur de texte

Couleur de texte - VB/VBA/VBS - Programmation

Marsh Posté le 30-05-2006 à 17:25:44    

Bonjour,
J'ai une case qui contient déjà du texte dans une couleur et je souhaite ajouter un texte écrit dans une autre couleur. Comment puis-je faire pour éviter que tout le texte soit de la même couleur
 
Dans mon programme je fonctionne comme suit:
 
Sub Blop()
Dim ValeurInit As String
Dim ValeurAjout As String
Dim ValeurNew As String
 
ValeurInit=Range("A1" ).Value
ValeurAjout="ce que j'ajoute"
ValeurNew=ValeurInit & Chr(10) & ValeurAjout
End Sub


---------------
Merci d'avance
Reply

Marsh Posté le 30-05-2006 à 17:25:44   

Reply

Marsh Posté le 30-05-2006 à 19:48:51    

Bonsoir,
Voilà comment ça fonctionne en VBA :

Code :
  1. Sub Test()
  2. With Range("A1" )
  3. .Value = "Début du texte en bleu" & Chr(10) & "Suite du texte en rouge"
  4. .Characters(Start:=1, Length:=22).Font.ColorIndex = 5
  5. .Characters(Start:=24, Length:=23).Font.ColorIndex = 3
  6. End With
  7. End Sub


Avec ça tu peut broder avec des variables, le principe reste le même.
A+


---------------
roger
Reply

Marsh Posté le 30-05-2006 à 23:15:20    

ou .Font.Color = RGB(x, y, z) avec x y z variant de 0 à 255 pour un arc en ciel

Reply

Marsh Posté le 31-05-2006 à 10:30:57    

Mon problème c'est que le début du texte peut déjà contenir plusieurs couleurs que je n'ai pas choisie et que je dois conserver.
 
Merci de vos réponses passées et à venir.


---------------
Merci d'avance
Reply

Marsh Posté le 31-05-2006 à 11:08:12    

Pour récupérer la chaine initiale et la couleur de chaque bribes de chaîne, il fa falloir que tu fatigues ! :D  
Je ne suis même pas certain que celà soit possible !  
Autant c'est facile de le récupérer avec l'enregistreur, autant ça me paraît coton de le coder intégralement.
Sorry.
A+


---------------
roger
Reply

Marsh Posté le 31-05-2006 à 11:26:05    

Merci quand même


---------------
Merci d'avance
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed