Autres Petit defi du jour

[patricktoulon]

Bonjour a tous
Un petit défi comme ca le dimanche (et oui c'est tout moi ca )

J’ai plusieurs longueurs en nombre variable
Je cherche un algo qui me permettrait de faire des groupes de longueurs au plus proches les une des autres.
exemple
10;17.5;18;24.9;12.3;32;19;28.7;41;etc.....
ce nombre de longueurs je veux pouvoir le diviser par 3,4,ou,5,ect....groupe

ca me fera x groupes
l'addition des longueurs de ces groupes doivent être = ou tres proche

des idées ?
Patrick

 

[patricktoulon]

si il est fiable si tu prend en compte le coeff de réduction de taille en amont sinon les données sont fausse
exemple une image fait 400X500 point a la base
tu la réduit pour qu'elle rentre dans le cell a supposer que la ligne fait 100 de haut
donc insertion h=height :.height=cell.height ; mémorisation de h pour l'image

a la fin tu fais un cropRight largeur max-le width actif* le coeff h de l'image
car justement le crop prend en compte les dimensions de départ

 

[job75]

Bonjour Patrick, le forum,

si il est fiable si tu prend en compte le coeff de réduction de taille en amont

Tu as raison, alors dans cette version on ajuste la largeur et on rogne en bas la dernière image de chaque ligne.

Cela dit en visuel il y a très peu de différence avec la solution du post #9.

A+

 

[patricktoulon]

Bonjour @job75
Me voilà de retour avec un nouvel écran super tout beau tou neuf enfin
4 jours sans PC , j'ai cru tourner un remake de "Seul au monde" 🤣 🤣

Donc voici ma version que j'avais adoptée la semaine dernière
Voir feuille patchwork 2 qui est sans conteste plus rapide
je ne prends pas la hauteur de cellule c'est moi qui décide la hauteur
tu constateras que les images coupées sont au zoom identique autres

 

[job75]

Bonjour Patrick, le forum,

Avec le fichier de mon post #17 l'essentiel du temps de traitement vient de la macro Tirages.

Pour 11 images sur 3 lignes :
- ntirages = 10 000 => écart 7 points => 0,9 seconde
- ntirages = 1000 => écart 16 points => 0,13 seconde.

Pour 33 images sur 5 lignes :
- ntirages = 10 000 => écart 51 points => 2,14 secondes
- ntirages = 1000 => écart 81 points => 0,40 seconde.

Avec 33 images le rognage en hauteur de la dernière de chaque ligne peut être important.

J'ai testé ta macro Patrick après avoir ajouté "webp" mais elle beugue sur :

If Not dicoDoublons.exists(PiCt.Name) Then

Sur l'autre fil je t'ai indiqué comment l'éviter.

A+

 

[laurent950]

Bonjour @patricktoulon

En Poste #18 tu as stocké ou les images, si ont veux faire fonctionné cette vba avec d'autres images, j'aime le principe 10/10 tu es un champion

Merci pour cette astuce
Laurent

 

[patricktoulon]

Bonsoir @job75
Oui j'ai compris que c'était le tirage qui prenait du temps
Ce n'est pas le principe que j'emploie
Moi je mets les images au hasard(ou pas) comme elles viennent
Je décide du nombre d'image par ligne à la base
Ensuite je rajoute en doublonnant en changeant un peu la luminosité
Et quand il ne reste plus que des bagatelles de points je mets une triplette ou doublons et je la crop(coupe l'image par la droite).
Et oui ce problème de shapes/pictures c'est pénible qui crée le bug sur certain 365 (pas tous).

@laurent950
les images sont dans un dossier que tu sélectionnes tout simplement