Problème au niveau des textbox

[Tophe2]

Bonjour le Forum

Voilà je m'explique :
J'ai un fichier qui me sert de base de donnée que je rempli par le biais d'un formulaire créer avec des userforms, textbox .... dans la globalité cela fonction juste que je viens de me rendre compte d'un PB c'est que lorque que je saisie du texte (Baucoup) dans une textbox il ne l'envoie pas dans la cellule correspond sous excel, En tout cas il le fait uniquement si je clique dans une autre textbox se trouvant sur la page.
Voici l'écriture :

Dim Montexte20 As String

Private Sub TextBox20_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Exit
ActiveSheet.Cells(index, 58) = Montexte20
End Sub

Private Sub TextBox20_change()
Montexte20 = TextBox20
End Sub

Pour palier à cela j'ai résumé à :

Private Sub TextBox20_change()
ActiveSheet.Cells(index, 58) = TextBox20
End Sub
Mais cela me limite dans le nombre de caractère.

Cordialement.
Christophe.

 

[PascalXLD]

Re : Problème au niveau des textbox

Bonjour

tu n'as pas de bouton de validation ??

Souvent tu le fais sur le click du bouton



Dim Montexte20 As String

Private Sub CommandButton1_Click()
Montexte20 = TextBox20
ActiveSheet.Cells(index, 58) = Montexte20
......