Supprimer Shapes

Bonjour,

Je suis à la recherche d'un code pour supprimer des Shapes nommer "SP- "00" et sur une feuille nommer "Carte"

Je vous remercie d'avance

Max

Bonjour,

Ci-dessous un code à tester et à adapter ...

Sub SupprimerShapes()
Dim shp As Shape

For Each shp In Sheets("Carte").Shapes
  If Left(shp.Name, 3) = "SP-" Then shp.Delete
Next

End Sub

Bonjour james007

Ton code fonctionne Nickel je te remercie beaucoup.

Je voudrais l'associer a mon code mais je n'arrive pas?

Mon code pour supprimer Couleur des cellules et bordures.

Sub Encadrer()
Dim cel As Range
  For Each cel In Range("I2:T52")
  With cel.Resize(, 8).Borders
  If cel <> "" Then
  .Weight = xlThin

  Else
     .LineStyle = xlNone

'Pour supprimer la couleur de fond
   With Range("I2:T52")
       .Interior.ColorIndex = xlNone
   End With

     End If
     End With
Next
End Sub

Merci et bonne journée

Max

Bonjour,

Je ne suis pas sûr de comprendre ton obstacle ...

Que se passe-t-il si tu ne fais que recopier les trois lignes ... après l'instruction Next ...???

Re,

Sa mais un temps pas possible........

@+

Re,

Si la suppression des Shapes prend du temps ... c'est que ta feuille doit en comporter beaucoup ...

re,

non une vingtaine, J'ai du mal m'exprimer ce sont les bordures qui sont longues a se supprimer

valmax a écrit :

re,

non une vingtaine, J'ai du mal m'exprimer ce sont les bordures qui sont longues a se supprimer

Donc ... on change de sujet ...

Je n'ai pas ausculté ton code pour les bordures ... Que cherches-tu à faire ...

re,

Supprimer les bordures, vider la couleur des cellules de ("I2:T52") et supprimer les shapes.

Merci

valmax a écrit :

re,

Supprimer les bordures, vider la couleur des cellules de ("I2:T52") et supprimer les shapes.

Merci

Re,

Tu peux tester le code suivant :

Sub TestMacro()
Dim shp As Shape
    With Range("I2:T52")
        .Interior.ColorIndex = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    For Each shp In Sheets("Carte").Shapes
      If Left(shp.Name, 3) = "SP-" Then shp.Delete
    Next shp
End Sub

re,

Nickel je te remercie et te souhaite bonne journée

Max

Re,

Content que cela fonctionne ...

Merci pour tes remerciements ...