Microsoft 365 Erreur UBound

[PORCHER]

Bonjour à tous,
j'ai un problème avec Ubound , message incompatibilité du type
pourriez-vous m'aider, merci

Private Sub TB_Texte_Change()
Dim T3(), Indice1 As Integer, J As Long

Me.LB_Suggestions.Clear
Indice1 = 0

If Me.TB_Texte <> "" Then
  [COLOR=rgb(226, 80, 65)]  For J = 1 To UBound(t1)     (erreur incompatibilité) [/COLOR]
      If t1(J, 1) Like "*" & Me.TB_Texte & "*" Then
        ReDim Preserve T3(Indice1)
        T3(Indice1) = t1(J, 1)
        Indice1 = Indice1 + 1
      End If
    Next J
End If

If Indice1 > 0 Then
    On Error Resume Next
    Me.LB_Suggestions.List = Application.Transpose(T3)
End If
End Sub

 

[sylvanu]

Bonjour Porcher,
Est ce que l'array "t1" est déclaré en public ?
Car ce morceau de macro "t1" n'existe pas, donc le ubound(t1) donne une erreur.

 

[PORCHER]

Bonjour sylvanu, oui il est déclaré : Public t1

 

[sylvanu]

Re,
Pouvez vous fournir un fichier test ?
Après essai il y a plusieurs pistes comme par ex :

ou surement d'autres.

 

[PORCHER]

Re,
Pouvez vous fournir un fichier test ?
Après essai il y a plusieurs pistes comme par ex :
Regarde la pièce jointe 1217981
ou surement d'autres.

Merci sylvanu, vous m'avez aiguillé, en réfléchissant de trop je dois dire, je me suis perdu et le fait de votre indice ma permis d'aller voir
plus en amont et découvrir que dans mon module(routines) il ne se trouvait pas la déclaration.
j'ai rectifié et cela a fonctionné.
Merci encore