VBA-souligner

Bonjour

Je voudrais un code qui souligne mais pas en MFC.

L'exemple dessous est commenté.

merci

126soulignement.xlsx (9.08 Ko)

Bonjour,

une proposition

Sub test()
    For i = 10 To 41
        For j = 1 To 5
            If Not (Range(Cells(i + 1, "H"), Cells(42, "L")).Find(Cells(i, j + 7), lookat:=xlWhole) Is Nothing) Then
                Cells(i, j + 7).Font.Underline = xlUnderlineStyleSingle
            End If
        Next j
    Next i
End Sub

Bonjour et merci

Apparemment les 3 critères en rouge ne fonctionnent pas je me suis trouvé avec des nombres soulignés à tort.

j'ai placé ta macro dans le fichier.

Merci

81soulignement.xlsm (16.42 Ko)

bonjour,

d'après ce que j'ai compris

Sub test()
    For i = 10 To 12
        For j = 1 To 5
            With Range(Cells(i + 1, "H"), Cells(42, "L"))
                Set c = .Find(Cells(i, j + 7), lookat:=xlWhole)
                If Not c Is Nothing Then
                    fad = c.Address
                    Do
                        c.Font.Underline = xlUnderlineStyleSingle
                        Set c = .FindNext(c)
                    Loop Until c.Address = fad
                End If
            End With
        Next j
    Next i
End Sub

Merci, c'est parfait.

a+

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

bonjour,

Est-il possible de ne mettre en gras et plus gros uniquement le trait?

non je ne pense pas que cela soit possible

les valeurs possibles pour le souligné (c.Font.Underline =) sont :

xlUnderlineStyleNone

xlUnderlineStyleSingle

xlUnderlineStyleDouble

xlUnderlineStyleSingleAccounting

xlUnderlineStyleDoubleAccounting

Rechercher des sujets similaires à "vba souligner"