Discussion :

[MarcelG]

Bonjour,
Sur 1 userform, j'ai placé 2 Textbox saisie_txt_1 et saisie_txt_2 dont la longueur maximale de saisie est de 15 caractères.
J'ai indiqué cette propriété dans la procédure Initialize de l'userform

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Me.saisie_txt_1.MaxLength = 15
Me.saisie_txt_1.AutoTab = True
Me.saisie_txt_2.MaxLength = 15
Me.saisie_txt_2.AutoTab = True
End Sub

Mon problème :
En cas de saisie sur saisie_txt_1 supérieure à cette limite, dès le 16ème caractère, j'aurais souhaité que le dernier mot, à partir du dernier espace , se reporte sur saisie_txt_2
Exemple saisie_txt_1 "PAPA MAMAN MONIQ" Dès la frappe du "Q" de Monique, apparaissent
en saisie_text_1 "PAPA MAMAN" (le 2ème espace serait supprimé)
en saisie_txt_2 "MONIQ", dès lors la saisie peut continuer sur ce 2ème textbox.
Ceci en sachant que la saisie sur saisie_txt_1 peut très bien contenir exactement 15 caratères et donc rester entière (ex PAPA MAMAN PAPI)
Le code de la procédure "Initialize" ne fonctionne pas pour ce type de saisie car elle ne gère pas les espaces.
Je ne sais pas comment coder.
J'ai envoyé une pièce jointe, nommée EssaiTexte.xls, mais je ne sais plus si j'ai initié les longueurs maximales à 8 ou 15 caratères (C'est ma 1ère pièce jointe et je ne sais pas comment la récupérer)
Merci pour votre aide.
Bien cordialement.

[jfontaine]

Bonjour,

La propriete focus n'existant pas dans excel, il faut biaiser en mettant a false tous les objets hors celui qui doit prendre le curseur

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub TextBox1_Change()
 
If Len(TextBox1.Text) = 15 Then
    TextBox1.Enabled = False
    TextBox1.Enabled = True
End If
 
End Sub

[MarcelG]

Merci Jérôme,
J'ai essayé mais il ne se passe rien.
Est-ce que la 2ème ligne de ton code ne serait pas Textbox2 ?
Selon la procédure que j'ai décrite plus haut.
D'autre part, comment récupérer les 4 caractères M-O-N-I de saisie_txt_1, les placer au début de saisie_txt_2, avant le caractère "Q" saisi en 16ème position, afin d'obtenir MONIQ en début de saisie_txt_2 et continuer la saisie.
Les 4 caractères M-O-N-I seraient supprimés (avec l'espace les précédant) de saisie_txt_1.
Cordialement. Marcel.

[jfontaine]

Le code fonctionne, il n'y a pas d'erreur.

Ou as tu copié ce code? dans la userform?

[MarcelG]

En effet, le code fonctionne. La saisie se prolonge bien sur la textbox saisie_txt_2.
J'obtiens
saisie_txt_1 PAPA MAMAN MONI
saisie_txt_2 QUE
Il fallait que j'efface le code de la procédure "Initialize"
Bravo pour cette astuce.
Toujours pour faire suite à ma demande ci-dessus,
Quand je frappe le caractère Q donc le 16ème (15+1) caractère, je souhaite :
1 - récupérer les derniers caractères de saisie_txt_1 qui suivent le dernier espace, ici M-O-N-I, ou plutôt les "couper" pour...
2 - ...les "coller" en début de saisie_txt_2, et obtenir ainsi
- saisie_txt_1 "PAPA MAMAN"
avec suppression du n-ième espace avant le 15ème caractère initial (ici le 2ème)
- saisie_txt_2 "MONIQUE"
La règle étant qu'à la fois
- sur chaque textbox je n'aie que des mots entiers
- sur chaque textbox je n'aie pas d'espace en fin de texte
- la longueur de chaque textbox ne soit pas supérieure à 15
Cette règle sera ensuite généralisée(60 caractères avec n espaces), mais je ne sais pas comment coder pour ce 1er cas.
Merci pour ton aide, Jérôme. Cordialement. Marcel

[jfontaine]

Voila qui devrait faire l'affaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub TextBox1_Change()
Dim str() As String
 
If Len(TextBox1.Text) = 15 Then
 
    str = Split(TextBox1.Text, " ")
    TextBox2.Text = str(UBound(str))
    TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - Len(str(UBound(str))))
 
 
    TextBox1.Enabled = False
    TextBox1.Enabled = True
End If
 
End Sub