Sub testbizare()
Dim Lab2, Lab1
Set Lab1 = ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 150, 150, 15, 15)
Lab1.TextFrame.Characters.Text = "AB"
' Lab1.TextFrame.Characters(1, 2).Font.Size = 30
'Lab1.TextFrame.AutoSize = True
'si je debloque les lignes ci dessus le lab1 n'est pas modifié c'est le lab2 qui va l'etre
' alors qu'ensuite à la lecture des propertie du lab2 les propertie donne c'elle par defaut
With ActiveSheet
Set Lab2 = .Labels.Add(100, 100, 15, 15)
Lab2.Characters.Text = "AB"
Debug.Print "texte du label :" & .Shapes(Lab2.Name).TextFrame.Characters.Text
Debug.Print "couleur du texte :" & .Shapes(Lab2.Name).TextFrame.Characters(1, 2).Font.Color
Debug.Print "police du texte :" & .Shapes(Lab2.Name).TextFrame.Characters(1, 2).Font.Name
Debug.Print "taille de la police du texte :" & .Shapes(Lab2.Name).TextFrame.Characters(1, 2).Font.Size
'ici ca plante j'ai essayé toute les formes (textframe /2 characters, textrange,etc.... rien de rien
Debug.Print .Shapes(Lab2.Name).TextFrame.Text.AutoSize
Debug.Print .Shapes(Lab2.Name).TextFrame.TextRange.HorizontalAlignment
End With
End Sub