Erreur index out of bound

Question

Je pense avoir clôturer mes messages et j'ai encore besoin de vos conseils ci dessous mon problème

dans le USF Je voudrai remplir les contrôles en cliquant sur une ligne de la listview mais j'ai un message d'erreur index out of bound

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Lg = ListView1.SelectedItem.Index
TBox1 = ListView1.SelectedItem.Text
For i = 1 To 21
Controls("TBox" & i + 1) = ListView1.ListItems(Lg).ListSubItems(i).Text
TBox21.Value = Format(ListView1.ListItems(Lg), "0")
Next i

End Sub

le débogage me renvoi sur la ligne contrôle

0classeur6.xlsm (75.49 Ko)

mais je ne sais pas rectifié, en fait je ne comprend par l'arreur

merci pour votre aide

LouReeD · Accepted Answer

Je n'ai pas trouvé votre Tbox22, existe-il ? Car cela bug à i=21 mais comme vous faites i+1 pour le numéro du Tbox... Du coup à aucun moment vous ne modifiez le Tbox1 ? @ bientôt LouReeD...