Depacement capacite dans tableau

[Pensinf4204]

😡 Bonjour a tous
Mon petit,problême pour vous grand pour moi
J'ai créé un userform avec un tableau Seulemnt au fur et a mesure de l'ajout de donne dans le dit tableau j'ai un message d'erreur qui me qui depassement de capacite comment y remedier ?😡

 

[Compte Supprimé 979]

Re : Depacement capacite dans tableau

Salut Pensif4204,

Ce serait cool de passer ton fichier au format Excel2003 😉

Mais si c'est possible !

Pourrais tu nous dire dans qu'elle sub tu as le problème, je n'ai pas trouvé l'endroit ou tu alimentes ton fameux tableau 😱

A+

 

[Pensinf4204]

Re : Depacement capacite dans tableau

Bonjour BrunoM45
Voila j'ai converti le classeur au format Excel2003
Mon problème arrive dans la sub textbox1
Par avance merci

 

[Compte Supprimé 979]

Re : Depacement capacite dans tableau

Ok, vu 😀

Voilà le code qui fonctionne, pas mal d'ailleurs

Private Sub TextBox1_Change()
  Dim It [B][COLOR=blue]As Integer[/COLOR][/B], MyString As String
  Me.ListBox1.Clear 'on efface la listbox
  Me.ListBox2.Clear
  Me.Controls("Label5") = ""
  MyString = Me.TextBox1.Text 'on affecte à la variable Mystring la valeur du textbox
  If MyString = "" Then Exit Sub  'si textbox vide on quitte
  For It = 1 To UBound(Tabtemp, 1) 'pour chaque lignes du tableau temporaire
    If Left(UCase(Trim(Tabtemp(It, 1))), Len(MyString)) = UCase(MyString) Then 'si les  lettres _
       à droite du mot du tableau sont les mêmes que Mystring
      Me.ListBox1.AddItem Tabtemp(It, 1) 'on ajoute ce mot à la listbox
    End If
  Next
End Sub

Juste un problème de définition de variable : Integer au lieu de Variable !?

A+