Problème "shape"

[fenec]

Bonjour le forum

Je viens à nouveau vers vous car je rencontre un nouveau problème
Dans mon code du bouton « archiver » si j’écris :

'For Each Shp In .Shapes
' Shp.Delete
'Next Shp

J’archive en supprimant les boutons « ce que je désire » mais cela m’efface aussi les formes automatiques de la feuille.

Si j’écris :

For Each Shp In ActiveSheet.Shapes
If Left(Shp.Name, 24) = "AutoShape" Then Shp.Delete
Next Shp

Les formes automatiques sont présentent mais les boutons aussi

Est-il possible de combiner les deux afin d’avoir les formes automatiques sans les boutons

En espérant avoir été clair

Cordialement

Fenec

 

[pierrejean]

Re : Problème "shape"

Bonjour fenec

Une solution

Rebaptiser les boutons : Bouton 1 2 3 et ecrire

For Each Shp In ActiveSheet.Shapes
       If InStr(Shp.Name, "Bouton") <> 0 Then Shp.Delete
     Next Shp

 

[fenec]

Re : Problème "shape"

Bonjour PierreJean

J'ai essayé de mettre ton code dans mon fichier final mais il ne marche pas
J'ai donc refait un essai et toujours pareil ne fonctionne pas

Te joint mon fichier au ca ou j'aurais oublié quelque chose

A+

 

[klin89]

Re : Problème "shape"

Bonsoir le forum, 🙂

Sans débaptiser les boutons :

For Each Shp In ActiveSheet.Shapes
      If Shp.AutoShapeType = msoShapeRoundedRectangle And Shp.Height < 30 Then Shp.Delete
    Next Shp

Après exécution, il te reste 16 formes et non plus 19 dans le fichier du post #1#

?activesheet.shapes.count
16

Un peu bourrin quand même 😛

Klin89

 

[Si...]

Re : Problème "shape"

salut

les "Boutons" étant appelés "Autoshape 40", "Autoshape 42" et "Autoshape 43" cela devrait suffire pour les effacer

...
  For n = 40 To 43
    If n <> 41 Then ActiveSheet.Shapes("Autoshape " & n).Delete
  Next
...

A noter que ton "Left(Shp.Name, 24)" correspond aux 24 premières lettres du nom !

 

[pierrejean]

Re : Problème "shape"

Re

Tu as omis de renommer les boutons :
Selectionne le bouton puis au dessus Du A (coin superieur gauche de la page) remplace Autoshape.. par Bouton et appuie sur Enter