Bonjour le forum, j'abandonne, je jette la serviette, après presque 2 heures de tentatives je reviens vous voir pour de l'aide!!
Mon problème :
J'utilise 2 userform pour entrer des dates dans mon formulaire. Mes 2 userforms fonctionnent lorsque utilisés séparément. Par contre, à la fermeture du premier j'appelle l'ouverture du second et puis voilà, plus rien ne fonctionne dans le second et même le textbox change ne répond plus....
La seule chose que je puisse voir est un conflit entre les deux mais j'utilise la fonction unload (j'ai essayé hide) mais bon rien n'y fait! Voici les codes pour mes userforms (les variables mavariable et laddn sont déclarées publiques )
Userform2 :
Userform3 (notez que la partie userform activate fontionne ce sont les textbox qui ne répondent plus lorsque userform3 est lancé par le userform2)
J'ai essayé de renommer mes textbox également et rien n'y fait. Merci à tous ceux qui regarderons mon post et un plus gros merci a ceux qui y réponderont!!
Mon problème :
J'utilise 2 userform pour entrer des dates dans mon formulaire. Mes 2 userforms fonctionnent lorsque utilisés séparément. Par contre, à la fermeture du premier j'appelle l'ouverture du second et puis voilà, plus rien ne fonctionne dans le second et même le textbox change ne répond plus....
La seule chose que je puisse voir est un conflit entre les deux mais j'utilise la fonction unload (j'ai essayé hide) mais bon rien n'y fait! Voici les codes pour mes userforms (les variables mavariable et laddn sont déclarées publiques )
Userform2 :
Code:
Private Sub TextBox1_Change()
If TextBox1.TextLength = 4 Then
laddn = TextBox1 + "-"
End If
End Sub
Private Sub TextBox2_Change()
If TextBox2.TextLength = 2 Then
laddn = laddn + TextBox2 + "-"
End If
End Sub
Private Sub TextBox3_Change()
If TextBox3.TextLength = 2 Then
laddn = laddn + TextBox3
Range("h" & mavariable).Value = laddn
Unload Me
Range("I" & mavariable).Select
laddn = ""
UserForm4.Show
End If
End Sub
Userform3 (notez que la partie userform activate fontionne ce sont les textbox qui ne répondent plus lorsque userform3 est lancé par le userform2)
Code:
Private Sub UserForm_Activate()
Dim LaDate As Date, Lannee As Long
LaDate = Date
Lannee = Year(LaDate)
TextBox1.Value = Lannee
End Sub
Private Sub TextBox1_Change()
If TextBox1.TextLength = 4 Then
laddn = TextBox1 + "-"
End If
End Sub
Private Sub TextBox2_Change()
If TextBox2.TextLength = 2 Then
laddn = laddn + TextBox2 + "-"
End If
End Sub
Private Sub TextBox3_Change()
If TextBox3.TextLength = 2 Then
laddn = laddn + TextBox3
Range("i" & mavariable).Value = laddn
Unload Me
Range("b" & mavariable).Select
laddn = ""
End If
End Sub
J'ai essayé de renommer mes textbox également et rien n'y fait. Merci à tous ceux qui regarderons mon post et un plus gros merci a ceux qui y réponderont!!
Dernière édition: