Bonjour à tous,

En exécutant le code ci-dessous, Excel redémarre systématiquement sans raison :

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
23
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="suivi"
Dim ctrl As Control, Verif As Boolean
 
For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.TextBox Or TypeOf ctrl Is MSForms.ComboBox Then
        If ctrl.Value = "" Then Verif = True
    End If
Next
 
If Verif = True Then
    MsgBox "Sélectionne ton Nom!", vbInformation, "Attention !"
Else
 
   Range("B10") = ComboBox1.Value
 
     Unload Me
    UserForm3.Show
 
 
End If
 ActiveSheet.Protect Password:="suivi"
End Sub
Je ne comprends pas à quoi cela est dû !
Quelqu'un pourrait-il m'aider à résoudre ce problème?
Un grand merci par avance
Je précise que la cellule B10 est verrouillée et que la feuille est protégée par un mot de passe "suivi".
Je ne rencontre pas ce souci tant que la feuille n'est pas protégée.