Re : Besoin d'un déboguage sur Useform (mixe de Textbox et Combobox)
Bonjour Bebere,
merci beaucoup pour ton aide, ça fonctionne mieux comme ça.
Encore un truc par contre, j'ai vu que dans le programme Private Sub Ini() (pour le tri automatique), tu as remplacé la ligne Set WS = ThisWorkbook.Sheets(categorie.Value) par Set WS = ThisWorkbook.Sheets("Cat 01"), du coup, le tri ne se fait plus que sur la feuille Cat 01, et plus du tout sur la feuille ou l'on vient d'ajouter un produit (du moins, c'était mon idée de base mais ça marchait pas à cause du premier bug).
J'ai essayé ton astuce qui a eliminé le bug, c'est-à-dire :
If categorie.ListIndex = -1 Then Exit Sub
Set Ws = Worksheets(categorie.Text)
Mais là, le tri ne s'applique plus du tout.
Donc, c'est un peu la même chose que précédemment (enfin je pense), il faut trouver un moyen pour que la commande ThisWorkbook.Sheets (du programme Private Sub Ini() ) s'applique à la feuille ou l'on vient d'ajouter les données