Affichage de zone de texte

Option Explicit

Private TxtSpec
Private Indice As Integer
Private NoEvents As Boolean

Private Sub UserForm_Activate()
Dim T
   TxtSpec = Array(TextBox1, TextBox3, TextBox5, TextBox7, TextBox9) 'liste des textbox à cacher
   Indice = -1
   For Each T In TxtSpec
      T.Visible = False
   Next T
   AuSuivant 'On affiche le premier des textboxes cachés et on lui donne le focus
   NoEvents = True
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If NoEvents Then AuSuivant
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If NoEvents Then AuSuivant
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If NoEvents Then AuSuivant
End Sub

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If NoEvents Then AuSuivant
End Sub

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If NoEvents Then AuSuivant
End Sub

Private Sub AuSuivant()
'Affiche le TextBox masqué et lui donne le focus
   NoEvents = False
   If Indice < UBound(TxtSpec) Then
      Indice = Indice + 1
      With TxtSpec(Indice)
         .Visible = True
         .SetFocus
      End With
   End If
   NoEvents = True
End Sub