modification conditionnelle de format

j-m-r · 30 Janvier 2012

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 · 30 Janvier 2012

Re : modification conditionnelle de format

Bonjour jmr,

un essai

Code:

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

modification conditionnelle de format

j-m-r

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Discussions similaires