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

Staple1600 · 7 Mars 2010

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

Re à tous

En creusant cette histoire de nombres narcissiques, je suis tombé sur ce mathématicien : Kaprékar et sa fameuse constante

Le webinet des curiosités: Les meilleures recettes de Kaprekar
http://mathenjeans.free.fr/amej/edition/actes/actespdf/91088090.pdf

Si le cœur vous en dit, je serai heureux de découvrir vos façons (par formule et/ou VBA) d'arriver à ce fameux 6174

De mon côté, c'est ce à quoi je m'amuserai ce matin.

Bon week-end à tous.

PS: je n'ai pas ouvert d'autre fil pour ce nouvel algo car on reste dans dans le même thème.

EDITION:
ROGER2327: chez vous, vos codes s'exécutent sans problème ?

JCGL · 7 Mars 2010

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

Bonjour à tous,

Très intéressant Webinet !!!

Un essai par formules qui peuvent être réduites.

A+ à tous

Staple1600 · 7 Mars 2010

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

Bonjour JCGL

Merci de ton passage ici (et pour ta pj)

Voici mon interprétation avec formules nommées

J'ai un petit souci pour gérer l'affichage dans les cellules
quand on arrive à 6174

(voir la pj )

PS: merci à job75 pour son tricell (c'était dans the 24 game ... )

Je passerai après déjeuner à une version VBA

Bon appétit à tous

PS: JCGL: les codes de ROGER2327 s'exécutent-ils sans problème chez toi ?

Staple1600 · 7 Mars 2010

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

Re

A propos de Kaprekar
En cherchant sur le net, j'ai trouvé une interprétation sous Excel qui utilise une seule formule sans colonnes supplémentaires ( )

Saurez-vous la trouver ?
Elle utilise les fonctions suivantes: SOMME, GRANDE.VALEUR ,TEXTE, STXT
et des matrices

Fonctionnement
en A1 on saisit le un nombre de 4 chiffres
en A2 la fameuse formule
puis on recopie vers le bas jusqu'en A10

et c'est tout !!

Un indice: exemple issu d'un bouquin cité dans un fil récent du forum.

JCGL · 7 Mars 2010

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

Bonjour à tous,

Oui les codes de Roger fonctionnent chez moi avec les mêmes réserves que vous : lenteur au bout du 24 mais cela est normal

Un essai avec, encore, quatre colonnes supplémentaires ... et :

=SI(A1="";"";(GRANDE.VALEUR($B1:$E1;1)&GRANDE.VALEUR($B1:$E1;2)&GRANDE.VALEUR($B1:$E1;3)&GRANDE.VALEUR($B1:$E1;4))*1-(PETITE.VALEUR($B1:$E1;1)&PETITE.VALEUR($B1:$E1;2)&PETITE.VALEUR($B1:$E1;3)&PETITE.VALEUR($B1:$E1;4))*1)

A+ à tous

Staple1600 · 7 Mars 2010

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

Re

Pas mal JCGL

PS: la formule dont je parle utilise "l'algorithme de Kaprekar" justement.
Et on en trouve des exemples sur le net
On peut finir par trouver (et donc traduire en formule Excel)
en lisant ceci : tout y est

Qui sera le premier à trouver cette jolie formule ?

ROGER2327 · 7 Mars 2010

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

Re...

Staple1600 à dit:
(...)
EDITION:
ROGER2327: chez vous, vos codes s'exécutent sans problème ?
(...)

Bien sûr. Sauf cas particulier dûment signalé, je ne livre jamais un code sans le tester.
Je joins mon classeur de travail.

ROGER2327
#2908

Staple1600 · 7 Mars 2010

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

Bonjour ROGER2327

Merci pour ta pièce jointe (elle réussit elle aussi à faire planter mon Excel)

Je testerai plus tard avec comme seule application ouverte Excel

(j'ai vraiment l'impression qu'il peut y avoir des problèmes inopinés avec Excel 2000 + Vista)

Vous vous joignez aussi à nous pour Kaprekar ?

PS: Quel OS utilisez-vous avec votre Excel 2003 ?

JCGL · 7 Mars 2010

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

Bonjour à tous,

Je viens de m"apercevoir que je n'ai pas déposé le fichier.

Merci pour tes liens mais je tente, souvent, de trouver seul.

A+ à tous

Staple1600 · 7 Mars 2010

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

Re

JCGL
Les liens ne s'adressaient pas uniquement à toi

C'est juste histoire d'augmenter le nombre de participants à la quete de la formule
(qui a ensoleillé mon dimanche )

ROGER2327 · 7 Mars 2010

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

Re...

Staple1600 à dit:
(...)
PS: Quel OS utilisez-vous avec votre Excel 2003 ?

J'exploite Office2003 sous Microsoft Windows XP Professionnel (version 5.1.2600 Service Pack 3 Nu 2600).

ROGER2327
#2910

Staple1600 · 7 Mars 2010

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

Re

Donc ce serait VISTA le coupable dans cette affaire ...

Et Kaprekar ? Cela vous intéresse ou pas ?

ROGER2327 · 7 Mars 2010

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

Re...

Staple1600 à dit:
Re

Donc ce serait VISTA le coupable dans cette affaire ...

Et Kaprekar ? Cela vous intéresse ou pas ?

Je ne sais pas.
Intérêt limité pour la question. Juste une bricole en passant...

ROGER2327
#2912

Staple1600 · 8 Mars 2010

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

Bonsoir ROGER2327

Merci de votre passage et pour votre pj.

Avis au formulistes
Personne n'est intéressé par le challenge de la formule "all in one"
dont je parle plus bas ?

Je laisse passer encore un peu de temps avant de vous la livrer.

MJ13 · 9 Mars 2010

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

Bonjour à tous

Merci Jean-marie pour ce divertissement .

Je me suis borné a trouver les nombres narcissiques de 100 à 999.

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

Staple1600

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Pièces jointes

Discussions similaires