Mettre en couleur une partie du texte d'une cellule
Résolu
July74
Messages postés
47
Date d'inscription
Statut
Membre
Dernière intervention
-
July74 Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
July74 Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
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 texte excel
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
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
