Compter en base 6 (RESOLU)

[Pinnothere]

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]

Re : Compter en base 6

Bonjour,


=base(6;A2)

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

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]

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]

Re : Compter en base 6

Bonsoir.


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

=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]

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]

Re : Compter en base 6

Je vous avoue que je suis un peu perdu.

 

[ROGER2327]

Re : Compter en base 6

Bonsoir JCGL.

(...)

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]

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]

Re : Compter en base 6

Bonsoir,

Bonsoir.


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

=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.

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

A+

 

[ROGER2327]

Re : Compter en base 6

Re...

(...)

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]

Re : Compter en base 6

Bonjour à tous,
Bonjour Roger,

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

Exact.
Apparu avec XL 2013.

A+ à tous

 

[Pinnothere]

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.