Mauvaise gestion des if ?

Bonjour... je suis débutant et vous allez vite le voir je pense dans le code suivant.. mais j'essaie...

Le code ne plante pas mais il fait apparaître des messages box à des moments où il ne devrait pas le faire. J'imagine que je gère mal mes if... qqun peut me le corriger svp?

Private Sub CommandButton1_Click()

If UserForm3.TextBox1.Value = "" Then
Unload Me
MsgBox "Vous devez saisir votre Prénom et NOM"
UserForm3.Show
End If
If UserForm3.TextBox2.Value = "" Then
Unload Me
MsgBox "vous devez saisir vos initiales"
UserForm3.Show
End If
If UserForm3.TextBox1 <> "" And UserForm3.TextBox2 <> "" Then
ActiveSheet.unprotect Password:="toto"
Feuil1.Range("b3").Value = UserForm3.TextBox1.Value
Feuil1.Range("c3").Value = UserForm3.TextBox2.Value

MsgBox "Bienvenue " & Range("b3").Value & ". Vous allez maintenant pouvoir saisir le nom de vos élèves."
Unload Me
UserForm1.Show
End If
ActiveSheet.protect Password:="toto"

End Sub

J'ai essayé cela.... pour l'instant cela a l'air de fonctionner.

Est ce plus correct?

Private Sub CommandButton1_Click()

If UserForm3.TextBox1.Value <> "" And UserForm3.TextBox2.Value <> "" Then
ActiveSheet.unprotect Password:="toto"
Feuil1.Range("b3").Value = UserForm3.TextBox1.Value
Feuil1.Range("c3").Value = UserForm3.TextBox2.Value

MsgBox "Bienvenue " & Range("b3").Value & ". Vous allez maintenant pouvoir saisir le nom de vos élèves."
Unload Me
UserForm1.Show
Else
MsgBox " Vous devez saisir votre nom et vos initiales"

End If
ActiveSheet.protect Password:="toto"

End sub

Bonjour,

il fait apparaître des messages box à des moments où il ne devrait pas le faire

Si tu n'expliques pas quand il doivent apparaitre et quand ils apparaissent à tort comment veux-tu qu'on sache et qu'on corrige ?

eric