Problème de définition de feuille

[shadweak]

Bonjour,

Mon code a pour but d’ajuster les valeurs dans la listbox quand ma combobox change.

Cependant j'ai l'impression qu'il galère pour trouver la feuille source

Private Sub Combobox_article_Change()
 
Dim c, CSTDL, CSTDC, CSTFL, CSTFC As range
Dim TR As String, FirstAddress As String, Tbl() As String
Dim k As Integer
 
CSTDL = range("stockarticle").Row + 1
CSTDC = range("stockarticle").Column
CSTFL = range("stockarticle").Row + 1000
 
TR = ComboBox_Article.Value
 
If TR <> "" Then
    With Worksheets("stock").range(Cells(CSTDL, CSTDC), Cells(CSTFL, CSTDC))
        Set c = .Find(TR, LookIn:=xlValues, lookat:=xlPart)
 
        If c Is Nothing Then
 
            TextBox_reponse.Visible = True
            ListBox_Article.Visible = False
            Bouton_Ajouter.Visible = True
 
            Valeurtrouve = TR & " N'appartient pas au stock, voulez vous l'ajouter"
            TextBox_reponse.Value = Valeurtrouve
 
        Else
 
            TextBox_reponse.Visible = False
            ListBox_Article.Visible = True
            Bouton_Ajouter.Visible = False
 
            FirstAddress = c.Address
            Do
                Set c = .FindNext(c)
                k = k + 1
                ReDim Preserve Tbl(1 To k)
                Tbl(k) = c.Value
            Loop While Not c Is Nothing And c.Address <> FirstAddress
            With Me.ListBox_Article
                .Clear
                .List = Tbl
            End With
        End If
    End With
End If
 
End Sub

Car la seule parade que je trouve c'est de le faire basculer sur la page <<sheet("stock").select>> avant la fonction find et le faire revenir sur la page initial à la fin ce qui fait perdre pas mal de temps ...

Espérant avoir réussi à être claire ..