Bonsoir le forum,
J'ai un petit souci avec ce code, venant de MR THIERRY, merci à lui.
Private Sub ListBox02_Click()
Dim i As Integer
Dim x As Byte
For i = LBound(Tablo, 2) To UBound(Tablo, 2)
If TheCriteria = '' Then
If Tablo(2, i) = ListBox01 Then
If Tablo(3, i) = ListBox02 Then
For x = 0 To 7
Me.Controls('TextBox0' & x) = Tablo(x, i)
Next x
End If
End If
Else
If Tablo(1, i) = TheCriteria Then
If Tablo(2, i) = ListBox01 Then
If Tablo(3, i) = ListBox02 Then
For x = 0 To 7
Me.Controls('TextBox0' & x) = Tablo(x, i)
Next x
End If
End If
End If
End If
Next i
If ListBox02.ListCount > 0 Then Me.ListBox02.ListIndex = 0
End Sub
Lorsque je click sur ma listbox2, je viens renseigner des textbox. J'aimerais maintenant élargir ma plage pour remplir plus de textbox mais lorsque je modifie le code, en bleu, je me retrouve avec la ligne en rouge en erreur, alors qu'il a commencé à remplir des textbox. Je sais que je sors ce code de son contexte donc s'il vous faut d'autres infos, n'hésiter pas.
D'avance merci...
Akeya06
J'ai un petit souci avec ce code, venant de MR THIERRY, merci à lui.
Private Sub ListBox02_Click()
Dim i As Integer
Dim x As Byte
For i = LBound(Tablo, 2) To UBound(Tablo, 2)
If TheCriteria = '' Then
If Tablo(2, i) = ListBox01 Then
If Tablo(3, i) = ListBox02 Then
For x = 0 To 7
Me.Controls('TextBox0' & x) = Tablo(x, i)
Next x
End If
End If
Else
If Tablo(1, i) = TheCriteria Then
If Tablo(2, i) = ListBox01 Then
If Tablo(3, i) = ListBox02 Then
For x = 0 To 7
Me.Controls('TextBox0' & x) = Tablo(x, i)
Next x
End If
End If
End If
End If
Next i
If ListBox02.ListCount > 0 Then Me.ListBox02.ListIndex = 0
End Sub
Lorsque je click sur ma listbox2, je viens renseigner des textbox. J'aimerais maintenant élargir ma plage pour remplir plus de textbox mais lorsque je modifie le code, en bleu, je me retrouve avec la ligne en rouge en erreur, alors qu'il a commencé à remplir des textbox. Je sais que je sors ce code de son contexte donc s'il vous faut d'autres infos, n'hésiter pas.
D'avance merci...
Akeya06