Problème de navigation des zones de texte

[Patgra]

Bonjour
Je crée des zones de texte dans une feuille excel avec l'outil contrôles et quand je quitte le mode création et que j'écris dans la première zone, la touche tabulation (ni enter d'ailleurs) ne m'envoie pas à la suivante.
Rien ne se passe. Pourtant j'ai bien les propriétés EnterKeyBehavior, TabKeyBehavior et MultiLine à "False".

Quelqu'un connait'il ce problème.
Merci de votre aide.

 

[dixit]

Re : Problème de navigation des zones de texte

bonjour,
je ne comprends pas, j'ai déjà répondu hier soir ; bon problème technique ?
il faut mettre les paramètres à True bien sûr

 

[Patgra]

Re : Problème de navigation des zones de texte

Non ce n'est pas ça !
D'ailleurs, l'aide d'excel spécifie bien qu'il faut mettre false.
Avec true, les tabulations agissent à l'intérieur de la zone de texte
comme dans un éditeur normal.

Merci quand même.😕

 

[Catrice]

Re : Problème de navigation des zones de texte

Bonsoir,

Je crois qu'il n'est pas possible de passer d'une zone de texte à l'autre avec TAB dans la feuille calcul 🙁

Les solutions :
- utiliser un formulaire
- utiliser des cellules sur lesquelles on a le controle.

 

[Catrice]

Re : Problème de navigation des zones de texte

Bonsoir,

Je crois avoir trouvé une piste.
Voir le fichier joint.
Dans les boites à chaque fois qu'on tape ENTRER, on passe à la boite suivante ....

 

[Catrice]

Re : Problème de navigation des zones de texte

Re,

Petite modif pour mettre en surbrillance le texte :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox2.Activate
With TextBox2
.SelStart = 0
.SelLength = Len(TextBox2)
End With
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox3.Activate
With TextBox3
.SelStart = 0
.SelLength = Len(TextBox3)
End With
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox1.Activate
With TextBox1
.SelStart = 0
.SelLength = Len(TextBox1)
End With
End Sub

 

[dixit]

Re : Problème de navigation des zones de texte

bonsoir,
ai lu trop vite la question ...

 

[Patgra]

Re : Problème de navigation des zones de texte (résolu)

OK
Merci beaucoup
A plus🙂