Visionneuse textbox

[Yvon]

Bonsoir à tous,

Une tite question dans useform, 2 textbox une qui écrit l'autre qui lit, pourquoi la lecture n'est pas immédiate alors que l'écriture l'est?

Je vous livre le code:

Private Sub TextBox1_Change()
Sheets('feuil1').Range('a1').Value = TextBox1
End Sub

Private Sub UserForm_Initialize()
TextBox2.Value = Sheets(1).Range('a1').Value
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Par avance merci
Yvon

 

[deudecos]

Bonjour Yvon, le forum,

Ta TextBox qui lit, est renseignee au moment de l'initialisation de ton UserForm, raison pour laquelle ca ne fonctionne pas en meme temps que celle qui ecris... Puisque avant de modifier celle qui lit, tu dois unloader et reloader ton userform...
Je pense donc que le bout de code qui est dans
Private Sub UserForm_Initialize()
Tu devrais le positionner dans

Private Sub TextBox2_Change()
TextBox2.Value = Sheets(1).Range('a1').Value
End Sub

Et en principe (mais je n'ai pas verifie), ca doit fonctionner en meme temps que l'autre TextBox.

Bonne journee

Olivier

Petite rectification, ca n'est pas dans Private sub TextBox2, mais dans Private Sub Textbox1 que tu dois recopier ton code. En fait le meme module que pour ta TextBox qui ecris.

Message édité par: Deudecos, à: 28/10/2005 05:04

 

[daniel]

hello le forum

tout simplement :

Private Sub TextBox1_Change()
Sheets('feuil1').Range('a1').Value = TextBox1
TextBox2.Value = Sheets(1).Range('a1').Value
End Sub


Bon week end

Daniel

 

[Yvon]

Bonsoir,

Merci à tous les deux de votre aide cela marche comme je l'éspérais.
Cela tiens à si peu de chose de réussir ou de se planter.

Bon week end
Yvon