Effacer certain boutons dans une feuille

Bonjour a tous,

Je suis nouveau sur le forum et j'aimerai savoir comment fait on pour pouvoir effacer certain boutons dans une feuille excel par enxemple tous les boutons de la colonne Transforme et eviter d'effacer le reste des boutons de la feuille.

J'ai un code qui efface tous les boutons de la feuille mais c'est seulement ceux de la colonne Transforme qui devraient disparaitre

Merci beaucoup pour votre aide, je seche vraiment la.

Mathieu

Fichier joint:

Bonsoir et bienvenu(e)

A tester

Sub Test()
Dim Sh As Shape
  For Each Sh In Sheets("Sheet1").Shapes
    If Sh.TopLeftCell.Column = 24 Or Sh.TopLeftCell.Column = 25 Then
      Sh.Delete
    End If
  Next Sh
End Sub

OUahh yes ca marche!!

Merci beaucoup Banzai64

Et si maintenant je voudrai effacer le tableau et la colonne transformation?

Javais commencé par ecrire cela mais ca ne marche pas :

Dim Sh As Shape

Dim x As Integer

For Each Sh In ActiveSheet.Shapes

For x =3 to 25

If Sh.TopLeftCell.Column = x Then

Sh.Delete

End If

Next

Next Sh

Un peu d'aide?

merci beaucoup

Mathieu

Bonjour

A vérifier

Sub Test()
Dim Sh As Shape
  For Each Sh In Sheets("Sheet1").Shapes
   If Sh.TopLeftCell.Column <= 25 Then
      Sh.Delete
    End If
  Next Sh
End Sub

Genial!!!

MErci