[VBA-E] recuperation boutons

Bonjour

j'aimerais savoir 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

Merci 8-)

Je suppose que sur la ligne 7 tu as les boutons PremierBouton = 3ème bouton de ta feuille, au bouton DernierBouton = 7ème bouton de ta feuille, les boutons 1 et 2 étant sur une autre ligne par exemple, ainsi que les boutons 8 à 12

Code:

---

1 2 3 4 5 6 7 8

Sub AlignerDesBoutons() Dim NoBouton As Byte, DernierBouton As Byte, PremierBouton As Byte DernierBouton = 7 PremierBouton = 3 For NoBouton = PremierBouton To DernierBouton ActiveSheet.Shapes(NoBouton).Top = Rows(7).Top Next End Sub

---

A+

Ok, merci beaucoup

Un petit Résolu si c'est résolu ;) Bouton en bas de la fenêtre