Bonjour,

Je crée un graphe à partir d'un tableau (collé dans une feuille excel)

Dans ce graphe j'insère une zone de texte :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Sheets("Feuillet").Select
   Application.ScreenUpdating = False
 
   .Shapes.AddTextbox(msoTextOrientationHorizontal, 567.7, 0#, _
        152.3, 45.75).Select
        Selection.Characters.Text = "Echantillon : " & A & Chr(10) & "Longueur moyenne de feuillet (MET): " & B & " nm" & Chr(10) & "Taux de sulfuration (XPS) : " & C & " %" & Chr(10) & "% m/m Mo (FX) : " & D & " %"
        Selection.AutoScaleFont = False
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
   End With
Lorsque je relance ma macro, il m'efface bien les data du graphe précédent :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Feuillet").ChartArea.Clear
mais pas la zone de texte insérée précédemment. Comment faire pour tout supprimer sur ma feuille (graphe et zone de texte).

Merci pour votre aide