VBA Excel - Textbox fonction évenementielle

Bonjour,

J’ai 2 userform contenant chacune une textbox et un bouton.

Quand la userform1 est ouverte :

1. je peux écrire 4 caractères dans la textbox, pour ouvrir la userform2 et fermer la
userform1 (mode automatique)
2. Ou appuyer sur le bouton suivant qui ouvrira la userform2 et fermera la userform1 (mode manuel)

Userform1
Sub suivant_Click()
Unload UserForm1
UserForm2.Show
End Sub

Private Sub text_change()
If Len(Text.Value) >= 4 Then
Unload UserForm1
UserForm2.Show
End If
End Sub

Userform2
Dans la textbox de la userform2 je ne peux écrire que des chiffres, si j’écris une lettre la textbox se vide.

Sub textbox1_change()
If Not IsNumeric(TextBox1.Value) Then
TextBox1.Value = ""
End If
End Sub

Mon problème :
En mode manuel aucun problème. En mode automatique, rien ne se passe quand j’écris des chiffres dans la textbox de la userform2.

Ca fait 4 jours que je tente d'essaier plein de fonction différente. J'ai l'impression que la fonction _change ne s'arrête pas et empêche la userform 2 d'utiliser cette fonction

Une idée pour m’aider ?


Merci d'avance


David