Discussion :

[Lylyd]

Bonjour à tous,

Je suis en pleine création d'une base de données qui renvoie à plusieurs onglets, et pour cela, j'ai un onglet avec pleins de boutons, que j'ai créé avec la macro :

Code :

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

1
2
3
4
5
6
 
For i = 3 To 203
        Set bouton = ActiveSheet.Buttons.Add(Range("B" & i).Left, Range("B" & i).Top, Range("B" & i).Width, Range("B" & i).Height)
        bouton.Caption = Range("B" & i).Value
        bouton.OnAction = "Macro"
Next

Ces différents boutons me permettent d'imprimer des rapports contenus dans des onglets.

Maintenant, j'aimerai pouvoir supprimer certains boutons avec une macro, en fonction de ce qui est inscrit dans la colonne A & ligne de mon choix.
Est il possible de repérer un bouton en fonction de la ligne dans laquelle il apparait plutôt que en fonction de son nom?

En gros, remplacer les ... dans le code suivant pour supprimer le bouton de ligne "LigneX":

Code :

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

1
2
3
4
5
6
7
8
 
For LigneX = 3 To 203
       If Worksheets("Reference").Range("A" & LigneX).Value = Range("B2").Value Then
 
              ...
 
       End If
Next LigneX

Merci beaucoup!!!!

[Lylyd]

Bon en fait j'ai trouvé avec le nom des boutons :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Dim btn As Button
For Each btn In ActiveSheet.Buttons
 
If btn.Caption = Range("B2").Value Then
MsgBox btn.Name
 
End If
Next btn

[Pierre Fauconnier]

Salut.

Perso, j'aurais nommé mes boutons à la création avec un nom explicite.

Code :

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

1
2
Set bouton = ActiveSheet.Buttons.Add(Range("B" & i).Left, Range("B" & i).Top, Range("B" & i).Width, Range("B" & i).Height)
bouton.Name = "btnRapport1"

Du coup, pour supprimer, je m'appuie sur le nom du bouton: feuil1.Shapes("btnRapport1").Delete. Ca évite la boucle, notamment(*).




(*) Perso, dans ce cas, je préfère une boucle Do While... Loop à une boucle For Each... Next