[vba] Mise en gras de ligne avec condition
Poilane
-
coconuts_n Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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
