[ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

ROGER2327 · 10 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Re...

Staple1600 à dit:
(...)
Une dernière avant le dodo

Il y a parfois des erreurs quand il y a un zéro dans le chiffres.
(...)

Je pense qu'il faut poser ={0;2;4;6;8} pour np.

ROGER2327
#2930

Staple1600 · 10 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Bonjour ROGER2327

J'aurai du me coucher plutôt hier soir

Merci de m'avoir éclairé.

ROGER2327 · 10 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Staple1600 à dit:
Bonjour ROGER2327

J'aurai du me coucher plutôt hier soir

Merci de m'avoir éclairé.

Il n'y a que ceux qui ne font rien qui ne se trompent pas...

Bonne soirée,
ROGER2327
#2941

soenda · 11 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Bonsoir le fil

Décidément ce fil est très intéressant

BrunoM45 à dit:
Chez moi j'ai essayé également
...
Et bien ça rame après la valeur de : 24678051

Je pense que c'est un problème d'algo,
en effet même si le code proposé par Bruno est très concis, il peut être optimisé.

Dès que j'ai débogué, je poste (...)

Super fil Staple
Super réponse Roger

A plus

soenda · 12 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Bonjour le fil,

... Donc en PJ, un petit Algo (brut de décoffrage) qui sort les nb narcisiques de 8 chiffres en 2,5 seconde (là ou il faut plus de 12 mn avec le code précédant).

A plus

Compte Supprimé 979 · 12 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Salut Soenda

Apparemment

Code:

 .[A1].Resize(tot) = Application[B][COLOR=red].Transpose(Res)[/COLOR][/B]

ne fonctionne pas sur Office 2003

Erreur d'exécution 438
Propriété ou méthode non géré par cet objet

A+

MJ13 · 12 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Bonjour à tous

Soenda, sur Xl2007, idem que Bruno.

Ouah Bruno! nouveau Avatar .

Compte Supprimé 979 · 12 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Salut Michel J13

Yeeesss ... tu as remarqué mon AVATAR

Ca tombait bien j'avais envie de changement ....

A+

Staple1600 · 12 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Bonsoir à tous

Même erreur sous Excel 2000 avec le code de soenda.

BrunoM45
C'est toi le Schtroumpf Hulky

PS:merci à tous de vos contributions "macrotiques"

Content que genre de fil rencontre un public

soenda · 12 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Re,

...
.[A1].Resize(tot) = Application.Transpose(Res)
...

Faute lors du Copier/Coller. Mille excuses

S'agissant d'une instruction se trouvant dans un bloc With
With Feuil1.[A1]
le .[A1] n'a pas lieu d'être

il fallait lire
.Resize(tot) = Application.Transpose(Res)

Je corrige la PJ incriminée

A plus

Staple1600 · 12 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Bonsoir soenda

Effectivement ca marche mieux ainsi

Résultat chez moi:
12,94 secondes

soenda · 13 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Bonsoir Staple1600

12 secondes coef 300, ça fait 1 heure

... Tu pourrais envisager de moderniser ton installation

A plus

Staple1600 · 13 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Re

soenda
Je suis pourtant sous Vista ( avec Excel 2000 il est vrai ) avec 2 Go de Ram

C'est une private joke ou tu es sérieux ?

PS: suite à une récente suggestion de CBernardT(merci à toi ), je viens d'installer la BETA d' XL2K10 et je vais de ce pas tester ton code avec cette BETA.

EDITION : LOL

Avec Excel 2010 et ton code amendé
-> résultat : 13,17 secondes

C'est ce qui s'affiche dans la cellule : A4

soenda · 13 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Re,

Ce n'est pas une private joke ...
Et Xl 2010 Beta n'est pas une référence (si je puis me permettre )...

SolèneIV
tourne sous Vista, Ram 2 Go (c'est un peu juste), Core 2 duo 2 à 2.6 et xl 2007 (j'adore).

Tes résultats me surprennent, mais j'ai encore beaucoup à apprendre

Voir PJ.

A plus

Staple1600 · 13 Mars 2010

Re : [ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

Re soenda

Et Xl 2010 Beta n'est pas une référence (si je puis me permettre )...

Référence ou pas, je ne comprends pas pourquoi une telle différence de résultat

Mon PC date d'octobre 2008.

PS: en tout cas avec Excel 2010, je n'ai plus de problème avec MSQUERY
(c'est déjà cela )

[ALGO][VBA]Nombre narcissique - comment faites vous ? (pour les grands nombres)

ROGER2327

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

soenda

XLDnaute Accro

soenda

XLDnaute Accro

Pièces jointes

Compte Supprimé 979

Guest

MJ13

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Staple1600

XLDnaute Barbatruc

soenda

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

soenda

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

soenda

XLDnaute Accro

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires