Re-afficher textbox

Bonjour Forum

Je voudrais après validation d'une saisie ré-afficher dans mon textbox sa valeur précédente (C'est a dire enregistrer ma saisie ,Réinitialiser mon userform mais en gardant la même valeur dans mon textbox)

J'ai procédé comme suit mais mon code me retourne une erreur

Dim code As String
                        Set code = TextBox6.Text
                                Unload UserForm1
                               UserForm1.Show
                        TextBox6.Text = code
                        Set code = Nothing

Bonjour,

Un essai ...

Au haut d'un Module ... ajoute : Public Code As String

Puis dans ton userform ...

Private Sub CommandButton1_Click()

    Code = TextBox6.Text
    Unload UserForm1
    UserForm1.Show
End Sub

Private Sub UserForm_Activate()
    TextBox6.Text = Code
End Sub

ric

Bonjour

Bonjour à tous

5classeur1-v1.xlsm (23.13 Ko)

Une proposition qui consiste à écrire provisoirement le contenu de TextBox1 dans une cellule de feuille de calcul puis, quand on réinitialise l'userform, on écupère la valeur de TextBox1 dans cette cellule avant de l'y effacer.

Bye :!

bonjour KTM,

au lieu de le faire style cross , c'est a dire unloader puis reloader le UserForm, tu pourrais le faire en mode trial remettre tous les contrôles sauf TextBox6 à une valeur nulle!

inspiré du code de maître GMB!

Private Sub CommandButton1_Click()
   init
End Sub
Sub init()
Me.TextBox2 = ""
Me.TextBox3 = ""
End Sub
Rechercher des sujets similaires à "afficher textbox"