Mettre en couleur une partie du texte d'une cellule
Résolu
July74
Messages postés
49
Statut
Membre
-
July74 Messages postés 49 Statut Membre -
July74 Messages postés 49 Statut Membre -
Bonjour,
J'ai plusieurs données dans une colonne dont plusieurs se termine par "-X"
Je voudrais que toutes ces "-X" soit mis en blanc.
Ex.:
8801
8812
8815-X
8817
8820-X
Modifier la couleur police du "-X" seulement.
C'est surement très simple mais je n'y arrive pas.
Merci de m'aider.
J'ai plusieurs données dans une colonne dont plusieurs se termine par "-X"
Je voudrais que toutes ces "-X" soit mis en blanc.
Ex.:
8801
8812
8815-X
8817
8820-X
Modifier la couleur police du "-X" seulement.
C'est surement très simple mais je n'y arrive pas.
Merci de m'aider.
A voir également:
- Surligner sur excel
- Excel cellule couleur si condition texte - Guide
- Transcription audio en texte word gratuit - Guide
- Mettre un texte en majuscule - Guide
- Excel somme si couleur cellule - Guide
- Si cellule contient texte alors ✓ - Forum Excel
3 réponses
Merci pour les réponses
Je suis très en retard sur le sujet j'ai dû fermer ce dossier temporairement.
Voilà en réponse à via55
Je ne peux les supprimer.
Et ma question était pour rendre l'opération automatique.
J'ai d'ailleurs trouvé ma réponse et je vous la donne au cas ou quelqu'un d'autre chercherais quelque chose de semblable;
Sub Traitement()
Dim Plage As Range, Cel As Range
Dim LeMot As String, AdrDeb As String
Set Plage = Sheets("LISTE JOB").Range("A:A")
LeMot = "-X"
With Plage
Set Cel = .Find(LeMot, LookAt:=xlPart)
If Not Cel Is Nothing Then
AdrDeb = Cel.Address
Do
Modif Cel, LeMot
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And AdrDeb <> Cel.Address
End If
End With
End Sub
Private Sub Modif(ByRef Cel As Range, LeMot)
Dim T As String
Dim Pos As Integer
T = Cel.Text
Do
Pos = InStr(Pos + 1, T, LeMot)
If Pos > 0 Then
With Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 2 'blanc
End With
End If
Loop Until Pos = 0
End Sub
Voilà!
Je suis très en retard sur le sujet j'ai dû fermer ce dossier temporairement.
Voilà en réponse à via55
Je ne peux les supprimer.
Et ma question était pour rendre l'opération automatique.
J'ai d'ailleurs trouvé ma réponse et je vous la donne au cas ou quelqu'un d'autre chercherais quelque chose de semblable;
Sub Traitement()
Dim Plage As Range, Cel As Range
Dim LeMot As String, AdrDeb As String
Set Plage = Sheets("LISTE JOB").Range("A:A")
LeMot = "-X"
With Plage
Set Cel = .Find(LeMot, LookAt:=xlPart)
If Not Cel Is Nothing Then
AdrDeb = Cel.Address
Do
Modif Cel, LeMot
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And AdrDeb <> Cel.Address
End If
End With
End Sub
Private Sub Modif(ByRef Cel As Range, LeMot)
Dim T As String
Dim Pos As Integer
T = Cel.Text
Do
Pos = InStr(Pos + 1, T, LeMot)
If Pos > 0 Then
With Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 2 'blanc
End With
End If
Loop Until Pos = 0
End Sub
Voilà!
Bonsoir
Pour le faire manuellement il faut dans aller dans chaque cellule, surligner dans la barre de formule le -X et sélectionner écriture blanche
De manière automatique il faut bâtir une macro pour le faire
Mais pourquoi tout simplement ne pas les supprimer ? par CTRL + H mettre -X dans Rechercher, rien dans Remplacer et Remplacer tout
Cdlmnt
Pour le faire manuellement il faut dans aller dans chaque cellule, surligner dans la barre de formule le -X et sélectionner écriture blanche
De manière automatique il faut bâtir une macro pour le faire
Mais pourquoi tout simplement ne pas les supprimer ? par CTRL + H mettre -X dans Rechercher, rien dans Remplacer et Remplacer tout
Cdlmnt
