[vba] Mise en gras de ligne avec condition
Poilane
-
coconuts_n Messages postés 23 Statut Membre -
coconuts_n Messages postés 23 Statut Membre -
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
A voir également:
- [vba] Mise en gras de ligne avec condition
- Partage de photos en ligne - Guide
- Ecrire en gras sur whatsapp - Guide
- Mise en forme conditionnelle excel - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
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
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
