recherche d'un mot dans toutes les cellules puis mise en forme
1 réponse
fredla
Bonjour à tous,
voilà j'ai une question concernant plusieurs problèmes.
Je souhaite rechercher dans une cellule contenant plusieurs termes ou valeurs diférents des mots (mot1, mot2, mot3, etc...) puis faire une mise en forme conditionnelle de ces dits mot trouvés, par exemple les inscrire en rouge et en gras.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, Avec une MFC, tu ne peux faire q'une mise en forme de la cellule entière, pas d'un mot à l'intérieur d'une cellule. Mets cette macro dans le module de la feuille (pour la colonne A) :
Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range, resAdr As String, AChercher As String, Pos As Integer AChercher = "toto" If Target.Column = 1 Then Set C = Columns(1).Find(AChercher, , , xlPart) If Not C Is Nothing Then resAdr = C.Address Do Pos = InStr(1, C.Value, AChercher) C.Characters(Pos, Len(AChercher)).Font.ColorIndex = 3 Set C = Columns(1).FindNext(C) Loop While C.Address <> resAdr End If End If End Sub
Daniel
Bonjour à tous,
voilà j'ai une question concernant plusieurs problèmes. Je souhaite rechercher dans une cellule contenant plusieurs termes ou valeurs diférents des mots (mot1, mot2, mot3, etc...) puis faire une mise en forme conditionnelle de ces dits mot trouvés, par exemple les inscrire en rouge et en gras.
Merci beaucoup
Bonjour,
Avec une MFC, tu ne peux faire q'une mise en forme de la cellule
entière, pas d'un mot à l'intérieur d'une cellule. Mets cette macro
dans le module de la feuille (pour la colonne A) :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range, resAdr As String, AChercher As String, Pos As
Integer
AChercher = "toto"
If Target.Column = 1 Then
Set C = Columns(1).Find(AChercher, , , xlPart)
If Not C Is Nothing Then
resAdr = C.Address
Do
Pos = InStr(1, C.Value, AChercher)
C.Characters(Pos, Len(AChercher)).Font.ColorIndex = 3
Set C = Columns(1).FindNext(C)
Loop While C.Address <> resAdr
End If
End If
End Sub
Daniel
Bonjour à tous,
voilà j'ai une question concernant plusieurs problèmes.
Je souhaite rechercher dans une cellule contenant plusieurs termes ou valeurs
diférents des mots (mot1, mot2, mot3, etc...) puis faire une mise en forme
conditionnelle de ces dits mot trouvés, par exemple les inscrire en rouge et
en gras.
Bonjour, Avec une MFC, tu ne peux faire q'une mise en forme de la cellule entière, pas d'un mot à l'intérieur d'une cellule. Mets cette macro dans le module de la feuille (pour la colonne A) :
Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range, resAdr As String, AChercher As String, Pos As Integer AChercher = "toto" If Target.Column = 1 Then Set C = Columns(1).Find(AChercher, , , xlPart) If Not C Is Nothing Then resAdr = C.Address Do Pos = InStr(1, C.Value, AChercher) C.Characters(Pos, Len(AChercher)).Font.ColorIndex = 3 Set C = Columns(1).FindNext(C) Loop While C.Address <> resAdr End If End If End Sub
Daniel
Bonjour à tous,
voilà j'ai une question concernant plusieurs problèmes. Je souhaite rechercher dans une cellule contenant plusieurs termes ou valeurs diférents des mots (mot1, mot2, mot3, etc...) puis faire une mise en forme conditionnelle de ces dits mot trouvés, par exemple les inscrire en rouge et en gras.
