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 :
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
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
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).
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets("Feuillet").ChartArea.Clear
Merci pour votre aide
Partager