calcul sur nombre décomposé

bon jour,

Je cherche le code source ou l'explication pour créer le code d'une fonction qui prendrai un nombre à 5 chiffres (invariable) et multiplierai le premier chiffre au second, le résultat au troisième, le résultat au quatrième etc...

qqun à déjà fait ça ou pourrait m'expliquer comment m'y prendre?

Merci à vous.

@+ Pascal

c'est ce qu'on applle une fonction recursive. c'est à dire quelle s'apelle elle même


Private Function MulX(Valeur as double) as double
mulx=mulx(valeur)*valeur
End Function

Le problème est la sortie parceque çà va metre à genoux la pile d'appel en moins de temps qu'il faut pour l'écrire


ce qui donnerait quelque chose comme
Private Function MulX(Valeur As Double, NbMult) As Double
If NbMult < 0 Then
MulX = Valeur
Else
MulX = MulX(Valeur, NbMult - 1) * Valeur
End If
End Function

'Sans arantie du résultat

Jean-Luc


-------------------------------
Réponse au message :
-------------------------------

> bon jour,
>
> Je cherche le code source ou l'explication pour créer le code d'une fonction qui prendrai un nombre à 5 chiffres (invariable) et multiplierai le premier chiffre au second, le résultat au troisième, le résultat au quatrième etc...
>
> qqun à déjà fait ça ou pourrait m'expliquer comment m'y prendre?
>
> Merci à vous.
>
> @+ Pascal

pascal de Béziers

Non je crois que je me suis mal exprimé.

J'aimerai récupérer un nombre de 5 chiffres contenu dans ma cellule A1 d'une feuille de calcul excel (feuil1).

Prendre cette valeur avec la commande mid la décomposer en 5 chiffres différents et les multiplier tous entre eux.

C'est à dire : 12345 dans ma cellule A1.

prendre ce nombre, le décomposer avec la fonction mid(nombre,1,1) et les multiplier entre eux. 1 * 2 * 3 * 4 * 5 = 180.

Afficher le résultat en cellule B1.

Merci pour ton aide

je c pas comment vb dialogue avec excel, je mets le code comme si c'etait des champs textes de vb et tu transposeras

je pense que ca marcherait:

total=1
FOR x=1 TO 5
total=total*MID(A1.text, x, 1)
NEXT x
B1.text=total








Dark L@nfeust
http://lagrangeduweb.free.fr


-------------------------------
Réponse au message :
-------------------------------

>
> pascal de Béziers
>
> Non je crois que je me suis mal exprimé.
>
> J'aimerai récupérer un nombre de 5 chiffres contenu dans ma cellule A1 d'une feuille de calcul excel (feuil1).
>
> Prendre cette valeur avec la commande mid la décomposer en 5 chiffres différents et les multiplier tous entre eux.
>
> C'est à dire : 12345 dans ma cellule A1.
>
> prendre ce nombre, le décomposer avec la fonction mid(nombre,1,1) et les multiplier entre eux. 1 * 2 * 3 * 4 * 5 = 180.
>
> Afficher le résultat en cellule B1.
>
> Merci pour ton aide
>

Merci à toi grand gourou du VB, cela plusieurs jours que je cherche

Merci
pascal de Béziers


-------------------------------
Réponse au message :
-------------------------------

> je c pas comment vb dialogue avec excel, je mets le code comme si c'etait des champs textes de vb et tu transposeras
>
> je pense que ca marcherait:
>
> total=1
> FOR x=1 TO 5
> total=total*MID(A1.text, x, 1)
> NEXT x
> B1.text=total
>
>
>
>
>
>
>
>
> Dark L@nfeust
> http://lagrangeduweb.free.fr
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> > pascal de Béziers
> >
> > Non je crois que je me suis mal exprimé.
> >
> > J'aimerai récupérer un nombre de 5 chiffres contenu dans ma cellule A1 d'une feuille de calcul excel (feuil1).
> >
> > Prendre cette valeur avec la commande mid la décomposer en 5 chiffres différents et les multiplier tous entre eux.
> >
> > C'est à dire : 12345 dans ma cellule A1.
> >
> > prendre ce nombre, le décomposer avec la fonction mid(nombre,1,1) et les multiplier entre eux. 1 * 2 * 3 * 4 * 5 = 180.
> >
> > Afficher le résultat en cellule B1.
> >
> > Merci pour ton aide
> >
>