Bonjour le forum,
Soit un module de classe nommé "cBtnPC" avec le code suivant :
Soit un UserForm sur lequel sont créés automatiquement des boutons selon divers paramètres, boutons qui appartiennent à une Collection d'objets de ma classe "cBtnPC" et qui réagissent au clic en lançant la procédure ci dessus.
Les évènements "AjouterAppartement" et "SuppressionAppartement" sont déclarés dans le module Userform où sont placés les boutons :
Je ne parviens pas à faire en sorte que mes évènements "AjoutAppartement" et "SuppressionAppartement" soit lancés. En suivant le déroulement en pas à pas, mes MsgBox s'affichent, puis on passe bien sur la ligne "RaiseEvent SuppressionAppartement", mais sans être redirigé vers "Public Sub oBtnPC_AjoutAppartement()".
Si vous pouviez m'éclairer un peu sur le sujet.... Je découvre juste les classe et collections alors ça rame un peu
Merci beaucoup pour votre aide!!
Soit un module de classe nommé "cBtnPC" avec le code suivant :
Code:
Option Explicit
Public Event AjoutAppartement()
Public Event SuppressionAppartement()
Public WithEvents Btn As MSForms.CommandButton
Public Sub Btn_Click()
If Not InStr(1, Btn.Name, "Ajouter") = 0 Then
MsgBox "ajouter"
RaiseEvent AjoutAppartement
Else
MsgBox "supprimer"
RaiseEvent SuppressionAppartement
End If
End Sub
Soit un UserForm sur lequel sont créés automatiquement des boutons selon divers paramètres, boutons qui appartiennent à une Collection d'objets de ma classe "cBtnPC" et qui réagissent au clic en lançant la procédure ci dessus.
Les évènements "AjouterAppartement" et "SuppressionAppartement" sont déclarés dans le module Userform où sont placés les boutons :
Code:
Public Sub oBtnPC_AjoutAppartement()
... mon code
End Sub
Public Sub oBtnPC_SuppressionAppartement()
... mon code
End Sub
Je ne parviens pas à faire en sorte que mes évènements "AjoutAppartement" et "SuppressionAppartement" soit lancés. En suivant le déroulement en pas à pas, mes MsgBox s'affichent, puis on passe bien sur la ligne "RaiseEvent SuppressionAppartement", mais sans être redirigé vers "Public Sub oBtnPC_AjoutAppartement()".
Si vous pouviez m'éclairer un peu sur le sujet.... Je découvre juste les classe et collections alors ça rame un peu
Merci beaucoup pour votre aide!!
Dernière édition: