Discussion :

[alorse]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci beaucoup

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alorse]

Ok merci

[alorse]

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

[ouskel'n'or]

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

[alorse]

OK merci, je vais essayer

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alorse]

Voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

[alorse]

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

[alorse]

thisWorkBook n'existe pas en tant que fonction ?

[ouskel'n'or]

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+

[alorse]

Ca me fait la meme erreur

Il naime pas trop "LeBouton.Select"

[ouskel'n'or]

As-tu essyé de simplifier ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alorse]

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

[ouskel'n'or]

Corrige cette ligne, j'ai laissé un Selection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A tout hasard, je ne domine pas ton hauteurCourante

[alorse]

merci

Je crois bien que ca marche