[VBA-E] suppression de boutons

Bonjour

encore, une question ( je suis complètement débutante )
Je veux supprimer une ligne contenant des boutons. Cependant la suppression de ligne ne supprime pas les boutons. Comment est-ce que je pourrais quand même supprimer ces boutons ?

jutilise ce code pour supprimer ma ligne :

Code:

---

1 2	ThisWorkbook.Sheets("nom_feuille").Rows(ligne).Delete

---

Merci beaucoup

Code:

---

1 2 3 4 5 6

Sub supprimerTsLesBouton() Dim LeBouton As Shape For Each LeBouton In ThisWorkbook.Worksheets("feuil1").Shapes LeBouton.Delete Next End Sub

---

Remarque : Le code associé aux bouton ne sera pas supprimé, seuls les boutons disparaîtront ;)

Ok merci

Mais au fait, comment obtenir des boutons sur une ligne donnée ? Car jai par exemple la ligne 7 et je voudrais supprimer tous les boutons de la ligne 7

:roll:

Je n'en sais rien mais je tenterais de connaître leur top que je comparerais au top de la ligne.

OK merci, je vais essayer

J'ai testé et ça a l'ai de fonctionner mais faudra que le top de tes boutons soient bien allignés avec le sommet de ta ligne.

Code:

---

1 2 3 4 5 6 7 8

Sub supprimerLesBoutonsLigne7() Dim LeBouton As Shape For Each LeBouton In ThisWorkbook.Worksheets("feuil1").Shapes If Rows(7).Top = LeBouton.Top Then LeBouton.Delete End If Next End Sub

---

Il doit exister autre chose. Je regarde

Voila mon code :

Code:

---

1 2 3 4 5 6 7 8 9

For Each LeBouton In ThisWorkbook.Worksheets(ActiveSheet.Name).Shapes LeBouton.Select If Selection.Top < hauteurCourante + 5 And Selection.Top > hauteurCourante - 5 Then LeBouton.Delete MsgBox "oki" End If Next

---

hauteurCourante est en fait l'ordonnée dune ligne en nombre de pixels. Le programme me génère une erreur avec LeBouton.Select ( il dit que la methode select de lobjet shape a echoue ). Quelqu'un sait pourquoi ?

Marci beaucoup

Est-ce que "ThisWorkbook" est le classeur contenant les boutons ?

Je pensais que cetait la feuille dans laquelle il y avait tous les boutons.

thisWorkBook n'existe pas en tant que fonction ?

Thisworkbook est le classeur contenant la macro
ActiveWorkbook est le classeur actif
Si le classeur qui contient les macros n'est pas celui contenant la feuille contenant les boutons, c'est donc ActiveWorkbook ou mieux
Workbooks("LeClasseur.xls").Worksheets("Feuil1")...
A+

Ca me fait la meme erreur :cry:

Il naime pas trop "LeBouton.Select"

As-tu essyé de simplifier ?

Code:

---

1 2 3

For Each LeBouton In ThisWorkbook.Worksheets(ActiveSheet.Name).Shapes if LeBouton.Top < hauteurCourante + 5 And Selection.Top > hauteurCourante - 5 Then LeBouton.Delete

---

oui, jai essaye, il ny a plus de bug, mais le programme ne supprime pas de boutons

Corrige cette ligne, j'ai laissé un Selection

Code:

---

if LeBouton.Top < hauteurCourante + 5 And LeBouton.Top > hauteurCourante - 5 Then

---

A tout hasard, je ne domine pas ton hauteurCourante ;)

merci ;)

Je crois bien que ca marche