Discussion :

[michaud_rene]

Bonjour,

le code suivant - réalisé sous [EXCEL - 2003] - supprime une textbox qui contient le mot "region".

Je cherche à savoir pourquoi ce code ne marche pas sous [EXCEL 2007]. Lorsque j'exécute le code, rien ne se passe.

Merci d'avance à ceux qui me répondront.

RM

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
Dim aaShape As Shape
 
For Each aaShape In ActiveSheet.ChartObject("chart_head").chart.Shapes
 
    ' si la "shape" trouvée est une "textbox"
 
    If aaShape.Type = msoTextBox Then  
 
    'si la "textbox" contient le mot "région"
 
    If InStr(1, aaShape.AlternativeText, "region", vbTextCompare) _
    > 0 Then aaShape.Delete
 
    End If
 
Next

[Bugzy1963]

Bonjour

Essayez

Code :

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

1
2
if Cstr(Textbox1) = "region" then
aaShape.delete