[XL-2007] Mettre a la fin d'un texbox [Résolu]

[dodo28]

Bonjour le forum,
Pouvez vous m aider sur ce problème :
j'ai un userform dans lequel j'ai des textbox modifiable, a chaque fois qu'un textbox est modifié il récapitule les changements dans un textbox "Observations"
ceci avec ce code

Code :

1
2
3
4
5
6
7
Private Sub Li_ListeCommune_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'ajoute la commune dans le texbox de la commune
VisioInventaire.Te_Commune = Li_ListeCommune.List(Li_ListeCommune.ListIndex, 0)
'enregistre la modification dans observations
VisioInventaire.Te_ObservationINV = "Vous avez modifié la commune : " & VisioInventaire.Te_Commune & Chr(10)
Me.Hide
End Sub

le problème, comme j'ai différents textbox modifiables, le premier changement marche mais si je fais un deuxième changement il écrase le premier dans observation. Es t il possible que les changements suivant ce mettent dans le textbox observations mais a la fin des inscriptions déjà noté dans celui ci.
exemple : dans le textbox observation
changement1, changement2, changement3, etc..
merci pour votre aide

[babaothe]

Salut,
exemple ( à main levée) qui ajoute "blabla" à la fin d'une trextbox nommée TextBox1

Code :

1
2
textbox1.selstart = len(textbox1.text)
trebox1.seltext = "blabla"

[dodo28]

Merci beaucoup ca marche