XL 2010 Reprise de l'exécution d'une macro sans boucle

sabagof

XLDnaute Junior
Bonjour à tous et à toutes,
Voilà depuis je n'arrive pas à comprendre mon erreur à l'aide SVP. Mon problème c'est que j'ai une procédure qui devrait s'exécuter ligne après ligne normalement. Mais chaque fois arriver sur l'instruction qui permet de faire un filtre, l'exécution remonte depuis le début, ce qui bloque le processus évidemment au deuxième passage sur le filtre.
Voici la procédure il s'agit d'un événement "change" d'un combobox sur userform.


Private Sub cbx_article_Change()

Sheets("panier").Activate
Sheets("panier").[c13].Value = cbx_article.Value

Txt_désignation.Value = Sheets("panier").Range("$e$13").Value

txt_pu.Value = Sheets("panier").Range("c14").Value
Txt_qté_stock.Value = Sheets("panier").Range("e14").Value

Sheets("reception").Select

ActiveSheet.listobjects("Tableau8").Range.AutoFilter Field:=3

ActiveSheet.listobjects("Tableau8").Range.AutoFilter Field:=6

défiltre

Sheets("reception").Activate

Dim lgLig As Long

For lgLig = 9 To Range("h" & Cells.Rows.Count).End(xlUp).Row
If Rows(lgLig).Hidden = False Then
If Range("h" & lgLig) <> "" Then
List_lot_st.AddItem Range("h" & lgLig)
List_qté_st.AddItem Range("e" & lgLig)
List_per.AddItem Range("i" & lgLig)

End If
End If

Next lgLig

End Sub

Merci bcp
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour le forum
Euh .... ? vu comme ça , je pense pas que tu ais de l'aide !!
Mais chaque fois arriver sur l'instruction qui permet de faire un filtre,
Bin oui ... en devinant cela doit être : Défiltre ? qui doit être une "sous sub" , si on l'avait on en saurait un peu plus . Sinon direct un petit bout de fichier serait parfait !!!!!
Déjà vite fait , essaye un AfterUpdate au lieu d'un change
 

Discussions similaires

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088