Microsoft 365 Multiplication chiffres pairs/impairs

Patron28 · 15 Décembre 2020

Bonjour

Dans le fichier excel en pièce jointe, j'aimerai sur base d'un tableau de 10 chiffres ( pairs/impairs colonne C ), trouver

toutes les combinaisons des chiffres pairs/pairs, impairs/impairs et pairs/impairs sans doublons.

Exemples comme dans le fichiers.

Dans le tableau colonne C le nombre de chiffre pairs et Impairs peut varier. un petit bouton pour lancer la macro serait intéressant.

Je dois me lancer dans une macro sans doute mais je bloque.

Merci pour votre aide

Patron.

sylvanu · 15 Décembre 2020

Salut Patron,
Un essai en PJ avec :

VB:

Sub Tri()
Dim tablo(), T(), N%, DL%, N1%, N2%, N3%, P1%, P2%
Application.ScreenUpdating = False
Range("E4:L1000").ClearContents                                     ' On efface le tableau
DL = Range("C65500").End(xlUp).Row                                  ' DL dernière ligne
tablo = Range("C4:C" & DL)                                          ' Transfert dans array ( plus rapide )
N = (UBound(tablo) ^ 2 - UBound(tablo)) / 2                         ' Taille tableau résultat : (x²-x)/2
ReDim T(N, 1)
Ind = 0                                                             ' Ind : Indice dans secons tableau
For i = 1 To UBound(tablo)                                          ' On remplit le 2eme tableau avec...

sylvanu · 16 Décembre 2020

Sur mon test initial, 200 nombres et 20 tests consécutifs. ( un seul n'est pas significatif )
Dépassement normal, faire la même modif que Job au post #9, remplacer les % par &, car initialement je me suis limité à 32768 donc integer.
Mais comme mon tableau est iso périmètre sur les trois macros, cela donne une bonne image de l'efficacité des algos.

job75 · 16 Décembre 2020

R@chid à dit:
J'ai fait le test sur 1000 nombres :
mapomme : 1,30s
Job75 : 1,54s

Là c'est curieux car sur ce test ton ordi est 2 fois moins rapide que le mien !!!

@sylvanu : dans la durée d'exécution il n'y a pas que l'algo, souvent la restitution dans la feuille prend plus de temps.

R@chid · 16 Décembre 2020

Re,

job75 à dit:
Là c'est curieux car sur ce test ton ordi est 2 fois moins rapide que le mien !!!

Je pense que ce qui est curieux est ton test d'hier, le plus juste et celui que tu as fait aujourd'hui, ton PC vient de se réveiller, tête reposée, prêt pour faire un bon travail

sylvanu · 16 Décembre 2020

@job,
Soit, mais Le choix de la restitution fait partie de l'algo.

C'est d'ailleurs pour ça que je vais éplucher l'algo de Mapomme, car en utilisant qu'un seul array de 8 colonnes et donc une seule restitution, je pensais ma solution comme optimum, alors que Mapomme en utilise trois et est plus rapide.

job75 · 16 Décembre 2020

R@chid à dit:
Je pense que ce qui est curieux est ton test d'hier, le plus juste et celui que tu as fait aujourd'hui, ton PC vient de se réveiller, tête reposée, prêt pour faire un bon travail

Du coup j'ai retesté la macro de sylvanu post #2 avec 200 nombres.

Tu as raison, je ne trouve pas 17 secondes mais 1,31 seconde !!! Que s'est-il passé hier ???

Donc finalement mon ordi est plus rapide que le tien.

mapomme · 16 Décembre 2020

Re,

Pour tester chaque procédure...

R@chid · 16 Décembre 2020

Re,

mapomme à dit:
Re,
Pour tester chaque procédure...

3 tests :

sylvanu	2,54
job	1,70
mapomme	1,33

9 tests :

sylvanu	2,59
job	1,71
mapomme	1,33

mapomme · 16 Décembre 2020

Re,

@job75 va encore nous épater avec son PC

job75 · 16 Décembre 2020

Très bien tes tests mapomme, on y voit plus clair, chez moi avec 9 tests :

sylvanu 1,50 s

job 0,95 s

mapomme 0,74 s

R@chid · 16 Décembre 2020

Re,
j'ai trouvé pourquoi ma bécane est trop lente, c'est à cause des pneus, je dois changer le guidon

mapomme · 16 Décembre 2020

job75 à dit:
chez moi avec 9 tests : sylvanu 1,50 s ; job 0,95 s ; mapomme 0,74 s

C'est bien ce que je pressentais, @job nous laisse dans les starting-blocks .

R@chid · 16 Décembre 2020

Re,

mapomme à dit:
C'est bien ce que je pressentais, @job nous laisse dans les starting-blocks .

Oui c'est normal, il a tous les moyens pour nous laisser figer dans la grille de départ.
Un bon pilote (ALGO_VBA_FORMULE) avec une très bonne expérience, une belle bécane comme la W11

Patron28 · 6 Janvier 2021

Bonjour à Tous,

Merci pour toutes ces mise à jour.

Super boulot

Patron28

Microsoft 365 Multiplication chiffres pairs/impairs

Patron28

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

R@chid

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Patron28

XLDnaute Nouveau

Discussions similaires