Mettre en Gras une ligne entre deux lignes vides sur Excel

Bonjour.

Comment utiliser une macro ou une mise en forme conditionnelle pour mettre en Gras une ligne entre deux lignes vides. j'ai un classeur de 5000 lignes. Aidez moi s'il vous plait.

Bonsoir,

à coller dans le module de la feuille que tu veux traiter.

Sub Ligne_Gras()
Dim premLig As Integer, premCol As Integer, derLig As Long, derCol As Integer, myRange As Range, myRangeAV As Range, myRangeAP As Range

Application.ScreenUpdating = False

premLig = Cells.Find("*", , , , xlByRows, xlNext).Row
premCol = Cells.Find("*", , , , xlByColumns, xlNext).Column
derLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
derCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column

Set myRange = Range(Cells(premLig, premCol), Cells(derLig, derCol))

For i = premLig + 1 To derLig
    Set myRange = Range(Cells(i, premCol), Cells(i, derCol))
    aa = Application.WorksheetFunction.CountA(myRange)

    If aa <> 0 Then
        Set myRangeAV = myRange.Offset(-1, 0)
        bb = Application.WorksheetFunction.CountA(myRangeAV)
        Set myRangeAP = myRange.Offset(1, 0)
        bb = bb + Application.WorksheetFunction.CountA(myRangeAP)

        If bb = 0 Then myRange.Font.Bold = True

        bb = 0
    End If
Next i

Application.ScreenUpdating = True

End Sub

Cordialement

Bonjour,

Merci pour votre réponse mais comment faire ?

Un clic droit sur la feuille puis visualiser le code ensuite coller le code donné ? je l'ai fais mais ça marche pas.

Excusez moi mais coté programmation et macro c'est pas mon fort.

Bonsoir,

si tu a bien copié le code dans la fenetre ALT-F11 tu retourne a ta feuille

tu insert un bouton ou une forme (insertion formes) puis une fois cela inserré sur ta feuille clic droitdessus et choisis affecter une macro la tu aura un affichage et tu choisis Sub Ligne_Gras()

ensuite ok apres tu clic sur le bouton et tout vase faire a la fin tu supprime le bouton que tu a crée

marc

Salut le Forum

J'ai compris, par ligne, une bordure entre deux lignes vides.

Sub LigneBold()
    With Columns("A").Cells.SpecialCells(xlCellTypeBlanks)
        .Borders(xlInsideHorizontal).Weight = xlMedium
    End With
End Sub

Mytå