Excel redémarre à chaque exécution d'un code sur une feuille protégée

Bonjour à tous,

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

Code:

---

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.

Salut

Plusieurs choses

• Il vaudrait pieux mettre les lignes unprotect et protect de part et d'autre de la modification de la cellule B10
• Une fois Unload me appelé, le userform est fermé, donc tout le code qui suit cette ligne ne sera pas exécuté
• Pour limiter le temps de boucle, soit mettre un exit sub si Verif passe à true, soit utiliser un structure de boucle while Wend en contrôlant "Verif" pour sortir de la boucle.

++
Qwaz

Salut,
En complément des notes de Qwazety, je suppose que la boucle te sert à contrôler si un TextBox ou ComboBox est vide ? donc en l'état actuel du code à ton avis il se passe quoi si le premier est égal à "" et le deuxième ou troisième n'est pas vide ?

Sinon mis à part le fait que tu fasses un Unload Me en milieux de procédure je ne vois pas pourquoi cela planterais Excel. donc change cela. Mets en commentaire 'UserForm3.Show on ne sait jamais. Et refais les tests