D
Delcourt René
Guest
Que cette journée vous soit douce et profitable...
Voici le code d'un userform nommé "Impression".
en cliquanr sur le bouton contrôle effacer, la macro n'efface qu'une des 5 textbox. En recliquant sur le bouton, il efface la deuxième et ainsi de suite.
Pourtant quand je suis la macro pas à pas, toutes les textbox sont initialisée???
Que passa?
Public Sub Annuler_Click()
Unload Impression
impr = 0
End Sub
Public Sub Effacer_Click()
Impression.UserForm_Initialize
End Sub
Public Sub OK_Click()
Unload Impression
impr = 1
End Sub
Public Sub UserForm_Activate()
Dim ret As Integer
ret = MsgBox("Garder les informations?", vbYesNo, "Impression")
If ret = vbYes Then
Exit Sub
Else
UserForm_Initialize
End If
End Sub
Public Sub UserForm_Initialize()
Impression.TextBox1.Value = ""
Impression.TextBox2.Value = ""
Impression.TextBox3.Value = ""
Impression.TextBox4.Value = ""
Impression.TextBox5.Value = ""
Impression.TextBox1.SetFocus
End Sub
Voici le code d'un userform nommé "Impression".
en cliquanr sur le bouton contrôle effacer, la macro n'efface qu'une des 5 textbox. En recliquant sur le bouton, il efface la deuxième et ainsi de suite.
Pourtant quand je suis la macro pas à pas, toutes les textbox sont initialisée???
Que passa?
Public Sub Annuler_Click()
Unload Impression
impr = 0
End Sub
Public Sub Effacer_Click()
Impression.UserForm_Initialize
End Sub
Public Sub OK_Click()
Unload Impression
impr = 1
End Sub
Public Sub UserForm_Activate()
Dim ret As Integer
ret = MsgBox("Garder les informations?", vbYesNo, "Impression")
If ret = vbYes Then
Exit Sub
Else
UserForm_Initialize
End If
End Sub
Public Sub UserForm_Initialize()
Impression.TextBox1.Value = ""
Impression.TextBox2.Value = ""
Impression.TextBox3.Value = ""
Impression.TextBox4.Value = ""
Impression.TextBox5.Value = ""
Impression.TextBox1.SetFocus
End Sub