[vba] Mise en gras de ligne avec condition Fermé

Question

Bonjour, 

Je suis en train de mettre en forme un document.
Pour le clarifier, je souhaite mettre en gras certaines lignes correspondant à des chapitres.
les lignes des chapitres ont pour point commun une partie de leur numéro: C303NM1100,C303NM1200...
je souhaite donc rechercher dans la colonne B toutes les cellules contenant "*NM*", les mettre en gras et en caractères 11.

En fouillant sur internet et en enregistrant des macros, je suis arrivé à ça:

Sub MiseEnGras()
Dim b As Range
For Each b In ActiveSheet.Range("b1:b1000")
    If (b.Value = "*NM*") Then
        b.EntireRow.Select
        Selection.Font.Bold = True
        With Selection.Font
            .Name = "Arial"
            .Size = 11
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
        End With
    End If
Next
End Sub

Si quelqu'un peut m'aider...
Merci d'avance

Configuration: Windows XP / Firefox 3.6.8

coconuts_n · Answer

Bonjour, 


Essais ça et tiens moi au courant

Sub recherche()

With Worksheets(1).Range("b1:b1000")
    Set c = .Find("*NM*", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
                c.Font.Bold = True
                c.Font.Size = 11
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If

End With

End Sub

[vba] Mise en gras de ligne avec condition

1 réponse

Discussions similaires

Newsletters