XL 2013 Calcul nombre de panneaux/tôles pour couverture surface

[Leguyl]

Bonjour à tou(te)s.

Je recherche une solution pour calculer à l'aide d'Excel le nombre de panneaux de bois/tôles alu à découper pour couvrir des dessus de murs. Les tôles et panneaux mesurent chacun 2,50 m x 1,50 m. La largeur n'excédera jamais celle d'une tôle, càd 1,50 m, par contre pas de limite de longueur.

Par exemple, si on me demande 19 m x 60 cm + 35 m x 85 cm + 24 m x 36 cm + .... quelle formule utiliser pour commander le nombre adéquat de panneaux/tôles avec le moins de perte possible ?

Solution VBA, bienvenue également.

Merci d'avance.

 

[Leguyl]

Oups après retest, ça donne bien 4.
Et pourtant, je ne bois que de l'eau et du thé lol

Je crois que j'ai besoin de lunettes... ou d'une canne blanche et un chien

 

[Leguyl]

Bonsoir,

J'ai créé un nouveau fichier et adapté le code pour supporter le calcul pour 10 murs. J'aimerais lancer le calcul dans la feuille "Calculs" depuis le bouton situé dans la feuille "Entrées" mais je suis un perdu, je ne sais plus trop comment m'y prendre.

 

[sylvanu]

Bonjour,
Avec 10 murs et cet algo, à défaut de meilleurs, au pire cela fait plus d'un million d'iterations par tôle.
On verra bien ce que ça donne. Je vais essayer.

 

[sylvanu]

Re,
En PJ un essai.
1- Il y avait pas mal de choses à reprendre, dont une règle fondamentale: lorsqu'on gère plusieurs feuilles il est indispensable de dire au VBA sur quelle feuille on bosse ( par ex avec un With Sheets("Calculs") ... End with ) sinon il bosse par défaut sur la feuille courante.
2- C'est sympa d'avoir fait le plus ingrat ( For For For ... ). Avec 10 murs il aurait été plus judicieux de passer par des matrices, mais comme le squelette était en place, j'ai préféré le conserver et continuer avec. Le temps n'est pas rédhibitoire. Avec votre exemple de 10 murs, mon PC calcule tout en 1.2s.
3- Si la PJ est concluante, vous pourriez continuer. Avec le prix d'une tôle, le temps d'une découpe, le temps de pose d'une plaque, le prix des supports, le prix de revente des déchets .... on pourrait arriver à un premier jet devis indicatif complet en automatique.
4- A noter que l'outil ne donne pas la découpe dans la longueur. A voir si utile et comment le présenter. ( si un mur fait 5m avec des tôles de 3m, il y aura une découpe de la seconde tôle à 1m. Mais il faut alors tenir compte des joints de dilatation )
A vous lire après test.

 

[Leguyl]

Bonjour,

Une fois de plus, merci beaucoup pour votre aide, sylvanu.

Il est, en effet, bien prévu d'ajouter le prix des tôles, des supports et de la visserie, le temps de découpe, soudure et de pose et d'autres choses. C'était surtout l'optimisation du nombre de tôles à utiliser sur laquelle je bloquais et vous m'avez vraiment été d'une aide précieuse pour cela.

Après test, juste un petit souci, j'obtiens le message "Erreur d'exécution '13': incompatibilité de type" si j'entre les données pour moins de 10 murs. Le VBA s'arrête sur cette ligne :

MaxDécoupes = MaxDécoupes + Cells(5 + N, "G")

Pour le reste, c'est juste impeccable.

 

[sylvanu]

Je voulais éviter d'afficher des zéros quand le mur n'est pas renseigné.... mauvaise idée.
Il y trop d'impacts sur tous les calculs.

 

[sylvanu]

NB: si ces 0 vous dérange on peut les supprimer en changeant le code.

 

[sylvanu]

OUPS ! Il y a un bug de taille. Il y a quelquefois des tôles en trop.
En fait il rajoute des découpes pour minimiser les déchets.

La V8 est corrigée. Mais ça va nettement moins vite.
Les 10 murs du post #17 prennent 298s. Cependant ça reste plus rapide qu'à la main.
( ce qui est plus près de ce que j'attendais au départ vu le nombre de boucles qu'il a à faire. )

 

[Leguyl]

Re. Merci sylvanu, je testerai ça demain... enfin ce matin, là je viens de rentrer et m'endors face à mon écran lol

 

[Leguyl]

Voila, j'ai fait des tests sur mon PC qui commence à dater, un i7 860 avec 6 Go de RAM.

En effet, ça va nettement moins vite. Et si le temps de calcul est relativement rapide jusqu'à 5 murs et correct jusqu'à 7 ou 8 , au delà, ça se gâte vachement :

1 mur : 0,07 s
2 murs : 0,098 s
3 murs : 0,508 s
4 murs : 1,238 s
5 murs : 4,055 s
6 murs : 15,223 s
7 murs : 43,758 s
8 murs : 87,336 s
9 murs : 240,938 s
10 murs : 666,922 s

... mais c'est déjà bien mieux que de tout calculer soi même. Merci sylvanu

 

[Victor21]

Bonjour à tous.

Et bravo à @sylvanu pour cette belle démonstration
Mais, histoire de corser l'affaire, les déchets réutilisables des précédents calculs ne sont pas réutilisés ?
Je blague, bien sûr !

 

[sylvanu]

Bonjour,
Avec 10 murs et la possibilité de mettre 4 morceaux par tôles ça fait un million de cycle par tôle.
On peut utiliser les "restes" s'ils ont tous la même taille en lançant un calcul avec une largeur différente.
J'ai cherché un algo plus performant, mais à chaque fois les restes ne ont jamais optimisés. Alors 600s pour gagner une plaque, ça vaut le coup.

 

[Leguyl]

Alors 600s pour gagner une plaque, ça vaut le coup.

Tout à fait ! Surtout qu'au boulot, certains PC devraient prendre bien moins de temps à faire les calculs que mon PC perso.