Colorier certains mots

  • Initiateur de la discussion doom
  • Date de début
D

doom

Guest
Bonsoir
un petit problème depuis longtemps.
Comment colorier d'une certaine couleur ( bleue ), certains mots dans un texte ( tous les " bonjour ", " bonsoir ", etc.... ) avec un module VBA ?
Encore merçi, ça m'arrangerait beaucoup ;o)
 
S

STéphane

Guest
une solution un peu à côté de la plaque mais sait-on jamais.


Message 28 in thread
De :Frédéric Sigonneau (frederic.sigonneau@wanadoo.fr)
Objet :Re: couleur
Groupes de discussion :microsoft.public.fr.excel
View this article only
Date :2001-12-21 06:28:36 PST


Bonjour,

Deux solutions déjà parues sur ce forum.

FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau

'=========================
'mettre en couleur une partie du texte d'une cellule
'Pascal Engelmajer, mpfe

Sub Appel()
Dim cell As Range
Set cell = Range("A1")
Colorie cell, 5, 5, 5
End Sub

Sub Colorie(cell As Range, debut%, longueur%, Couleur&)
cell.Characters(debut, longueur).Font.ColorIndex = Couleur
End Sub

'Autre solution (Excel 2000) : utiliser Split pour passer
'la place d'un mot à colorier dans une phrase
'fs

Sub MotEnCouleurDansCell(cell As Range, Nième%, Couleur&)
Dim tabMots, LeMot$, pos%

tabMots = Split(cell.Text)
LeMot = tabMots(Nième - 1)
pos = InStr(1, cell.Text, LeMot)
cell.Characters(pos, Len(LeMot)).Font.ColorIndex = Couleur
End Sub

Sub test()
'colorier en rouge (3) le 4ème mot du texte de la cellule A1
MotEnCouleurDansCell Range("A1"), 4, 3
End Sub
'=======================

JPH a écrit :
>
> je voudrai changer de couleur a l'interieur d'une cellule
> sans utiliser le formatage conditionel
> Example
> "Papa" en rouge et "Noel" en vert dans la meme cellule
>
> Merci
 

Discussions similaires

Statistiques des forums

Discussions
302 316
Messages
2 002 492
Membres
215 621
dernier inscrit
jules56750