annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement



Calcul avec des grands nombres sous excel
#1
Invité


Informations sur l'utilisateur
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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Calcul avec des grands nombres sous excel
#2
Invité


Informations sur l'utilisateur
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 IntegerAs Integer
Dim a 
As IntegerAs IntegerAs IntegerAs IntegerAs Integer
Dim x 
As IntegerAs IntegerAs Integer
Dim resultat 
As String
Dim mav_01 
As Integerreste 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 1len_nb_1 len_nb_2 1)

For 
1 To len_nb_2
    
Var = 0
    a 
0
    e 
len_nb_1 1
    
For 1 To len_nb_1 1
        
        
If len_nb_1 1 Then
            c 
1
            b 
len_nb_1 a
            a 
1
            tablo
(d1) = Right(Right((Mid(multiplicandeb1) * Mid(multiplicateure1)), 1) + Var, 1)
            If 
Len((Mid(multiplicandeb1) * Mid(multiplicateure1)) + Var) > 1 Then
                
Var = Left(((Mid(multiplicandeb1) * Mid(multiplicateure1)) + Var), 1)
            Else
                Var = 
0
            End 
If
        
End If
        
        If 
len_nb_1 And Var > 0 Then
            
' pour test'
            
Cells(21 i30 len_nb_1 d) = tablo(d1)
        Else
            
' pour test'
            
Cells(21 i30 len_nb_1 d) = tablo(d1)
            
tablo(d1) = Var
            
' pour test'
            
Cells(21 i30 len_nb_1 d) = Var
            If 
len_nb_1 Then Exit For
        
End If
        
    
Next j
    d 
1
Next i

For 0 To len_nb_1 len_nb_2 1
    
For 0 To len_nb_2 1
        mav_01 
mav_01 tablo(zx)
    
Next x
    mav_01 
mav_01 reste
    reste 
0
    
If Len(CStr(mav_01)) = 2 Then
        resultat 
Right(mav_011) & resultat
        reste 
Left(mav_011)
    Else
        
resultat mav_01 resultat
    End 
If
    
mav_01 0
Next z
For 1 To Len(resultat)
    If 
Left(resultat1) = 0 Then resultat Mid(resultat2) 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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut







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.

[Recherche avancée]


Copyright 2013 Powered by XOOPS © 2001-2013