Bonjour AbTony, Papou-Net, le Forum
Je regardais l’évolution de ce fil et Papou-Net à des ressources pour répondre à ta demande, tu as de quoi travailler.
@Bonjour Thierry,
En effet il a plein de ressources, et ma rendu la tache plus facile en allégeant mon fichier, en simplifiant le filtrage des différentes rubriques, et en gagnant en rapidité d'exécution.
Ca me satisfait pleinement et je le remercie énormément.
Mon intervention vient du fait que j'ai un sérieux problème avec le dernier fichier, j'ai tenté de travaillé dessus mais Excel 2007 sous PC (XP) qui plante immanquablement même sans rien faire juste en faisant un « Save As » ça mouline, et finalement Excel ne répond plus si on touche quelque chose… Cela ne le fait pas sur ton premier fichier (quand tu n’avais pas encore la base « Gros Œuvre »). Tu travailles sous Mac Office 2011 pour faire ce fichier ? Quelqu’un rencontre t’il un problème aussi ?
@Du fait que tu soit sous 2007, je pense que ce même fichier enregistré en xlsm posera moins de problèmes, des fois ça m'arrive aussi d'ouvrir des fichier fait sur ce forum et ça tourne en boucle avant plantage, pourquoi ? aucune idée une solution sera peut être trouvé par microsoft pour amélioré la compatibilité.
Une autre remarque d’ordre général, tu dois construire une vraie Base de Données pour travailler que ce soit sur UserForm ou le reste (même dans Excel), l’idée des couleurs est sympathique, et Papou-Net redouble d’imagination et de bonne volonté, mais ce n’est pas vraiment un travail « pro » plutôt une sorte de performance, surtout que maintenant on voit apparaître des vraies Codifications en Clef Unique dans ta dernière demande. D’ailleurs j’ai noté à la volée que tu auras des soucis avec « Rive » qui revient plusieurs fois B798 , B807, B837… et probablement d’autres items…
@Papou-net a fait un excellent travail, pour les lignes B798, B807, B837 pas de soucis particulier avec Rives car le filtrage tel que conçu par papou net fait bien son travail.
Cordialement
@Papou-net
une dernière demande sur listbox3
Private Sub ListBox3_Change()
Dim Lg As Long, LB4Lg As Integer
ListBox4.Clear
With Sheets("GROS_OEUVRE_MACONNERIE")
GROS OEUVRE MACONNERIE est le nom de la feuille, mais ça va être variable car j'ai pas loin de 14 feuilles, j'ai essayé de mettre
With Sheets (Label1.caption) mais c'est pas bon, que mettre a la place ?
après cela c'est terminé pour mon fichier (enfin je pense).
Cordialement a vous deux
fichier plus gros en xlsm je vais voir a alléger au maximum