Mettre en gras Les Index

Bonjour;

Mon petit souci, je cherche à mettre en gras et centrer les cellules qui contiennent un seul alphabet (Les Index)

La macro que j’utilise mais le gras à tous les premiers alphabets de la colonne, J’aimerais modifier ou adapter pour sert à mettre Les Index en gras.

Merci de votre attention.

Cordialement

Bonjour,

Comme ceci:

 Sub Lettre_Unique_en_Gras()
    Dim i As Long, LastRow As Long
    Dim ws As Worksheet
    Set ws = Sheets("Base3")
    LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        If Len(Cells(i, "B")) = 1 Then
            Cells(i, "B").Font.Bold = True
        Else
            Cells(i, "B").Font.Bold = False
        End If
    Next i
 End Sub

Cdlt

Bonjour le forum,

Bonjour Arturo83

Cela fonctionne parfaitement et j'ai compris ta solution, merci !!

Je vous remercie beaucoup.

Cdlt