Deux bugs avec Listview

Question

J'ai quelques soucis sur un projet que je doit présenter. Mon classeur représente une gestion de stock de pièces détachées. Sur ma feuille "Tableau de bord", j'aimerais afficher dans un formulaire une listview quand je clic sur le bouton " Afficher le stock mini " ou le bouton " Afficher le stock maxi", l'extraction des 20 plus basses valeurs ou 20 plus hautes valeurs des pièces détachées en se basant sur la feuille "Inventaire". 1 problème que je n'arrive pas à résoudre, sur ma feuille "Opérations", je n'arrive pas à remettre à 0 les données en cliquant sur le bouton "Annuler" 2ème problème, temps de chargement très long... Merci d'avance à ceux qui pourront m'aider sur mes problèmes! la taille de mon fichier étant supérieure aux restrictions, merci de m'envoyer un mail à f.jegout@yahoo.fr si vous voulez le recevoir. Cordialement...

ric · Answer

Tu n’as pas joint ton superfichier pour que l’on regarde ton souci ... ric...

ric · Answer

Au cas où tu aurais besoin d'anonymiser une copie de ton fichier ... https://www.excel-pratique.com/fr/utilitaires/anonymisation-donnees ric...

ric · Answer

Une première étape ... l'ouverture du fichier ... à tester sur une copie de ton fichier ... "Prudence Petitpas" oblige ... Dans le module ThisWorkbook ... remplace la procédure "Workbook_Open" par celle-ci ... Dis-moi si le résultat est bien le même dans la feuille "Construction" et dans le combobox "Catégorie" de la feuille "Opération" ... Les While Wend permettaient d'aller prendre des vacances à la plage à attendant l'ouverture du fichier ... J'ai remplacé par du traitement en variables tableau ... et maintenant ... Je n'ai pas eu le temps de me couler un café ... et je ne suis pas sûr qu'il n'y ait mieux à faire ... Je regarderais une fois reposé ... Private Sub Workbook_Open() 'affecter les variables Dim colonne As Integer, ligne As Integer Dim ligne_bd As Integer, plage As Range Application.ScreenUpdating = False 'purge des listes déroulantes With Sheets("Opérations") .liste_cat.Clear .Liste_mod.Clear .Liste_piece.Clear .liste_cat.Value = "" .Liste_mod.Value = "" .Liste_piece.Value = "" End With 'purge des colonnes pour listes déroulantes For colonne = 2 To 8 Step 2 ligne = 5 With Sheets("Construction") .Range(.Cells(5, colonne), .Cells(Rows.Count, colonne)).ClearContents End With Next colonne 'charger catégories dans la bdd Dim tab1, tab2, Dlig As Long, X As Long, Y As Long Dlig = Sheets("BDD PRODUITS").Cells(Rows.Count, "A").End(xlUp).Row ReDim tab1(1 To Dlig) ReDim tab2(1 To 2) For X = 2 To Dlig Application.EnableEvents = False Sheets("BDD PRODUITS").Activate tab1(X - 1) = Cells(X, "A").Value Next X Application.EnableEvents = True Y = 1 For X = LBound(tab1) To UBound(tab1) - 1 If Len(tab1(X)) &gt; 1 And tab1(X) &lt;&gt; tab1(X + 1) Then ReDim Preserve tab2(1 To Y) tab2(Y) = tab1(X) Y = Y + 1 End If Next X With Sheets("Construction") Application.EnableEvents = False .Activate Application.EnableEvents = True .Range("B5").Resize(UBound(tab2)) = Application.Transpose(tab2) For X = 1 To UBound(tab2) Sheets("Opérations").liste_cat.List = Application.Transpose(tab2) Next X End With Application.EnableEvents = False Sheets("Opérations").Activate Sheets("Opérations").liste_cat.ListIndex = 0 Sheets("Accueil").Activate &#91;_user&#93; = "Invité" Connecter Application.EnableEvents = True End Sub A+ ric...

ric · Answer

Pour l'ouverture ... tu n'as pas tiré ton chapeau suffisamment fort ... il n'a pas traversé l'Atlantique ... je ne l'ai pas encore reçu ... Trêve de blagues ... merci pour l'appréciation ... Remettre à 0 ... je regarde dès que j'ai un peu de temps ... là ... j'ai la tête pleine avec un autre projet ... Je reviens bientôt ... espoir ... espoir ... ric...

ric · Answer

Aujourd'hui je suis sur ton fichier ... A+ ric...

ric · Answer

J’ai été passablement dérangé par les gens de mon entourage ... Je ne suis pas sûr d’avoir tout bien complété correctement ... Je te laisse testé à fond ... S’il persiste des soucis ... n’hésite pas à m’en faire part ... A+ ric P.S. Le fichier est en privé .....

ric · Answer

Dans VBE ... Thisworkbook ... procédure "Private Sub Workbook_Open()" ... tout au bas ... juste avant "End Sub" ... Ajoute : Sheets("Accueil").Activate Merci pour l'appréciation ... ça fait plaisir d'aider ... ric...

ric · Answer

Je crois que j'ai oublié ... Je regarde cela dès que possible ... ric...

ric · Answer

Les stocks mini et maxi ... sont fonctionnels ... il reste à glisser cela dans la listbox à la demande ... ce sera bientôt ... Mais pour "faire sûr" ... tels disent les acadiens du Nouveau-Brunswick au Canada ... des gens bien sympathiques à la drôle de parlure ... Tu veux les stocks des 20 plus petites quantités ... donc la listbox pourrait contenir 60 lignes si plusieurs produits ont la même quantité ... c'est bien cela ? Idem pour les plus grandes quantités ... Je reviens bientôt ... ric...

ric · Answer

Pour les 20 premières petites valeurs ... ça semble fonctionner correctement ... Mais j'ai découvert une coquille pour les 20 plus grandes valeurs ... algorithme ne fonctionne pas bien, C'est le dernier bogue ... je reviens dès que possible ... ric...

ric · Answer

Dans mon message privé ... j’ai oublié de mentionner que j’ai bousillé des formules ... en les remplaçant par des nombres ... dans la colonne "G" de la feuille "Inventaire" afin d’avoir une plus grande diversité de chiffres différents ... L’inventaire était trop limité pour tester les 20 plus grandes valeurs et les 20 plus petites valeurs ... Mais je présume que c’est sans conséquence ... si tu as simplement transféré les codes dans ton fichier de travail ... Je suis paresseux au niveau des commentaires dans le code ... j’en suis désolé ... Je ferai un effort sur demande ... ric...