Discussion :

[Daniel.C]

Bonjour,

J'utilise ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Application.EnableEvents = False
    If Sh.Index = 20 Then
        With [C143]
            .IndentLevel = 12
            .Value = "Les charges engagées sont en " & IIf([I141].Value > 0, "hausse de ", _
                "baisse de -")
            .Characters(29, 11).Font.Bold = True
        End With
    End If
    Application.EnableEvents = True
End Sub

La propriété Characters semble ne donner aucun résultat, sauf quand on met la cellule en mode édition. Je dois rater quelque chose ?

Merci d'avance.

[gnain]

Je viens de tester avec ton code et chez moi tout fonctionne
et je n'ai pas eu besoin de mettre la cellule en édition
je suis sur 2010

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
       With [C3]
            .IndentLevel = 12
            .Value = "Les charges engagées sont en " & IIf([I141].Value > 0, "hausse de ", _
                "baisse de -")
            .Characters(29, 11).Font.Bold = True
        End With

[Daniel.C]

Merci d'avoir essayé. Ca doit venir du classeur.

[goldstar]

Bonjour,

C'est peut etre bête ce que je vais dire mais a tu verifié que le calcul est automatique et pas manuel dans les options ?

Cordialement,