Tabulation sur textbox

Version imprimable

24/10/2007, 12h56
hkpsyco

Tabulation sur textbox

Bonjour

Dans Excel, il y a différentes façons d'utiliser le textbox. En effet, un textbox peut être soit créé dans un userform ou directement dans une feuille.

Ma question :

Comment faire pour que l'utilisateur puisse faire des tabulations d'un textbox à l'autre ?

J'ai cherché partout dans les propriétés et rien à faire. Ce qui m'encourage, c'est que j'ai déjà vu un fichier excel qui le faisait... lol

Merci de votre aide :)
24/10/2007, 12h59
ouskel'n'or

Extrait de l'aide

Citation:

TabKeyBehavior, propriété

Détermine si les tabulations sont autorisées dans la zone d'édition.

Syntaxe

Code:

object.TabKeyBehavior = True 'ou False

A+

PS - Une précision, tu as cette propriété dans... les propriétés de ta textbox, propriété que tu peux modifier en dur (plutôt que par le code)
24/10/2007, 13h03
hkpsyco

Merci pour ta réponse, mais ça ne fonctionne pas lol.

J'ai pris mes deux textbox et j'ai changé cette propriété en la mettant à true, et ça ne marche pas

J'ai rajouté à l'ouverture du classeur le petit code que tu m'as donné et ça ne marche toujours pas
24/10/2007, 13h13
ouskel'n'or

Tu as bien mis

Code:

Me.LeNomDeTonTextBox.TabKeyBehavior = True

et non "Objet.... ?
A+
24/10/2007, 13h17
hkpsyco

Oui t'inquiète pas, mais ça ne marche toujours pas.

En fait ton code active bien la tabulation, mais moi il me fait une tabulation dans mon textbox et ne passe pas à la suivante.

bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then
        TextBox2.Activate
    End If
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then
        TextBox1.Activate
    End If
End Sub

et remettre TabKeyBehavior à False
A+

24/10/2007, 14h36
ouskel'n'or
Si tu mets
Code:

1 2 3 Me.LeNomDeTonTextBox.TabKeyBehavior = False 'et Me.LeNomDeTonTextBox.EnterKeyBehavior = False
chez moi la tabulation me conduit bien au contrôle suivant ;)

bonsoir

J'ai interprété que tu parlais des TextBox dans la feuille de calcul:

Une autre possibilité

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
'--------------------------------------
'à placer dans le module objet ThisWorbook pour que la classe
'soit initialisée lors de l'ouverture du classeur.
 
Option Explicit
 
Private Sub Workbook_Open()
Dim Obj As OLEObject
Dim Cl As Classe1
 
Set Collect = New Collection
 
'boucle sur les objets de la Feuil1
For Each Obj In Feuil1.OLEObjects
    'verifie s'il s'agit d'un Textbox
    If TypeOf Obj.Object Is MSForms.TextBox Then
 
        Set Cl = New Classe1
        Set Cl.TexteGroup = Obj.Object
        Collect.Add Cl
    End If
Next Obj
 
End Sub
'--------------------------------------

Code:

1
2
3
4
5
6
'--------------------------------------
'dans un module standard
Option Explicit
 
Public Collect As Collection
'--------------------------------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'--------------------------------------
'dans un module de classe nommé "Classe1"
'
Option Explicit
 
Public WithEvents TexteGroup As MSForms.TextBox
 
 
Private Sub TexteGroup_KeyUp(ByVal KeyCode As _
        MSForms.ReturnInteger, ByVal Shift As Integer)
 
    Dim Valeur As Byte
 
    Valeur = TexteGroup.Index
 
    If KeyCode = 9 Then
        If Valeur <> Collect.Count Then
            With Collect(Valeur + 1).TexteGroup
                .Activate
            End With
 
        Else
            With Collect(1).TexteGroup
                .Activate
            End With
        End If
    End If
End Sub
 
'--------------------------------------

bonne soirée
michel

25/10/2007, 05h52
hkpsyco

Oula... c'est si compliqué que ça pour faire une tabulation entre deux textbox ?

Le code de LeForestier, qui fait la même chose que le code de Silky Road, pose un petit problème.

En effet, la tabulation fonctionne mais lorsque que je passe à l'autre textbox ce dernier devient invisible jusqu à ce que je tappe quelque chose dedans... et inversement. Est ce que ça le fait également chez vous ?
25/10/2007, 08h52
hkpsyco

Bon j'ai trouvé la cause de mon problème. Vos codes fonctionnent parfaitement.

En fait, dans mon classeur j'ai figé des volets et mes textbox se trouvent dans ces derniers... donc il me fait un bug bizarre. La tabulation fonctionne, mais je crois qu'il y a un problème de rafraichissement.

Bref, quelqu'un aurait-il la solution ?
25/10/2007, 09h59
Drost

Hello,

Sinon il y a la propriété tabindex pour choisir l'ordre de selection de tes textbox dans un formulaire
Tabindex doit démarré à 0 pour le premier et ainsi de suite!

Tchuss
25/10/2007, 13h05
LeForestier

TabIndex c'est en VB6, en VBA... :?
A+
25/10/2007, 13h32
hkpsyco

Bon merci à vous, j'ai réussi à contourner mon problème !

En effet au lieu d'utiliser des textbox directement sur ma feuille Excel, j'ai créé un userform qui reste toujours visible et qu'on ne peut pas déplacer. ça ressemble un peu à une boîte à outils quelque part.