Mettre en couleur une partie du texte d'une cellule
Résolu/Fermé
July74
Messages postés
47
Date d'inscription
vendredi 4 avril 2014
Statut
Membre
Dernière intervention
23 décembre 2018
-
7 nov. 2014 à 17:55
July74 Messages postés 47 Date d'inscription vendredi 4 avril 2014 Statut Membre Dernière intervention 23 décembre 2018 - 11 déc. 2014 à 18:03
July74 Messages postés 47 Date d'inscription vendredi 4 avril 2014 Statut Membre Dernière intervention 23 décembre 2018 - 11 déc. 2014 à 18:03
A voir également:
- Surligner texte excel
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Transcription audio en texte word gratuit - Guide
3 réponses
July74
Messages postés
47
Date d'inscription
vendredi 4 avril 2014
Statut
Membre
Dernière intervention
23 décembre 2018
1
11 déc. 2014 à 18:03
11 déc. 2014 à 18:03
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à!
f894009
Messages postés
17221
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 janvier 2025
1 712
7 nov. 2014 à 18:29
7 nov. 2014 à 18:29
Bonjour,
Modifier couleur manuellement ou ........ ??????
Modifier couleur manuellement ou ........ ??????
via55
Messages postés
14509
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
2 janvier 2025
2 738
7 nov. 2014 à 18:59
7 nov. 2014 à 18:59
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
