agrandissement de plage

[Akeya06]

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 😉

 

[Hellboy]

Bonjour Akeya06

Je ne suis pas sure, mais si tu as rajouter des textbox que tu as nommé toi même et que tu n'as pas respecter le 0 comme indice, absolue, tu risque de pointer sur un textbox qui n'existe pas. Exemple TextBox10, au lieu de TextBox010.

Ou l'autre chose, si tu n'as pas crer d'autre TextBox, ce code n'en crer pas de nouveau, il pointe sur ceux qui existe seulement.

Mais c'est difficile a dire sans avoir ton exemple complet.

a+

 

[Akeya06]

Hellboy, re le forum

j'ai bien pensé à mettre mon '0' devant lorsque l'on passe aux dizaines et mes textbox sont bien là. Je vais essayer d'alléger mon fichier pour pouvoir le joindre.
Merci à toi
Akeya06 😉

 

[Akeya06]

RE le forum,

Le problème a été résolu. En fait je fait mes tris grace à des memoires tampon et je n'avais pas déclarer comme il faut mes tmp. Merci à thierry, pour ce dépannage express... 😉

Akeya06 😉 😛