Bonjour le forum !
Je voudrais relier l'ensemble des CommandButton d'un classeur à un même module de classe. Ne connaissant ni le nom, ni le nombre de ces boutons, j'aurai aimé créer ce lien dès l'ouverture du classeur en procédant par boucle :
Le module de classe :
Mon soucis est que je n'arrive pas à gérer le fait que ces boutons sont considérés comme des shapes et non comme des CommandButton.
Auriez vous quelques pour m'aider ?
Je vous remercie par avance pour toute aide.
Bonne journée
Je voudrais relier l'ensemble des CommandButton d'un classeur à un même module de classe. Ne connaissant ni le nom, ni le nombre de ces boutons, j'aurai aimé créer ce lien dès l'ouverture du classeur en procédant par boucle :
Code:
Private Bouton_Valideur() As New Bouton_Validation
Private Sub Workbook_Open()
Dim Bouton As Shape
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
For Each Bouton In Feuille.Shapes
Cptr = Cptr + 1
End If
Next
Next
ReDim Bouton_Valideur(Cptr)
Cptr = 1
For Each Feuille In ThisWorkbook.Sheets
For Each Bouton In Feuille.Shapes
Set Bouton_Valideur(Cptr).MonBouton = Bouton
Cptr = Cptr + 1
End If
Next
Next
End Sub
Le module de classe :
Code:
Option Explicit
Public WithEvents MonBouton As MSForms.CommandButton
Private Sub MonBouton_Click()
MsgBox MonBouton.Name & " est bien relié au module de classe"
End Sub
Mon soucis est que je n'arrive pas à gérer le fait que ces boutons sont considérés comme des shapes et non comme des CommandButton.
Auriez vous quelques pour m'aider ?
Je vous remercie par avance pour toute aide.
Bonne journée