Bonjour à tous,
J'ai un tableau contenant du texte, et je souhaiterai rechercher un mot (ici, le mot "test") et le mettre en gras dans ton mon tableau.
Exemple :
Colonne1 Colonne2
1 test de test
2 de test de
3 de test
4 test de
5 test
6 pas le mot recherché
et après exécution de la macro je souhaiterai :
Colonne1 Colonne2
1 test de test
2 de test de
3 de test
4 test de
5 test
6 pas le mot recherché
J'ai commencé ma macro comme ceci :
En essayant de lui intégrer quelque chose comme ceci :
Mais sans réussite.
Une idée pour m'aider ?
Merci par avance
J'ai un tableau contenant du texte, et je souhaiterai rechercher un mot (ici, le mot "test") et le mettre en gras dans ton mon tableau.
Exemple :
Colonne1 Colonne2
1 test de test
2 de test de
3 de test
4 test de
5 test
6 pas le mot recherché
et après exécution de la macro je souhaiterai :
Colonne1 Colonne2
1 test de test
2 de test de
3 de test
4 test de
5 test
6 pas le mot recherché
J'ai commencé ma macro comme ceci :
Code:
Sub Search&Bold()
Do
If Cells.Find(What:="test") Is Nothing Then
Exit Do
Else
Cells.Find(What:="test").Activate
<mettre en gras>
End If
Loop
End Sub
En essayant de lui intégrer quelque chose comme ceci :
Code:
ActiveCell.FormulaR1C1 = "de test de"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With ActiveCell.Characters(Start:=4, Length:=4).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With ActiveCell.Characters(Start:=8, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Mais sans réussite.
Une idée pour m'aider ?
Merci par avance