Discussion :

[filou974]

Débutant en vba excel (j'ai commencé hier), j'ai réalisé un programme qui intègre des "pastilles" (en fait des petits ronds de couleur verte ou rouge) dans des cellules excel dont la valeur est significative par rapport à une autre.
Maintenant, j'essaye de paramétrer un bouton qui permet d'effacer toutes ces "pastilles" pour nettoyer le document et pouvoir refaire le test avec d'autres valeurs. Mes pastilles s'appellent toutes "oval 15" (les pastilles rouges) et "oval 16" (les pastilles vertes).
Le problème, c'est que quand il n'y a plus de pastille, ma macro plante parcequ'elle essaye d'effacer un élément qui n'existe pas.
Ma question : Y a-t-il un moyen en "vba excel" de savoir s'il existe dans mon onglet un dessin nommé "oval 15" (ou "oval 16") ?
(L'idée étant de faire une boucle qui, tant qu'il y a des dessins oval 15 ou 16 dans l'onglet, les efface.)
Merci par avance de l'aide que vous pourrez m'apporter.

[Jean-Philippe André]

bonjour et déjà bienvenue sur le forum,
ca doit être facilement jouable oui ^^
Peux-tu stp nous donner le code qui te permet d'intégrer ton image ?
J'ai tout plein de code en tête, mais pour pas donner dans le vide, j'ai juste besoin de cette info

[ouskel'n'or]

Pour passer en revue toutes les formes que tu as dans ta feuille active

Code :

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

1
2
3
4
5
Sub test()
For Each Dessin In ActiveSheet.Shapes
    MsgBox Dessin.Name
Next
End Sub

Tu fais un test sur le nom
A+

[filou974]

bonjour et déjà bienvenue sur le forum,
ca doit être facilement jouable oui ^^
Peux-tu stp nous donner le code qui te permet d'intégrer ton image ?
J'ai tout plein de code en tête, mais pour pas donner dans le vide, j'ai juste besoin de cette info

En fait, pour faire simple, j'ai créé les images sur un autre onglet, et je les récupère avec un copier/coller
le code :

Code :

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

1
2
3
4
5
Sheets("TESTS SIGNIFICATIVITE").Select
    ActiveSheet.Shapes("Oval 15").Copy
    Sheets("noto").Select
    ActiveCell.Offset(0, -1).Select
    ActiveSheet.Paste

voili voilo

[SilkyRoad]

bonjour

as tu consulté la FAQ ?

http://excel.developpez.com/faq/?page=Shape


michel

[ouskel'n'or]

Ma question : Y a-t-il un moyen en "vba excel" de savoir s'il existe dans mon onglet un dessin nommé "oval 15" (ou "oval 16") ?

En adaptant simplement mon code

Code :

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

1
2
3
4
5
Sub test()
For Each Dessin In ActiveSheet.Shapes
    If Dessin.Name = "Oval 15" Or Dessin.Name = "Oval 16" Then Dessin.Delete
Next
End Sub

[filou974]

C'est cool, j'ai pu résoudre mon pb en un tps record grâce à vous. Je vous remercie et cours acheter un bouquin sur VBA pour éviter de vous poser des questions trop triviales.
a+