Calcul sur base autre que 10

[Yopub]

Bonjour la foule, y-a-t-il une formule permettant de transformer un calcul en base 10 par une autre base ?
Du type : BASE(50;7) ce qui signifierait que je veuille transformer 50 en base 7, soit le résultat 70 (enfin je crois).
Merci d'avance.

 

[mercant76]

Re : Calcul sur base autre que 10

bonjour,

je ne sais pas s'il existe une formule, mais 50 en base 7, çà fait 11.

@+

désolé, j'ai été trop vite à répondre.

merci Roger.

@+

 

[R@chid]

Re : Calcul sur base autre que 10

Salut @ tous,
Un fichier exemple avec resultas souhaites notes manuelement va etre plus parlant.
Amicalement

 

[ROGER2327]

Re : Calcul sur base autre que 10

Bonjour à tous

Pour 50, en base 7, je vote pour 101. Mais chacun est libre de son opinion, et je respecte 70 et 11.

Une fonction personnalisée :

Function BaseN(n&, b%)
    If n >= 0 And b > 1 Then
        Do
            BaseN = n Mod b & BaseN
            n = (n - n Mod b) \ b
        Loop While n
    Else
        BaseN = ""
    End If
End Function

(Valable pour n entier positif, b entier de 2 à 10)

=BaseN(50;7) renvoie 101, car 50 = 1*7^2 + 0*7^1 + 1*7^0.​

 

[JHA]

Re : Calcul sur base autre que 10

Bonjour à tous,

Un essai sur fichier si j'ai bien compris

JHA

 

[Yopub]

Re : Calcul sur base autre que 10

Merci de vos réponses, ça fait réfléchir sur le formatage de nos cerveaux !
MAIS SURTOUT PARDON D'AVOIR MIS TANT DE TEMPS A REPONDRE, J'AI EU UN GROS SOUCI PASSAGER.
A plus, pour de nouvelles aventures.

 

[Modeste geedee]

Re : Calcul sur base autre que 10

Bonsour® ROGER2327
et pour aller un petit peu plus loin base 36 (sourire...)

Valable pour n entier positif, b entier de 2 à 36

Function BaseN(n&, b%)
Dim carbase As String
     If n >= 0 And b > 1 Then
     carbase = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
         Do
             BaseN = Mid(carbase, 1 + (n Mod b), 1) & BaseN
             n = (n - n Mod b) \ b
         Loop While n
     Else
         BaseN = ""
     End If
 End Function

 

[BOISGONTIER]

Re : Calcul sur base autre que 10

Bonjour,

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionBaseConversion.xls

Conversion d'un nombre en hexadécimal : Forum Excel

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

Function baseNDec(b, n)
   temp = 0
   For i = Len(n) To 1 Step -1
     temp = temp + (InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", Mid(n, i, 1)) - 1) * b ^ (Len(n) - i)
   Next i
   baseNDec = temp
End Function

JB