Autres [RÉSOLU] Serait-il possible mais je ne crois pas...

job75 à dit:

Bonjour un internaute,

Voyez le fichier joint et cette macro dans le code de la feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim txt$, W#, n%
txt = "Montant Fonds Travaux 1er Trimestre"
Set Target = [A5]
W = Target.ColumnWidth
Application.ScreenUpdating = False
Application.EnableEvents = False
Do
    n = n + 1
    Target = txt & String(n, "-") & ">"
    Target.Columns.AutoFit
Loop While Target.ColumnWidth < W + 1
Target.ColumnWidth = W
Target.Characters(Len(txt) - 12, 13).Font.Color = vbRed
Application.EnableEvents = True
End Sub

Quand on modifie ou valide une cellule quelconque, le nombre de tirets en A5 s'ajuste à la largeur de la cellule.

A+

Cliquez pour agrandir...

job75 à dit:

Dans une feuille on ne peut créer qu'une seule macro Worksheet_Change :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, trim%, txt$, W#, n%
Set plage = Range("D18,D37,D56,D75")
Application.ScreenUpdating = False
Application.EnableEvents = False
For trim = 1 To 4
    txt = "Montant Fonds Travaux " & trim & IIf(trim = 1, "er", "ème") & " Trimestre "
    Set Target = plage.Areas(trim)
    W = Target.ColumnWidth
    n = 0
    Do
        n = n + 1
        Target = txt & String(n, "-") & ">"
        Target.Columns.AutoFit
    Loop While Target.ColumnWidth < W + 1
    Target.ColumnWidth = W
    Target.Characters(Len(txt) - 14, 14).Font.Color = vbRed
Next trim
Application.EnableEvents = True
End Sub

Cliquez pour agrandir...