Colorié une partie du texte dans une cellule
Fermé
akarix
Messages postés
6
Date d'inscription
samedi 19 mars 2005
Statut
Membre
Dernière intervention
4 mai 2011
-
17 juin 2008 à 14:58
akarix Messages postés 6 Date d'inscription samedi 19 mars 2005 Statut Membre Dernière intervention 4 mai 2011 - 17 juin 2008 à 15:45
akarix Messages postés 6 Date d'inscription samedi 19 mars 2005 Statut Membre Dernière intervention 4 mai 2011 - 17 juin 2008 à 15:45
A voir également:
- Colorié une partie du texte dans une cellule
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Flouter une partie d'une photo - Guide
- Aller à la ligne dans une cellule excel - Guide
1 réponse
onesdf
Messages postés
375
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
17 octobre 2008
120
17 juin 2008 à 15:07
17 juin 2008 à 15:07
Salut :
En A1 :
<TITLE>Mon premier essai</TITRE>
Macro :
En A1 :
<TITLE>Mon premier essai</TITRE>
Macro :
Sub ColoreHTML()
Range("A1").Select
Pos = 1
Debut = 1
Do
Pos = InStr(Debut, ActiveCell.Value, "<")
Pos2 = InStr(Debut, ActiveCell.Value, ">")
ActiveCell.Characters(Pos, Pos2 - Pos + 1).Font.ColorIndex = 15
Debut = Pos2 + 1
Loop Until Pos = 0
End Sub
17 juin 2008 à 15:33
Sub ColoreHTML()
Range("P17:P268").Select
Pos = 1
Debut = 1
Do
Pos = InStr(Debut, ActiveCell.Value, "<")
Pos2 = InStr(Debut, ActiveCell.Value, ">")
ActiveCell.Characters(Pos, Pos2 - Pos + 1).Font.ColorIndex = 15
Debut = Pos2 + 1
Loop Until Pos = 0
End Sub
Ça m'a bien sélectionné toutes les cellules entre P17 et P268 mais ça ne s'est appliqué que dans la première cellule. De plus la première lettre (qui était en majuscule) à également coloriée.
Guillaume
17 juin 2008 à 15:39
Sub ColoreHTML() Range("P17:P268").Select For Each Cellule In Selection Pos = 1 Debut = 1 Do Pos = InStr(Debut, Cellule.Value, "<") Pos2 = InStr(Debut, Cellule.Value, ">") Cellule.Characters(Pos, Pos2 - Pos + 1).Font.ColorIndex = 15 Debut = Pos2 + 1 Pos = InStr(Debut, Cellule.Value, "<") Loop Until Pos = 0 Next End Sub17 juin 2008 à 15:45