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

vulcontexte · 7 Novembre 2013

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 · 8 Novembre 2013

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:

VB:

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 · 8 Novembre 2013

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

EXCELlent !

Merci de votre aide rapide et efficace.

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

vulcontexte

Guest

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

vulcontexte

Guest

Discussions similaires

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

vulcontexte

Guest

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

vulcontexte

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency