Calcul avec des grands nombres sous excel [VERITI]

Bas Sujet précédent Sujet suivant S'enregistrer pour participer

Calcul avec des grands nombres sous excel

Invité

Slt,
Je cherche un macro ou une astuce qui me permettra de calculer les grands avec excel; exemple 111111111x111111111=12345678987654321 or excel donne comme resultat 12345678987654300. Et je veux faire des calculs avec la +, -, *, /
Merci de votre prompt réaction.
Bien à vous.

Date de publication : 21/05/2016 17:30

eric45

Re : Calcul avec des grands nombres sous excel

Invité

Bonjour à tous
Bonjour chrysaxel

Nous sommes tous des bénévoles et, si je peux me permettre, le "votre prompt réaction" ne pousse pas forcément à répondre "promptement" à la demande.

Pour ton pb, je te propose ceci :


Option Explicit



Sub lance_test()

Dim multiplicande As Long         ' multiplicande'

Dim len_nb_1 As Integer

Dim multiplicateur As Long         ' multiplicateur'

Dim len_nb_2 As Integer

Dim Var As Integer

Dim tablo() As Integer

Dim i As Integer, j As Integer

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer

Dim x As Integer, y As Integer, z As Integer

Dim resultat As String

Dim mav_01 As Integer, reste As Integer



multiplicande = 111111111

multiplicateur = 111111111



len_nb_1 = Len(CStr(multiplicande))

len_nb_2 = Len(CStr(multiplicateur))



ReDim tablo(len_nb_1 + len_nb_2 + 1, len_nb_1 + len_nb_2 + 1)



For i = 1 To len_nb_2

    Var = 0

    a = 0

    e = len_nb_1 - i + 1

    For j = 1 To len_nb_1 + 1

        

        If j < len_nb_1 + 1 Then

            c = c + 1

            b = len_nb_1 - a

            a = a + 1

            tablo(j - 1 + d, i - 1) = Right(Right((Mid(multiplicande, b, 1) * Mid(multiplicateur, e, 1)), 1) + Var, 1)

            If Len((Mid(multiplicande, b, 1) * Mid(multiplicateur, e, 1)) + Var) > 1 Then

                Var = Left(((Mid(multiplicande, b, 1) * Mid(multiplicateur, e, 1)) + Var), 1)

            Else

                Var = 0

            End If

        End If

        

        If j < len_nb_1 And Var > 0 Then

            ' pour test'

            Cells(21 + i, 30 + len_nb_1 - j - d) = tablo(j - 1 + d, i - 1)

        Else

            ' pour test'

            Cells(21 + i, 30 + len_nb_1 - j - d) = tablo(j - 1 + d, i - 1)

            tablo(j + d, i - 1) = Var

            ' pour test'

            Cells(21 + i, 30 + len_nb_1 - j - 1 - d) = Var

            If j = len_nb_1 Then Exit For

        End If

        

    Next j

    d = d + 1

Next i



For z = 0 To len_nb_1 + len_nb_2 + 1

    For x = 0 To len_nb_2 - 1

        mav_01 = mav_01 + tablo(z, x)

    Next x

    mav_01 = mav_01 + reste

    reste = 0

    If Len(CStr(mav_01)) = 2 Then

        resultat = Right(mav_01, 1) & resultat

        reste = Left(mav_01, 1)

    Else

        resultat = mav_01 & resultat

    End If

    mav_01 = 0

Next z

For y = 1 To Len(resultat)

    If Left(resultat, 1) = 0 Then resultat = Mid(resultat, 2) Else Exit For

Next y

' pour test'

MsgBox resultat

' pour test il faut que la cellule soit de format texte'

Range("A1") = CStr(resultat)

End Sub

C'est un peu capilotracté, mais cela fonctionne.
Macro QUE pour les entiers
Il y a certainement plus simple, mais c'est plus cher

A te lire
Eric

PS : fichier texte du code joint, il y a, à la prévisu, des caractères qui disparaissent

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 24/05/2016 10:51

Accueil » Rubrique VERITI » VERITI » Calcul avec des grands nombres sous excel

Haut Sujet précédent Sujet suivant

S'enregistrer pour participer

Vous pouvez consulter les sujets.

Vous ne pouvez pas débuter un nouveau sujet.

Vous ne pouvez pas répondre aux messages.

Vous ne pouvez pas modifier vos messages.

Vous ne pouvez pas supprimer vos messages.

Vous ne pouvez pas créer des sondages.

Vous ne pouvez pas participer aux sondages.

Vous ne pouvez pas joindre des fichiers à vos messages.

Vous ne pouvez pas publier vos messages sans approbation.

Vous ne pouvez pas utiliser ce type de sujet.

Vous ne pouvez pas utiliser le HTML.

Vous ne pouvez pas utiliser une signature dans vos messages.

veriti site des amis d'excel

EXCEL ANNEE 2017

Bienvenue

Musee

Hommage