'*****************************************************************************************
'on classe le worbook dans le userform
Private WithEvents wbk As Workbook 'on cré un map evenement pour workbook
Private Sub UserForm_Initialize()
Set wbk = ThisWorkbook 'wbk devient CE!!! CLASSEUR !!!!!
End Sub
'en temps normal , cet événement devrait se trouve dans le module thisworkbook
'comme on classe le workbook dans le userform avec withevents
'on a acces a tous les événements du module thisworkbook
Private Sub wbk_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Unload Me
End Sub
'*******************************************************************************************
' un petit message dans l'evenement close du userform pour vérifier qu'il se ferme bien
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MsgBox "bye!!bye!!"
End Sub