Salut WebNet,
Salut l'équipe,
devant vos difficultés, je me suis fendu de parfaire l'exercice.
Les macros agissent dans n'importe quelle colonne (pas vraiment eu de précisions à ce niveau) :
- soit dès un changement dans une cellule ;
- soit via un double-clic dans la colonne à traiter.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim sCol$, iRow%
'
Cancel = True
sCol = Split(Columns(Target.Column).Address(ColumnAbsolute:=False), ":")(1)
For iRow = 1 To Range(sCol & Rows.Count).End(xlUp).Row
If UBound(Split(Range(sCol & iRow).Value, " ")) > 0 Then Range(sCol & iRow).Characters(1, Len(Split(Range(sCol & iRow).Value, " ")(0))).Font.Size = 11
If Mid(Range(sCol & iRow).Value, 2, 1) = "'" Then Range(sCol & iRow).Characters(1, 2).Font.Size = 11
Next
'
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'
If UBound(Split(Target, " ")) > 0 Then Target.Characters(1, Len(Split(Target, " ")(0))).Font.Size = 11
If Mid(Target, 2, 1) = "'" Then Target.Characters(1, 2).Font.Size = 11
'
End Sub
A tester pour d'éventuelles améliorations...
A+