Compter en base 6 (RESOLU)

Pinnothere · 27 Octobre 2015

Bonjour à tous,

J'aimerai votre avis s'il vous plait.

Je cherche à compter en base 6.
Ou convertir un nombre de base dix vers l'équivalent en base 6.

Y'a t'il une solution sur excel ?

Merci de votre aide.

BOISGONTIER · 27 Octobre 2015

Re : Compter en base 6

Bonjour,

=base(6;A2)

Dans un module (Alt+F11 puis Insertion/Module)

Code:

Function base(b, n)
  Do While n >= b
    result = Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", IIf(n Mod b > 0, (n Mod b) + 1, 1), 1) & result
    n = n \ b
  Loop
  base = Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", IIf(n Mod b > 0, (n Mod b) + 1, 1), 1) & result
End Function

cf PJ

JB

Pinnothere · 27 Octobre 2015

Re : Compter en base 6

Bonsoir Boisgontier,
Merci pour la rapidité de votre réponse.
Malheureusement, je ne sais pas me servir dU code que vous me transmettez.
Pouvez vous m'y aider s'il vous plait ?
Merci

ROGER2327 · 27 Octobre 2015

Re : Compter en base 6

Bonsoir.

Une formule simpliste à défaut d'être simple :

Code:

=DROITE(
MOD(ENT(ENT(ENT(ENT(A1/13060694016)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(A1/13060694016)/6)/6);6)
&MOD(ENT(ENT(A1/13060694016)/6);6)
&MOD(ENT(A1/13060694016);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(A1/6)/6)/6);6)
&MOD(ENT(ENT(A1/6)/6);6)
&MOD(ENT(A1/6);6)
&MOD(A1;6);
1+ENT(LOG(A1;6)))

(Uniquement valable pour des nombres entiers positifs jusque environ 1.500.000.000.000.)

Bonne soirée.

ℝOGER2327
#8070

Dimanche 22 Haha 143 (Résurrection de Bosse-de-Nage - fête Suprême Seconde)
5 Brumaire An CCXXIV, 7,1280h - oie
2015-W44-2T17:06:26Z

JCGL · 27 Octobre 2015

Re : Compter en base 6

Bonjour à tous,

Pourquoi ne pas utiliser la fonction native Base ?

[h=1]BASE (BASE, fonction)[/h] Cet article décrit la syntaxe de formule et l’utilisation de la fonction BASE dans Microsoft Excel.
[h=2]Description[/h]Convertit un nombre en une représentation textuelle avec la base donnée.
[h=2]Syntaxe[/h]BASE(Nombre, Base [longueur_min])
La syntaxe de la fonction BASE contient les arguments suivants :

Nombre Obligatoire. Nombre à convertir. Doit être un entier supérieur ou égal à 0 et inférieur à 2^53.
Base Obligatoire. Base dans laquelle convertir le nombre. Doit être un entier supérieur ou égal à 2 et inférieur ou égal à 36.
Longueur_min Facultatif. Longueur minimale de la chaîne renvoyée. Doit être un entier supérieur ou égal à 0.

A+ à tous

Pinnothere · 27 Octobre 2015

Re : Compter en base 6

Je vous avoue que je suis un peu perdu.

ROGER2327 · 27 Octobre 2015

Re : Compter en base 6

Bonsoir JCGL.

JCGL à dit:
(...)

Pourquoi ne pas utiliser la fonction native Base ?

(...)

Pas trace de cette fonction chez moi (Excel 2010).

Bonne soirée.

ℝOGER2327
#8071

Dimanche 22 Haha 143 (Résurrection de Bosse-de-Nage - fête Suprême Seconde)
5 Brumaire An CCXXIV, 7,2986h - oie
2015-W44-2T17:31:00Z

Chris24 · 27 Octobre 2015

Re : Compter en base 6

Bonjour

Il y a aussi la fonction CHBASE de la macro complémentaire Morefunc de Laurent Longre

Bonne soirée

GerardCalc · 27 Octobre 2015

Re : Compter en base 6

Bonsoir,

ROGER2327 à dit:

Bonsoir.

Une formule simpliste à défaut d'être simple :

Code:

=DROITE(
MOD(ENT(ENT(ENT(ENT(A1/13060694016)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(A1/13060694016)/6)/6);6)
&MOD(ENT(ENT(A1/13060694016)/6);6)
&MOD(ENT(A1/13060694016);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(ENT(A1/6)/6)/6)/6);6)
&MOD(ENT(ENT(ENT(A1/6)/6)/6);6)
&MOD(ENT(ENT(A1/6)/6);6)
&MOD(ENT(A1/6);6)
&MOD(A1;6);
1+ENT(LOG(A1;6)))

(Uniquement valable pour des nombres entiers positifs jusque environ 1.500.000.000.000.)

Bonne soirée.

Presque la même, en plus court. 😉

Code:

=SOMMEPROD(MOD(ENT(A1/(6^(13-LIGNE($A$1:$A$13))));6);10^(13-LIGNE($A$1:$A$13)))

A+

ROGER2327 · 27 Octobre 2015

Re : Compter en base 6

Re...

GerardCalc à dit:
(...)

Presque la même, en plus court. 😉

(...)

Bien sûr !
C'est pourquoi je parlais de solution simpliste.

ℝOGER2327
#8072

Dimanche 22 Haha 143 (Résurrection de Bosse-de-Nage - fête Suprême Seconde)
5 Brumaire An CCXXIV, 7,4561h - oie
2015-W44-2T17:53:40Z

JCGL · 27 Octobre 2015

Re : Compter en base 6

Bonjour à tous,
Bonjour Roger,

ROGER2327 à dit:
Pas trace de cette fonction chez moi (Excel 2010).

Exact.
Apparu avec XL 2013.

A+ à tous

Pinnothere · 28 Octobre 2015

Re : Compter en base 6

Houla, ça en fait des solutions !
Merci à tous,
Merci aussi à GérardCalc qui nous donne une solution plus "légère".

Merci à tous de votre aide.

Compter en base 6 (RESOLU)

Pinnothere

Guest

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Pinnothere

Guest

ROGER2327

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pinnothere

Guest

ROGER2327

XLDnaute Barbatruc

Chris24

XLDnaute Impliqué

GerardCalc

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pinnothere

Guest

Discussions similaires

Compter en base 6 (RESOLU)

Pinnothere

Guest

XLDnaute Barbatruc

Pièces jointes

Pinnothere

Guest

XLDnaute Barbatruc

XLDnaute Barbatruc

Pinnothere

Guest

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pinnothere

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency