Bonjour,

J'ai mis en place ce code qui permet entre autre que le message qui apparait clignote.
Mais lorsque je clique sur le bouton "Oui", les formulaires se ferment bien, mais les autres macros sont bloquées, je ne peux plus aller sur le gestionnaire de macro "Alt + F11".

Pouvez-vous m'indiquer l'erreur que j'ai fait dans ma programmation ?
Je vous en remercie par avance

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
19
20
21
22
 
Private Sub CNon_Click() 'Je clique sur non, le formulaire se ferme
Unload Me
End Sub
 
Private Sub CoK_Click() 'Je clique sur oui, les 2 formulaires se ferment
Unload Me
Unload FrmAdhé
End Sub
 
Private Sub UserForm_Activate()
'clignote
Dim a As String
a = Timer
Do
Do Until a + 0.6 <= Timer
DoEvents
Loop
If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True
a = Timer
Loop
End Sub