Mise en valeur mot dans cellule Excel en VBA
road666
Messages postés
3
Statut
Membre
-
road666 Messages postés 3 Statut Membre -
road666 Messages postés 3 Statut Membre -
Bonsoir,
Comment peut-on mettre en valeur ( simplement gras + couleur rouge) un mot dans une cellule Excel:
A1 -> "le renard est un animal à 4 pattes"
A2 -> "le lion est aussi un animal"
le but étant de lancer une macro qui met les mots clés "renard" et "lion" en rouge gras mais pas le reste de la cellule
Remarque : la mise en valeur condtionnelle fonctionne mais elle met toute la cellule en rouge gras !!!
Merci les AS
Comment peut-on mettre en valeur ( simplement gras + couleur rouge) un mot dans une cellule Excel:
A1 -> "le renard est un animal à 4 pattes"
A2 -> "le lion est aussi un animal"
le but étant de lancer une macro qui met les mots clés "renard" et "lion" en rouge gras mais pas le reste de la cellule
Remarque : la mise en valeur condtionnelle fonctionne mais elle met toute la cellule en rouge gras !!!
Merci les AS
A voir également:
- Mise en valeur mot dans cellule Excel en VBA
- Mise en forme conditionnelle excel - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
Je connaissais votre méthode bien sur!
toute la difficulté, dans ce cas, sera pour excel de trouver, dans une phrase, quels mots sélectionner.
si ces mots sont en exergue dans une colonne séparée, en vis à vis de la phrase,
un peu de VBA pourra secourir.
sur ce topic, j'ai souvenir d'avoir lu des réponses en ce sens.
Bonne continuation
Cordialement,
axion
PS: une approche, sans macro: http://www.commentcamarche.net/s/Excel+%3A+Modifier+la+police+en+conact%E9nant?qlc
Sub test3()
Dim LeMot As String, LaPhrase As String
Dim Deb As Integer, Decal As Integer
For x = 1 To 5000
Decal = 0
LaPhrase = Range("F" & x).Value
LeMot = InputBox("veuillez entrez le mot recherché")
Do
Deb = InStr(1, LaPhrase, LeMot)
If Deb > 0 Then
Range("F" & x).Characters(Deb + Decal, Len(LeMot)).Font.Color = vbRed
Range("F" & x).Characters(Deb + Decal, Len(LeMot)).Font.Bold = True
LaPhrase = Mid(LaPhrase, Deb + Len(LeMot))
Decal = Decal + Deb + Len(LeMot) - 1
End If
Loop While Deb > 0
Next x
end sub