Diminution du format d'une partie du texte d'une cellule

[vulcontexte]

Bonsoir,

Je cherche un programme VBA simple qui me permette de diminuer la police des termes entre parenthèse dans une cellule, mais seulement les termes entre parenthèse. Voir fichier joint.

Auriez-vous l'amabilité de me concocter un programme simple qui va bien ?

Je m'occuperai ensuite de l'appliquer à l'ensemble de ma feuille.

Merci de votre aide

 

[mapomme]

Re : Diminution du format d'une partie du texte d'une cellule

Bonjour vulcontexte et bienvenue sur XLD 🙂

Un essai dans le fichier joint. A chaque fois qu'on clique sur "Test", la taille de la police des textes entre parenthèses est diminuée de 2.

Le code est:

Option Explicit

Sub test()
  Reduire Sheets("Données").Range("B5")
End Sub

Sub Reduire(x As Range)
Dim i&, j&
Do
  i = j + 1
  i = InStr(i, x, "(")
  j = InStr(i + 1, x, ")")
  If i * j > 0 Then
    On Error Resume Next
    x.Characters(Start:=i + 1, Length:=j - i - 1).Font.Size = _
    x.Characters(Start:=i + 1, Length:=1).Font.Size - 2
    On Error GoTo 0
  End If
Loop Until i * j = 0 Or j = Len(x)
End Sub

 

[vulcontexte]

Re : Diminution du format d'une partie du texte d'une cellule

EXCELlent !

Merci de votre aide rapide et efficace.