données modifiable dans un textbox

[redfox]

j'ai, dans un formulaire, plusieurs textbox.
Je vais rechercher des données sous excel, que j'ecris dans les textbox du formulaire.
Ces données sont des propositions de données qui sont offertes à l'utilisateur. Mais l'utilisateur peut effacer les données des textbox pour en ecrire d'autres.

Je parviens à chercher les données dans le tableur, mais pour qu'elles s'affichent dans la textbox, je dois cliquer sur la textbox et taper sur une touche quelquonque. De plus il ne m'est pas permis de modifier la données ainsi affichées.

comment puis-je arriver au résultat escompté????


voilà mon code:

Private Sub form_date_Change()
form_date.Text = Cells(12, 8).Value
End Sub

Private Sub form_etat_Change()
form_etat.Text = Cells(12, 9).Value
End Sub

Private Sub form_indice_Change()
form_indice.Text = Cells(12, 7).Value
End Sub

Private Sub new_date_Change()
new_date.Text = Date
End Sub

 

[STéphane]

bonjour

il faut mettre ton code qui alimente tes textboxes dans l'vèenment initialize de l'userform

private sub tonuserform_intialize
form_date.Text = Cells(12, 8).Value
form_etat.Text = Cells(12, 9).Value
form_indice.Text = Cells(12, 7).Value
new_date.Text = Date
end sub

bye
steph

 

[redfox]

Merci,

avec ce code je peut recuperer des données que j'aurais modifier juste avec le nom de la text box?
Ou alors il faut que je rajoute du code dans la definition de la text box Private Sub form_indice_Change()
end sub()

 

[STéphane]

il faut ensuite que tu mettes du code dans un bouton ou alors dans un évènement de sortie de textbox (comme lostfocus).
ce code fera l'opération inverse

range("macellule").value=montextbox


bye
stéphane

 

[redfox]

j'ai essayer ca que tu m'as dit :

private sub tonuserform_intialize
form_date.Text = Cells(12, 8).Value
form_etat.Text = Cells(12, 9).Value
form_indice.Text = Cells(12, 7).Value
new_date.Text = Date
end sub

mais les valeurs ne s'affichent pas dans la textbox



et comment on fait pour recuperer du le texte que l'on a ecrit dans un text box?

 

[STéphane]

tu as bien réussi à trouver l'évènement initialize de ton userform ?
dans visual basic editor, double-clique sur l'userform
dans la liste déroulante de gauche choisit le nom de ton userform, la liste de droite se met à jour avec la liste des évènements possible, tu choisis donc l'évèenment initialize.

t'y colles le code que tu as montré ci-dessus.
peut-être en sélectionnant au préalable la feuille en question
ou en écrivant form_date.text= sheets("tafeuille").cells(12,8).value


bye
stephane