Discussion :

[tank86]

Bonjour,

Je me pose actuellement une question a propos de la numérotation automatiques des shapes en vba sous Excel 2000.

Je m'explique, j'ai un programme qui me creer des ellipses dans un graphique puis qui réalise un certain nombre de traitement dessus. A la fin du programmes les shapes sont détruits.

Lorsque je relance le programme la numérotation des shapes continue a partir des anciens qui on été supprimés (Oval 154, Oval 155 etc...) et pas a partir de 1. Étant donné que mon programme créé beaucoup d'ellipses j'ai peur qu'au bout d'un moment il y ai un débordement et que le programme ne fonctionne plus.

Existe t'il un moyen de remettre ce compteur à 0 ou de le décrémenter lorsque je supprime mes ellipses ?

Quel est le nombre maximal de shapes que peut accepter excel?

Que va t'il se passer en cas de débordement de ce compteur (enfin si il déborde bien sur) ?

Merci,
Tank86

[ouskel'n'or]

J'ai fait un truc bête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Long
    Application.ScreenUpdating = False
    On Error Resume Next
        Do While Err.Number = 0
            ActiveSheet.Shapes.AddShape msoShapeOval, 258#, 229.5, 48.75, 141.75
            i = i + 1
            Debug.Print "N° de l'ellipse " & ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
            ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
        Loop
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

Et là j'arrive à 32767... parce que j'ai déclaré i en integer...
Déclaré as long, j'ai stoppé la macro à 170000 et dans Excel, si je sélectionne l'ellipse j'ai "Ellipse 170000" dans la fenêtre en haut et à gauche.
Avec Double... je te laisse le faire
Si tu supprimes les ellipses au fure et à mesure, je ne vois pas le pb, il n'y a que le N° qui change
Bonne journée

[tank86]

Merci de ta réponse rapide
Ok donc a priori pas de limite!

J'aurai pas de problemes de débordement avant un bon moment puisque je traite mes différentes shapes avec leurs noms (type string)

je testerai avec un double ce midi pendant que j'irai manger
Edit : En effet après tests à 15.000.000 ca fonctionne toujours

Par contre es ce qu'il est possible de remettre ce compteur à 0?

[Didier Gonard]

Bonjour,

Rien vu dans les limites d’Excel, la limite doit à priori se situer au niveau du nombre de shapes présents qui serait en fonction de la mémoire dispo. Toi tu ne les cumules pas, le phénomène est donc lié à la structure des noms finalement et au type de la variable sous-jacente qui les alimente.

Les tests d’Ousk vont dans ce sens
Par contre, pour ce qui est d’agir sur le compteur d’indexation des noms (différent des index des shapes), je ne pense pas que ce soit accessible, des pirouettes sont possibles par contre au vu du comportement des feuilles et classeurs :


1) En code – au fur et à mesure que tu crées un shapes ellipse, tu le renommes genre (ellipses crées en dernier / shapes) :

Code :

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

1
2
3
4
I = ActiveSheet.Shapes.Count
…
ActiveSheet.Shapes.AddShape(msoShapeOval, 132, 78 , 102, 40).Name = "EllipsePerso" & ActiveSheet.Shapes.Count + 1 – I
….

A la fin du programmes les shapes sont détruits.

Si tu effaces tous les shapes (donc le graphique, contrôles etc…)

2) Tu effaces tes shapes, tu sauves, tu fermes, tu rouvres => c’est reinitialisé

3) Tu effaces tes shapes, tu copies ta feuille dans ton classeur, tu supprimes l’ancienne => c’est réinitialisé dans la nouvelle.


cordialement,

Didier

[Invité]

Bonsoir,

Ce sujet m'intéresse car bien évidemment je trouve aberrant que malgré la suppression d'objets le N° continue a être incrémenté sauf avec la solution proposée par Ormonth qui semble être la seule valable.

Il faut remarquer qu'il est possible d'obtenir la possibilité de supprimer des objets, mais que par contre pour ce qui est des "shapes" la seule possibilité est "couper" donc comme avec "coller" l'objet est conservé en mémoire.

J'exprime peut-être mal mon idée, mais est-ce la raison de cette réinitialisation qui ne se fait pas ?

[ouskel'n'or]

Il faut remarquer qu'il est possible d'obtenir la possibilité de supprimer des objets, mais que par contre pour ce qui est des "shapes" la seule possibilité est "couper" donc comme avec "coller" l'objet est conservé en mémoire.

Si tu veux dire "c'est comme si la seule possibilité est "couper", on peut peut-être dire ça quoi que tu ne peux annuler l'action par le code, ni réaliser le collage des shapes ailleurs que permettrait l'action de couper.
Par contre, Delete les supprime bien.
Un autre moyen pour avoir le bon numéro de shape, les renommer lors de leur création

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
Sub InsertionDesBidules()
Dim i As Long
    Application.ScreenUpdating = False
        Do While i < 2 'Err.Number = 0
            ActiveSheet.Shapes.AddShape msoShapeRectangle, 250#, 200, 50, 150
            i = ActiveSheet.Shapes.Count
            ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name = "Rectangle " & i
            Debug.Print "Nom : " & ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
            ActiveSheet.Shapes.AddShape msoShapeOval, 250#, 200, 50, 150
            i = ActiveSheet.Shapes.Count
            ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name = "Ellipse " & i
            Debug.Print "Nom : " & ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
        Loop
    Application.ScreenUpdating = True
End Sub

Code :

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

1
2
3
4
5
6
7
Sub Sup()
Dim LeTruc As Shape
        'Suppression des bidules
        For Each LeTruc In ActiveSheet.Shapes
            LeTruc.Delete
        Next
End Sub

Bonne nuit