Discussion :

[jpma75]

Bonjour,

La cellule A1 se remplie à partir d'un Textbox.

Dans le UF, j'ai le choix de valider ou d'effacer la saisie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Valider_Click()
    [a1] = TextBox1.Value
    Unload Me 'Vide et ferme le UserForm
End Sub
Private Sub Effacer_Click()
    'If TextkBox1 Then TextBox1 = ""
    [a1].ClearContents
End Sub
Private Sub UserForm_Initialize()
    Me.TextBox1 = Sheets("Feuil1").[a1]  
End Sub

J'ai besoin de voir apparaitre le contenu de A1 dans le Textbox à l'ouverture du UF (pour le corriger éventuellement).

Comment puis-je supprimer le contenu du Textbox ?
Avec le code ci-dessus, A1 se vide mais pas le Textbox (sauf si je le ferme).

Merci d'avance pour vos lumières,
Cdt

[Marc-L]

Bonjour,

pourquoi alors avoir mis la ligne de code n°6 en commentaire ?!

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[jpma75]

Bonjour,

Parce que c'est avec ce code que j'effaçais mon Textbox.
Mais depuis, j'ai ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm_Initialize

et il m'a semblé que c'était incompatible avec la ligne 6 (si j'efface le Textbox, il se réinitialise avec le contenu de A1).
Cdt

[unparia]

Bonjour
Et dire qu'il suffirait de lier la textbox de l'userform à la cellule en cause ... (propriété Controlsource de la textbox) !

[jpma75]

Bonjour,

J'ai ajouté A1 dans Controlsource de la textbox et ma question est résolue !

Merci beaucoup !!

Cdt

[unparia]

Je te conseille de ne pas utiliser A1 tout seul, mais de préciser la feuille, genre :
Feuil1!A1
de sorte à ne pas avoir de surprise lorsque, par hasard, la feuille active est autre que celle de la cellule A1.