TabIndex de TextBox créés dynamiquement

Version imprimable

14/01/2022, 15h56
thomanneca

TabIndex de TextBox créés dynamiquement
Bonjour,

Je souhaiterais changer l'ordre de mes "tabindex" selon mes TextBox.
Je crée dynamiquement des lignes de 3 TextBox en les classant comme suit :

TxBox1_1, TxBox2_1 et TxBox3_1
TxBox1_2, TxBox2_2 et TxBox3_2
...
TxBox1_i, TxBox2_i et TxBox3_i

Ils sont respectivement classés dans les groupes mesbouts(NB).TxBox1, mesbouts(NB).TxBox2, mesbouts(NB).TxBox3
Leur ordre d'index est donc défini par leur ordre de création.

Or, j'aimerais pouvoir faire un TAB vertical, et non sur ma ligne, soit dans l'ordre des TxBox1, puis des TxBox2, etc.

Voyez-vous une possibilité de changer dynamiquement ces index ?

J'ai testé le code suivant mais qui ne change pas mes index.
Code:

1 2 3 4 5 6 7 8 9 x = 0 mesbouts(NB).TxBox1.TabIndex = 0 For Each Cls In mesbouts mesbouts(NB).TxBox1.TabIndex = Cls.TxBox1.TabIndex + x MsgBox (Cls.TxBox1.TabIndex) x = x + 1 Next Next
Thumb Down peut-être ? :-)

Merci d'avance

Bonjour,
dans le module de classe on ajoute

Code:

1
2
3
4
5
6
7
Public Sub TableIndex(Index As Integer, Rang As Integer)
Select Case Rang
    Case 0: TxBox1.TabIndex = Index
    Case 1: TxBox2.TabIndex = Index
    Case 2: TxBox3.TabIndex = Index
End Select
End Sub

On modifie le Userform

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim r As Range, i As Integer, C As Integer, Tabi As Integer
Set r = Sheets("Data").Range("A1").CurrentRegion
For i = 1 To r.Rows.Count
    AjoutT r.Range(r(i, 1), r(i, 3))
Next
For C = 0 To 2
    For i = 0 To UBound(mesbouts)
       mesbouts(i).TableIndex Tabi, C: Tabi = Tabi + 1
    Next
Next
End Sub

14/01/2022, 20h14
Qwazerty
Salut

Si je devais faire un projet comme ça, je pense que je partirais plutôt sur 2 modules de classe

La classe collection "Cls_Groupes"
La Classe Item "Cls_ItemGroupe"

Cls_Groupes contient la collection pour y stocker les items. Il s'occuperait
- des ajouts d'item (avec la création des textbox et bouton).
- de la suppression des items
- du déplacement des items
- ....
- Des remontées d'Events
  - _Change (appelé sur changement de la valeur d'un textbox, avec comme paramètre l'index ou un pointer vers le txtbox en question et l'ancienne valeur par exemple);
  - _Click (appelé sur le click du bouton...)
  - ....
Cls_ItemGroupe contiendrait le pointeur bouton actuel et 3 pointeurs vers les txtbox. Une variable Parent qui pointe vers le Cls_Groupes.
- Un propriété visible (qui modifierait les 4 objets d'un coup) et informerait le parent qui se chargerait de remonter/redescendre tout les items suivant
- ...
- Des remontées d'info lors de la modification du contenu des txtbox vers le parent pour qu'il puisse gérer les events
++
Qwaz
17/01/2022, 13h17
thomanneca

Bonjour,

@Thumb down, en intégrant tes codes, ça marche parfaitement, encore merci pour ton aide ;-)

@Qwazerty, je ne maîtrise pas encore suffisamment les modules de classe. Je vais approfondir le sujet et revenir sur ta suggestion ultérieurement. Merci néanmoins pour ton aide, je ne manquerai pas d'y revenir.

Bonne journée à tous les deux