[vba] Mise en gras de ligne avec condition

Poilane -  
coconuts_n Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

1 réponse

Réponse 1 / 1
coconuts_n Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses