Discussion :

[Lasmal]

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.

[Qwazerty]

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

[Valtrase]

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