la fonction Characters déraille ?

Version imprimable

Bonjour,

J'utilise ce code :

Code:

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.

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:

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

29/04/2015, 14h08
Daniel.C

Merci d'avoir essayé. Ca doit venir du classeur.
29/04/2015, 14h22
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,