Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Logiciels-Pilotes

[excel][vba] selection zone de texte

Dernière réponse le 1 déc 2007 à 20:59:45 bunta, le 11 jan 2007 à 16:00:02

Signaler ce message aux modérateurs

Bonjour

Dans un fichier Excel, j'ai crée un graph qui comporte des zones de textes disposés à plusieurs endroits de la zone graphique

J'aimerais au debut d'une macro effacer toutes ses zones.

J'ai essayé de faire :

For i=1 to 100 (100 au hasard )
ActiveChart.Shapes("Text Box " & i & "" ).Select
Selection.Delete
next

Mais je me suis rendu compte que dans ce graphique là, les indices de TextBox ne commencaient pas à 1.

Je ne connais pas l'indice initial, ni le final.

Y a t'il un une commande qui permette de faire une selection globale.

Merci

Configuration: Windows 2000
Internet Explorer 6.0

Meilleures réponses pour « [excel][vba] selection zone de texte » dans :

[Excel] VBA : bouton avec texte en couleur Voir

Excel VBA selection lignes avec condition (Résolu) Voir

[excel/VBA] selection d'une plage de donnée Voir

Javascript - Effacer un champ de formulaire lors du clic (focus) Voir

Liste déroulante avec saisie semi automatique pour EXCEL VoirC'est une procédure qui demande un investissement personnel et qui n'est pas nécessairement facile à comprendre et à réaliser dès la première fois. Afin de rendre cette astuce facile à utiliser, nous allons employer les plages et les formules...

[Excel VBA] Macro enregistrement automatique (Résolu) Voir

Selection de texte Voir

[Excel-VBA] Bibliothèques Voir

Posez votre question Répondre

bouzinac, le 4 avr 2007 à 17:07:13

Je cherche également une solution à ce même problème

Répondre à bouzinac

mika, le 12 jui 2007 à 17:30:10

Feuil1.Shapes.SelectAll

Répondre à mika

sandraros, le 1 déc 2007 à 20:44:17

Dim oneshape as shape
For each oneshape in ActiveChart.Shapes
oneshape.delete
next

Répondre à sandraros

sandraros, le 1 déc 2007 à 20:58:33

Pardon, le code ci-dessus supprime toutes les shapes du chart. Ce script ci-après ne supprime que ceux dont les noms commencent par Text Box:

 Sub delete_textbox() Dim oneshape As Shape For Each oneshape In ActiveSheet.Shapes If Left(oneshape.Name, 8) = "Text Box" Then oneshape.Select Selection.Delete End If Next End Sub

Répondre à sandraros

sandraros, le 1 déc 2007 à 20:59:45

Pardon, le code ci-dessus supprime toutes les shapes du chart. Ce script ci-après ne supprime que ceux dont les noms commencent par Text Box:

Sub delete_textbox()

Dim oneshape As Shape
For Each oneshape In ActiveSheet.Shapes
If Left(oneshape.Name, 8) = "Text Box" Then
oneshape.Select
Selection.Delete
End If
Next

End Sub

Répondre à sandraros

Posez votre question Répondre