Modification conditionnelle de format

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

Bonjour

A essayer

Bonjour,

Une suggestion:

Sub test()
Dim aRow%, LenTxT%, StartTxT%
    aRow = 1
    Do
        StartTxT = InStr(Cells(aRow, 1), "(") 'Récupère la position de la parenthèse
        LenTxT = Len(Mid(Cells(aRow, 1), InStr(Cells(aRow, 1), "("))) 'Longueur du texte entre parenthèses
        Cells(aRow, 1).Characters(Start:=StartTxT, Length:=LenTxT).Font.Size = 14
        aRow = aRow + 1
    Loop Until Cells(aRow, 1) = ""
End Sub

Je vous laisse vérifier.

Darzou

Bonsoir,

Suite à votre MP, le fichier en pièces jointes.

A l'avenir, Alt F11 puis insérer le code dans la feuille concernée.

Cdlt,

Darzou

Merci,

J'ai encore un peu de mal, sachant que dans mon fichier d'origine il y a une colonne supplémentaire devant.

    Sub test()
    Dim aRow%, LenTxT%, StartTxT%
        aRow = 1
        Do
            StartTxT = InStr(Cells(aRow, 2), "(") 'Récupère la position de la parenthèse
           LenTxT = Len(Mid(Cells(aRow, 2), InStr(Cells(aRow, 2), "("))) 'Longueur du texte entre parenthèses
           Cells(aRow, 2).Characters(Start:=StartTxT, Length:=LenTxT).Font.Size = 14
            aRow = aRow + 1
        Loop Until Cells(aRow, 2) = ""
    End Sub
     

Cdlt,

Darzou

Merci, ça marche super