Re,
Est-il possible de ne mettre en gras et plus gros uniquement le trait?
J'ai essayé de modifier mais le nombre est aussi gras et en gros.
merci
j'ai rajouté la partie en gras:
Sub test()
For i = 10 To 12
For j = 1 To 5
With Range(Cells(i + 1, "H"), Cells(42, "L"))
Set c = Range(Cells(i + 1, "H"), Cells(42, "L")).Find(Cells(i, j + 7), lookat:=xlWhole)
If Not c Is Nothing Then
fad = c.Address
Do
c.Font.Underline = xlUnderlineStyleSingle
c.Font.Bold = True
With c.Font
.Name = "Calibri"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Set c = .FindNext(c)
Loop Until c.Address = fad
End If
End With
Next j
Next i
End Sub