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
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 ..
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
Code:
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 ..