Bonjour,

J'essaye d'utiliser un programme (extrait de Perfect Micro, Excel 2000 et VBA permettant de percevoir le procede de generation d'evenements produits pendant que je travaille.

Pour cela, j'essaye d'afficher chaque evenement de niveau application pendant qu'il se produit de la facon suivante (exemple):

SheetChange: A3 in Sheet2
SheetSelectionChange: A2 in Sheet2
SheetActivate:Sheet1
J'ai creer un UserForm1, mais je n'arrive pas a obtenir le resultat recherche : pas d'affichage de l'userform lorsque j'execute la procedure XL_NewWorkbook.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub XL_NewWorkbook(ByVal Wb As Excel.Workbook)
    LogEvent "NewWorkbook: " & Wb.Name
End Sub
 
Sub LogEvent(txt)
    EventNum = EventNum + 1
    With UserForm1
        With .lblEvents
            .AutoSize = False
            .Caption = .Caption & vbCrLf & txt
            .Width = UserForm1.FrameEvents.Width - 20
            .AutoSize = True
        End With
        .FrameEvents.ScrollHeight = .lblEvents.Height + 20
        .FrameEvents.ScrollTop = EventNum * 20
    End With
End Sub
D'avance merci pour votre aide.