effacer tous les boutons et images sauf une ou deux

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #2

Re : effacer tous les boutons et images sauf une ou deux

Re,

essaye ceci :

Code:

Option Explicit
Sub test()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
    If Not sh.Name Like "cible" Then sh.Delete
Next sh
End Sub

 

Vote positif 0 Vote négatif

E

Esox

XLDnaute Occasionnel

• 6 Mars 2012

• #3

Re : effacer tous les boutons et images sauf une ou deux

Re,

Ok c'est bon ca marche.
Maintenant, saurais tu comment nommer une image stp ?

 

Dernière édition: 6 Mars 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #4

Re : effacer tous les boutons et images sauf une ou deux

Re,

Si je n'ai pas de shapes "cible" il m'efface tout, et si j'en ai un j ai une erreur 1004.

Cliquez pour agrandir...

pas de problème chez moi, code que je t'ai donné fonctionne....

sinon, qu'elle est la ligne de commande pour supprimer tous les shapes ?

Cliquez pour agrandir...

comme ceci :

Code:

ActiveSheet.Shapes.SelectAll
Selection.Delete

ou bien cela :

Code:

ActiveSheet.OLEObjects.Delete

dépend des types d'objet présents sur ta feuille....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #5

Re : effacer tous les boutons et images sauf une ou deux

Pour nommer une image :

Code:

ActiveSheet.Shapes(1).Name = "monimage"

 

Vote positif 0 Vote négatif

E

Esox

XLDnaute Occasionnel

• 6 Mars 2012

• #6

Re : effacer tous les boutons et images sauf une ou deux

Merci,
Oui j'ai vu aussi qu'on pouvait les nommer manuellement via la barre de formule dans le champs "nom"
Merci bcp

 

Vote positif 0 Vote négatif

E

Esox

XLDnaute Occasionnel

• 6 Mars 2012

• #7

Re : effacer tous les boutons et images sauf une ou deux

Re, je reviens car je n'arrive pas à l'adapter pour deux shapes nommés respectivement cible et logo, j'ai essayé avec "OR" et "END" mais je dois mal m'y prendre, donc avec la piste que tu m as donné puis je stipuler deux shapes nommés ? si oui comment ?

Merci,

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #8

Re : effacer tous les boutons et images sauf une ou deux

Re,

pas sur d'avoir tout compris, peut être ceci :

Code:

ActiveSheet.Shapes("cible").Name = "End"

attention, en l'état, agit toujours sur les "shapes" de la feuille active

 

Vote positif 0 Vote négatif

E

Esox

XLDnaute Occasionnel

• 6 Mars 2012

• #9

Re : effacer tous les boutons et images sauf une ou deux

re,

enfait j'ai deux shapes sur 20 que je ne veux pas supprimer "cible" et "logo" et je n'arrive pas a adapter la ligne que tu m as donnée en premier...

merci de ta patience

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2012

• #10

Re : effacer tous les boutons et images sauf une ou deux

Re,

comme ceci :

Code:

Dim sh As Shape
For Each sh In ActiveSheet.Shapes
    If Not sh.Name Like "cible" And Not sh.Name Like "logo" Then sh.Delete
Next sh

 

Vote positif 0 Vote négatif

E

Esox

XLDnaute Occasionnel

• 6 Mars 2012

• #11

Re : effacer tous les boutons et images sauf une ou deux

re,

ppfffiiiouuuu, je suis qu'un bon à pas grand chose 😉

merci bcp....

 

Vote positif 0 Vote négatif