XL 2016 Calcul

Sub Test()
    Const k = 2 ^ 0 + _
              2 ^ 3 + _
              2 ^ 4 + _
              2 ^ 6 + _
              2 ^ 7
          
    MsgBox PuissanceDe2PrésentEnValeur(2 ^ 4, k)
End Sub

Function PuissanceDe2PrésentEnValeur(PuissanceDe2 As Long, SommeDePuissancesDe2 As Long) As Boolean
    Dim i As Integer
    Dim q As Long
 
    Const MaxPuissanceDe2 = 10
 
    q = SommeDePuissancesDe2
    For i = 0 To MaxPuissanceDe2
        If q Mod 2 ^ (i + 1) = 2 ^ i Then
            If 2 ^ i = PuissanceDe2 Then Exit For
            q = q - 2 ^ i
        End If
    Next i
 
    'Return value
    If i <= MaxPuissanceDe2 Then
        PuissanceDe2PrésentEnValeur = True
    End If
End Function

Sub Test2()
    Const k = 2 ^ 0 + _
              2 ^ 3 + _
              2 ^ 4 + _
              2 ^ 6 + _
              2 ^ 7
             
    Call ListeDesPuissancesDe2(k)
End Sub

Sub ListeDesPuissancesDe2(SommeDePuissancesDe2 As Long)
    Dim i As Integer
    Dim q As Long
    Dim p As Long
    Dim S As String
   
    Const MaxPuissanceDe2 = 10
   
    q = SommeDePuissancesDe2
    For i = 0 To MaxPuissanceDe2
        If q Mod 2 ^ (i + 1) = 2 ^ i Then
            If Len(S) > 0 Then
                S = S & " + "
            End If
            S = S & CStr(2 ^ i)
            p = p + 2 ^ i
            q = q - 2 ^ i
        End If
    Next i
   
    If p <> SommeDePuissancesDe2 Then
        MsgBox "Gros bug !"
    Else
        MsgBox "PuissanceDe2 = " & SommeDePuissancesDe2 & " (" & S & ")"
    End If
End Sub

Function JenSuis(ByVal Puiss2&, ByVal Somme2n&) As Boolean
Dim max&, x&, i&
   max = 1 + Int(Log(Somme2n) / Log(2)): If 2 ^ max > Somme2n Then max = max - 1
   For i = max To 0 Step -1
      x = 2 ^ i
      If x <= Somme2n Then
         If x = Puiss2 Then
            JenSuis = True: Exit Function
         Else
            If x <= Somme2n Then Somme2n = Somme2n - x
         End If
      End If
   Next i
End Function

Sub Lister()
Dim X&
   X = 9379
   MsgBox Join(Array(X, Replace(ListPuiss2(X), " ", " + ")), " = ")
End Sub

Function ListPuiss2$(ByVal Somme2n&)
Dim max&, X&, i&, s$
   If Somme2n <= 0 Then Exit Function
   max = 1 + Int(Log(Somme2n) / Log(2)): If 2 ^ max > Somme2n Then max = max - 1
   For i = max To 0 Step -1
      X = 2 ^ i
      If X <= Somme2n Then s = X & " " & s: Somme2n = Somme2n - X
   Next i
   ListPuiss2 = Trim(s)
End Function

V= 97: i=256: t=""
While i=>1
If v And i=I then
    If t<>"" then t=t & " +"
          T=t & l
End if
I=i/2
Wend

Public Function ListeSommePuissanceN$(ByVal Somme&, ByVal N&, Optional exposant)
Dim max&, X&, i&, s$
   If Somme <= 0 Or N <= 1 Then Exit Function
   max = 1 + Int(Log(Somme) / Log(N)): If N ^ max > Somme Then max = max - 1
   For i = max To 0 Step -1
      X = N ^ i
      If X <= Somme Then
         If IsMissing(exposant) Then s = X & " " & s Else s = N & "^" & i & " " & s
         Somme = Somme - X
      End If
   Next i
   If Somme = 0 Then ListeSommePuissanceN = Trim(s) Else ListeSommePuissanceN = "?"
End Function

Function JenSuis(ByVal Nombre&, ByVal N&, ByVal Somme&) As Boolean
   JenSuis = InStr(ListeSommePuissanceN(Somme, N), " " & Nombre & " ") > 0
End Function

Sub a()
    Dim Max As Long
    Dim Somme As Double
    Dim n As Integer

    n = 3
    
    Somme = n ^ 0 + _
            n ^ 1 + _
            n ^ 2 + _
            n ^ 3 + _
            n ^ 4
            
    Somme = n ^ 15
    
    Max = 1 + Int(Log(Somme) / Log(n))
    If n ^ Max > Somme Then Max = Max - 1
    
    MsgBox "Brut = " & Log(Somme) / Log(n) & vbCrLf & _
           "Int() = " & Int(Log(Somme) / Log(n)) & vbCrLf & _
           "Int(Cdbl()) = " & Int(CDbl(Log(Somme) / Log(n))) & vbCrLf & _
           "RoundDown() = " & Application.RoundDown(Log(Somme) / Log(n), 0) & vbCrLf & _
           "Max = " & Max
End Sub