Salut VB_Novice, le Forum,
Waouw !! c'est assez tiré par les cheveux ton histoire... Mais bon, çà m'amuse... ;-)
Alors voici aussi une procédure assez tirée par les cheveux, mais il faut au moins çà pour gérer un truc de la sorte (lol)
Matériel nécessaire
1 UserForm
1 ComboBox nommée ComboBox1
1 ListBox nommée ListBox1
12 TextBoxs Nommée TextBox1, TextBox2, TextBox3,....TextBox11 !
Le Code !!!
Option Explicit
Dim QuiClick As Boolean
Private Sub UserForm_Initialize()
Dim Numero As Byte, Digit As Byte
Dim CTRL As Control
QuiClick = True
For Each CTRL In Controls
If TypeOf CTRL Is MSForms.TextBox Then
If Len(CTRL.Name) = 8 Then Digit = 1 Else Digit = 2
Numero = CByte(Right(CTRL.Name, Digit))
Select Case Numero
Case 1, 3, 5, 7, 9, 12: CTRL.Tag = "LstBox"
Case 2, 4, 6, 8, 10, 11: CTRL.Tag = "CmbBox"
End Select
CTRL.Visible = False
End If
Next
With ListBox1
.AddItem "Toto"
.AddItem "Zaza"
.AddItem "Lulu"
.AddItem "Titi"
End With
With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
End With
End Sub
Private Sub ListBox1_Click()
Static Click As Byte
Click = Click + 1
If Click > 6 Then MsgBox "Y a plus de TextBox !!!": Exit Sub
If QuiClick = False Then MsgBox "C'est au tour de la ComboBox": Exit Sub
Dim CTRL As Control
For Each CTRL In Controls
If CTRL.Tag = "LstBox" Then
If CTRL = "" Then CTRL.Visible = True: CTRL = ListBox1: Exit For
End If
Next
QuiClick = False
ComboBox1.SetFocus
End Sub
Private Sub ComboBox1_Click()
Static Click As Byte
Click = Click + 1
If Click > 6 Then MsgBox "Y a plus de TextBox !!!": Exit Sub
If QuiClick = True Then MsgBox "C'est au tour de la ListBox": Exit Sub
Dim CTRL As Control
For Each CTRL In Controls
If CTRL.Tag = "CmbBox" Then
If CTRL = "" Then CTRL.Visible = True: CTRL = ComboBox1: Exit For
End If
Next
QuiClick = True
ListBox1.SetFocus
End Sub
Hi hi hi !!! C'est assez ouf mais çà fonctionne... (Pour le Fun j'ai ajouté une Boolean "QuiClick" et une Static "Click" Mdrrr)
En fait au point où en on est il faudrait peut être créer carrément les TextBox à la volée par programmation .... Mais là commence une autre histoire... Mais tu peux toujours voir ce Fil avec une ch'ti démo bien tournée de derrière les fagots...
Le Fichier :
USF_ListBox_A_La_Volee.zip (48k)
Le Fil :
Lien supprimé
Voilà VB_Novice, tu es paré !!
Bon Appétit à tous et toutes
@+Thierry