Réduire la taille de la police d'une partie d'un texte

Bonjour, Je souhaite réduire la taille de la police d'une partie du texte, uniquement celle qui est entre les parenthèses dans la cellule.

La contrainte, c'est que j'ai une colonne qui contient 123 000 cellules.

Merci pour votre attention.

Xave.

Bonjour,

Voici un exemple à adapter à votre fichier.

Dim Cellule As String, cell As String

Sub Parentheses()
    Dim i As Long, j As Long
    Application.ScreenUpdating = False
    DerLig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerCol = Range("A3").CurrentRegion.Columns.Count
    For i = 1 To DerLig
        For j = 1 To DerCol
            Cellule = Cells(i, j).Address
            cell = Cells(i, j)
            Traitement_Chaine
        Next j
    Next i
End Sub

Sub Traitement_Chaine()
    Dim p1 As Long, p2 As Long, k As Long, NbParentheses As Long
    NbParentheses = UBound(Split(cell, "(", , 1))
    p1 = InStr(1, Range(Cellule), "(", 1)
    p2 = InStr(1, Range(Cellule), ")", 1)
    For k = 1 To NbParentheses
        Range(Cellule).Characters(Start:=p1 + 1, Length:=p2 - p1 - 1).Font.Size = 8
        p1 = InStr(p2 + 1, Range(Cellule), "(", 1)
        p2 = InStr(p2 + 1, Range(Cellule), ")", 1)
    Next k
End Sub

Cdlt

Génial Arturo, je pensais que c'était impossible à faire.

Par contre je n'y comprend absolument rien.

Je vais essayer d'étudier ça.

Je vous remercie.

Merci infiniment Arturo, j'ai adapté ma liste, l'essentiel est fait.

Je vous souhaite une bonne journée.

Xave.