modification conditionnelle de format

[j-m-r]

Bonjour, je cherche une solution pour modifier le format d'une partie d'une cellule contenue entre parenthèses, en sélectionant la colonne entière. Dans le fichier joint je voudrais passer le contenu des paranthèses à une police de 14 comme dans la première de façon globale.
Merci

 

[tototiti2008]

Re : modification conditionnelle de format

Bonjour jmr,

un essai

Sub Taille14()
Dim i As Long
    For i = 1 To Range("A65536").End(xlUp).Row
        Cells(i, 1).Characters(Start:=InStr(1, Cells(i, 1).Value, "("), Length:=1000).Font.Size = 14
    Next i
End Sub