coloration de texte

J

jmd2

XLDnaute Accro

• 6 Juin 2008

• #2

Re : coloration de texte

hello

il va falloir trouver un super formuliste (ou faire du VBA),
mais à quoi peut bien servir cette recherche de 3 lettres qui se suivent (dans l'alphabet je suppose) ?

************************************************************

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 6 Juin 2008

• #3

Re : coloration de texte

Bonjour,

Il n'est pas possible d'appliquer un format par formule, forcément sur une partie de texte.

abcd

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 6 Juin 2008

• #4

Re : coloration de texte

Bonsoir,

Heu.... dans l'alphabet... Où ailleurs sinon ?

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 6 Juin 2008

• #5

Re : coloration de texte

Re,

Il s'agit, ici, de colorier un texte ou une partie de texte... Je ne sais pas faire (encore que, il y a plusieurs exemples et réponses sur le forum), donc je me tais.

Sans plus d'interventions, ici ou ailleurs.... tu vois jmd, jmd2 etc?

Edit : Salut abcd, pas vu toi

 

Dernière édition: 6 Juin 2008

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 6 Juin 2008

• #6

Re : coloration de texte

Bonsoir à tous.
Merci pour vos réponses.
J'ai pris comme exemple "ABC", mais ce sont 3 lettres DMC ou autres.
Actuellement pour les mettre en évidence, je le sélectionne ligne par ligne
et je les modifie en leur appliquant le format que je vous ai demandé.

En attendant une réponse.
Cordialement.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 6 Juin 2008

• #7

Re : coloration de texte

Bonsoir,

Code:

 mot = "abc"
 For Each c In [n1:n7]
  p = InStr(UCase(c), "ABC")
  If p > 0 Then c.Characters(Start:=p, Length:=3).Font.ColorIndex = 3
 Next

JB

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 6 Juin 2008

• #8

Re : coloration de texte

Bonsoir à tous.

Merci Jacques pour ta réponse.
Cela fonctionne à merveille.
Quelles lignes ajouter pour pour que les trois lettres soient
comme indiqué dan mo post - en caractère gras - police taille 11.

Par avance merci.
Cordialement.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 7 Juin 2008

• #9

Re : coloration de texte

Bonjour,

Code:

mot = "abc"
 For Each c In [n1:n7]
  p = InStr(UCase(c), "ABC")
  If p > 0 Then
    c.Characters(Start:=p, Length:=3).Font.ColorIndex = 3
    c.Characters(Start:=p, Length:=3).Font.Bold = True
    c.Characters(Start:=p, Length:=3).Font.Size = 11
  End If
 Next

JB

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 7 Juin 2008

• #10

Re : coloration de texte "PARFAIT"

Bonjour tout le forum et à toi Jacques.

Mille mercis pour ton aide.
Un seul un mot Bravo !
Bon week-end.

Cordialement.

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 10 Juin 2008

• #11

coloration de texte avec "X" 6ème colonne à gauche

Bonsoir tout le forum.

Je reviens vers vous pour faire évoluer mon projet.
Comment ajouter un "X" à la sixième colonne à gauche de chaque "ABC" trouvé.
en continuanttoujours à les colorer. Voir programme de J. BOISGONTIER.

Par avance merci.
Cordialement.

 

Pièces jointes

• coloration_Texte.zip

  12.3 KB · Affichages: 18
• coloration_Texte.zip

  12.3 KB · Affichages: 26
• coloration_Texte.zip

  12.3 KB · Affichages: 28

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 10 Juin 2008

• #12

Re : coloration de texte

Bonsoir,
A tester en rajoutant la ligne rouge :

Code:

Sub colorer()
mot = "abc"
 For Each c In [n1:n7]
  p = InStr(UCase(c), "ABC")
  If p > 0 Then
    c.Characters(Start:=p, Length:=3).Font.ColorIndex = 3
    c.Characters(Start:=p, Length:=3).Font.Bold = True
    c.Characters(Start:=p, Length:=3).Font.Size = 11
   [B][COLOR="Red"] c.Offset(0, 6) = "X"[/COLOR][/B]
   End If
 Next
End Sub

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 10 Juin 2008

• #13

Re : coloration de texte

Bonsoir Lii

Merci pour ta réponse.
Ca fonctionne bien.

Cordialement.

 

Vote positif 0 Vote négatif