Boucler sur les boutons de type formulaire

[MJ13]

Bonjour à tous

Je cherche à boucler sur des boutons de type formulaire sur une feuille qui s'appellle button et qui ont des macros en lien.

J'ai bien ce code pour un bouton:

ActiveSheet.Shapes("Button 8").Select
    Selection.OnAction = "macro1"

Je cherche un code du type pour boucler sur tous les boutons:

for each ...
 Macro.....
next

Merci d'avance 🙂.

 

[tototiti2008]

Re : Boucler sur les boutons de type formulaire

Bonjour Michel,

un essai

Sub BoucleBouton()
Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
        If Sh.Type = msoFormControl Then
            If Sh.FormControlType = xlButtonControl Then
                MsgBox Sh.Name & " : " & Sh.OnAction
            End If
        End If
    Next Sh
End Sub

 

[Pierrot93]

Re : Boucler sur les boutons de type formulaire

Re,

petite question au passage, pourquoi ne pas utiliser des contrôles activex.... plus facile de les manipuler, enfin c'est juste mon avis....

bon après midi
@+

 

[MJ13]

Re : Boucler sur les boutons de type formulaire

Bonjour Tototiti, Pierrot

Tototiti: Cela fonctionne très bien, merci beaucoup 🙂.

Ce qui donnerait pour mon problème de lien que je perds 😱:

Sub BoucleBouton_Ref_Classeur()
'Totititi
Dim Sh As shape
    For Each Sh In ActiveSheet.Shapes
        If Sh.Type = msoFormControl Then
            If Sh.FormControlType = xlButtonControl Then
                'MsgBox Sh.Name & " : " & Sh.OnAction
                'MsgBox Sh.OnAction
                'Cells(10, 11) = Sh.OnAction
                'MsgBox Len(Sh.OnAction)
               'Sh.OnAction = "test"
                For i = 1 To Len(Sh.OnAction)
               If Mid(Sh.OnAction, i, 1) = "!" Then GoTo suite
               Next
suite:
    'Stop
    NOMacro = Mid(Sh.OnAction, i + 1, Len(Sh.OnAction) - i)
    Sh.OnAction = NOMacro
                'Stop
            End If
        End If
    Next Sh
End Sub