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

[sabagof]

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]

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

 

[sabagof]

Bonjour et merci pour la réponse. Mais au fait l'exécution n'atteint pas défiltre avant de remonter au début quand tu fais l'exécution ligne par ligne avec la touche F8.

 

[herve62]

Bonjour
Désolé mais là sans fichier on ne peut pas deviner ou , ni savoir quelle valeur/variable est incriminée