Discussion :

[tinmarbusir]

Un bug d'Excel m'ennuie un peu!(j'espère que c'est plutôt une erreur de ma part!

Un programme me crée des shapes,jusque là tout va bien
à chaque fois que je le relance j'efface les shapes de la feuille histoire que ce soi t un peu plus clair...

Code :

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

1
2
3
4
5
Dim forme As Shape
 
For Each forme In Worksheets("feuil4").Shapes
   forme.Delete
Next forme

Quand je le lance j'obtiens l'erreur
La méthode 'Delete' de l'objet 'Shape' a échoué
suivi du

Microsoft Excel a rencontré un problème et doit fermer. Nous vous prions de nous excuser pour le désagrément encouru.
les infomations sur lesquelles vous travailliez peuvent avoir été perdues.
Microsoft Excel peut tenter de les récupérer
...........

Ah j'oubliai un détail intéressant.Quand j'utilise le débogueur(Pas à pas détaillé), il n'y a pas de problème...

Quelqu'un aurait il une explication si vou plééé???

[Catbull]

Ca m'a l'air en effet d'être un bug. Chez moi ce code fonctionne très bien (Excel 2000 SP3).

Peut-être que le classeur n'est plus intégre. Essaie de copier les feuilles de ton classeur dans un autre classeur ainsi que les macros pour voir si le problème persiste.

[zazaraignée]

Salut

T'as essayé dans un compte à rebours?

Code :

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

1
2
3
4
Dim i As Integer
For i = Feuil14.Shapes.Count to 1 Step -1
    Shapes(i).Delete
Next

[Edit] Apparemment, les indices des Shapes commencent à 1...

[SfJ5Rpw8]

essai de voir quel "shape" provoque ton plantage ..:

Code :

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

1
2
3
4
5
6
7
8
 
Dim forme As Shape
For Each forme In Worksheets("feuil4").Shapes
   Debug.Print forme.Name
   Debug.Print forme.Type
   Stop
   forme.Delete
Next forme

le code s'arrête sur l'instruction Stop ... , observe le résultat dans fenêtre exécution, puis actionne F5 pour détruire le shape en cours.. ..

[tinmarbusir]

Salut
Après un bon week-end à la campagne, je suis retourné à ce problème de "shapes". Je vous remercie tout d'abord pour vos réponses...

Code :

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

1
2
3
4
5
6
7
Dim Ftriangle As Shape
 
For Each Ftriangle In Worksheets("feuil4").Shapes
   Debug.Print "nom :" & Ftriangle.Name; " - Type : " & Ftriangle.Type
   Stop
   Ftriangle.Delete
Next Ftriangle

Avec ce code, il n'y a bizzarement pas d'erreur.(Comme avec le pas à pas)
En enlevant le Stop aussi...
Mais en enlevant la ligne debug.print, et bin çà marche encore
Ah bah non çà marche plus... (en clair çà marche nickel en pas à pas ou avec le stop sinon çà plante)



Je viens de remarquer autre chose. Quand je lance la macro depuis la feuille ou se trouve les données, l'éxécution trouve la même erreur mais ne plante pas...Elle plante quand je resélectionne la feuille des formes (la "feuil4")...
En revanche, quand la feuille ou sont dessinées mes formes est sélectionnée(des triangles en l'occurence), je me retrouve avec l'erreur...

pourquoi VBA il est pas gentil avec moiiii?

[Ania]

Juste comme ca parce que j'ai eu le cas une fois

est-ce la feuille ou tu supprime les shape est active ou du moins visible quand tu lance ta fonction?