Bonjour à tous,
En exécutant le code ci-dessous, Excel redémarre systématiquement sans raison :
Je ne comprends pas à quoi cela est dû !
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
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.
Partager