Discussion :

[thomanneca]

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 :

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

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

[Thumb down]

Bonjour,
dans le module de classe on ajoute

Code Classe ma_first_classe :

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

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 :

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

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

[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

[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