Calculs avec nombre de 23 chiffres
C Frofro
J'ai besoin de faire un calcul sur un nombre de 23 chiffres.
Ceci dépasse les limites de Excel97 (une quinzaine je pense).
Existe t il une solution (modifier une clé de la BdR ?).
Merci de votre aide.
--
A+
:o)
CFrofro
Bruno -- bdf
Tu peux faire des calcul aveccdes chiffres très importants en les déclarants
en string
Sub zaza()
Dim a As String
Dim b As String
a = 12648575965312524871248751
b = 12648575965312521154124545
MsgBox a * b
End Sub
A+
bruno
--
http://perso.club-internet.fr/bdafonse
"C Frofro" <christian...@bigfoot.com> a écrit dans le message de
news: 9oo6mi$2slp$1...@news6.isdnet.net...
Georges@Alain
il faut tout d'abord mettre les expressions numériques entre guillemets;
(Car sinon VBA tranforme le nombre en notation scientifique).
Cependant, le résultat est un nombre en notation scientifique
même en posant MsgBox Str(a * b).
et l'expression est effectivement limitée à 15 caractères en chiffre;
à suivre
à+
Georges
Bruno -- bdf <brun...@free.fr> a écrit dans le message :
etz0Y8TRBHA.1748@tkmsftngp05...
JičL
"Bruno -- bdf" <brun...@free.fr> a écrit
> Bonsoir
> Tu peux faire des calcul aveccdes chiffres très importants en les
déclarants
> en string
J'ai cru que tu avais ecrit : "... en les mettant en string" et la je me
suis demandé de quoi tu parlais exactement et si je n'avais pas changé de
forum à l'insu de mon plein gré ;-)))
Bye
--
JièL [MVP Outlook / Outlook Express]
- De l'aide poliment tu demanderas
- Des objets de message clair tu écriras
- Clairement et concisément tu t'exprimeras
- Aucune pièce jointe tu n'enverras
- Correctement les réponses tu quoteras
- D'écrire en HTML toujours tu t'abstiendras
- Aux autres lecteurs toujours tu penseras
- Tes corrections orthographiques et grammaticales pour toi tu garderas
- De râler tu t'abstiendras et l'humour tu utiliseras
- Point de SPAM tu ne feras
PS pour les autres : je ne répond plus aux malotrus !
Clément Marcotte
éminent contributeur.
--
Clément Marcotte
"Être vraiment patient, c'est être patient quand vous ne pensiez plus qu'il
était possiblement concevable de l'être."
- Léonard de Vinci
"JièL" <NoSpam...@vnumail.com> a écrit dans le message news:
ONVqaTURBHA.2220@tkmsftngp05...
sabatier
jps (MVP HS / HS Express / HS Omnibus)
Monique Brunel
Bienvenue sur mpfe :-))
J'espère que tu seras intéressé par le grand nombre de macros, trucs et
astuces, classeurs à télécharger... que tu découvriras sur les sites
proposés dans ce message d'accueil.
Je commence en te donnant la liste des sites dédiés à Excel, réalisés
par des mpfie(ne)s et que nous devons tous avoir dans nos favoris (la
date d'une mise à jour est signalée par ** ** )
http://dj.joss.free.fr/faq.htm ** 18/09/01 **
la FAQ du forum, mise en oeuvre par Daniel et à lire absolument par tout
nouveau sur mpfe : la bonne manière de participer au forum (charte,
souriettes, abréviations...), liens, bibliographie, les réponses aux
questions le plus souvent posées, des trucs et astuces, un moteur de
recherche interne et externe (Yahoo)
http://disciplus.simplex.free.fr/ ** 17/09/01 **
le site humoro-ludique de Misange : une importante rubrique "Trucs et
astuces", un glossaire, des jeux en VBA... et un méta-moteur de
recherche sur 5 sites de cette liste, mais aussi tout ce qui fait
"l'esprit mpfe" (les perles, les gifs...
et les photos des souper / dîner sur http://fotoflo.free.fr/)
http://longre.free.fr/
le site de Laurent, notre Grand Chef à Quatre Plumes : de très nombreux
liens commentés, les macros pointues de Laurent... (techniques de
programmation, calculs de dates et d'heures, Api...)
http://jacxl.free.fr/mpfe/ ** 26/08/01 **
le site de J@C : les graphiques, la bourse, le Web, un cours VBA... et
le trombinoscope
... et là http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_aide
un moteur de recherche
http://ericrenaud.free.fr/index.html ** 13/08/01 **
le site d'Eric : particulièrement destiné aux débutants
http://perso.wanadoo.fr/frederic.sigonneau ** 26/08/01**
le site de Frédéric : gestions de temps, VBA pour Excel
http://touareg.citeweb.net/ ** 01/08/01 **
le site de Stéphane : cours VBA, Excel 4 (ou 5) et Excel 97/2000...
http://perso.club-internet.fr/bdafonse
le site de Bruno : formules, classeurs à télécharger...
http://www.chez.com/cherbe ** 25/03/01 **
le site de Christian : initiation à Excel, initiation à VBA, Excel
avancé
sans VBA...
http://www.ilyapa.net/excel/
le site de Pascal : procédures VBA, composants par l'exemple,
calendriers,
jeux
http://intendant.free.fr/ ** 28/08/01 **
le site de Thierry : cours VBA (début et perfectionnement), graphique,
Excel en bureautique...
http://www.polykromy.com/ ** 03/09/01 **
le site de Gaëtan : cours sur Excel sans VBA, les couleurs...
http://www.anthony-penel.fr.st
le site d'Anthony : des macros appliquées à la finance
http://www.ibelgique.com/OfficeAssistant ** 08/08/01 **
le site de Bureauticien : nombreux exemples résolus par VBA,
fonctions...
http://cathyastuce.multimania.com
le site de Cathy : cours Excel avec ou sans VBA...
Tu y trouveras des réponses à certaines de tes questions ou des pistes
de recherche pour tes premiers essais.
Pour une collection très fouillée d'adresses (avec commentaires) :
le classeur de Clément M, à télécharger sur disciplus
Favoris.xls
Et un lien à y ajouter, la liste des constantes intrinsèques de VBA avec
leur valeur numérique (par versions d'Excel) :
http://support.microsoft.com/support/kb/articles/Q112/6/71.ASP
télécharger: wc0993.exe
Pour le passage de Excel 4 à Excel 97, un lien proposé par Geo
http://www.microsoft.com/FRANCE/officedev/infotech/info.asp?mar=/FRANCE/
offi
cedev/infotech/MacroXLtoVBA.html
Le lien tient sur plusieurs lignes, il se termine par html
Pour apprendre vite, voilà 5 bons trucs :
- utiliser souvent l'enregistreur de macro et analyser le code obtenu
- utiliser la touche F1 pour appeler l'aide (à propos du mot-clef, en
VBA, sur lequel se trouve le curseur)
- tester et essayer de comprendre des réponses faites à d'autres
- consulter souvent les sites renseignés
- ne jamais hésiter à poser des questions sur le forum
Enfin, pour retrouver d'anciens messages, tu peux aller sur
http://groups.google.com/advanced_group_search
avec les conseils de Clément M pour obtenir les meilleurs résultats :
--- Là, il y a un écran "bilingue" qui permet de faire une recherche
plus ou moins pointue, selon les informations dont l'on dispose.
Une fois que l'on a repéré un message, il est possible de récupérer
l'ensemble de la ficelle, en cliquant sur "Voyez Fil de Discussion (x
articles)".
Je me suis aperçu que Google fonctionnait très mal quand on fait une
recherche avec un nom qui contient des accents. Il semble donc
préférable d'utiliser l'adresse électronique comme nom d'auteur.
Auteur clement....@sympatico.ca => 3.450 messages
Auteur Clément Marcotte => 1 message
Auteur Clément_Marcotte => 0 message ---
Bonne lecture et à bientôt sur mpfe.
--
Amicalement,
Monique
http://users.skynet.be/osga , pour les amateurs d'athlétisme
"C Frofro" <christian...@bigfoot.com> a écrit dans le message
news: 9oo6mi$2slp$1...@news6.isdnet.net...
C Frofro
En clair, ça veut dire que ça ne marche po ??
Mon problème c'est de faire un
droite( ent(nombrede23chiffres/97)*97);2)
Donc si le résultat de nombre/97 est faux, mon droite ne sert à rien.
Merci de vos précisions.
--
A+
:o)
CFrofro
"Georges@Alain" <georges....@wanadoo.fr> a écrit dans le message news:
9ooa8u$ro7$1...@wanadoo.fr...
Geo
Si tu avais dit que tu voulais calculer la clef RIB,
tu aurais eu plus de chance d'avoir une réponse.
En théorie on peut en vba,
en déclarant la variable en décimal (28 chiffres).
reste à vérifier.
Tu aurais pu essayer avec la fonction Mod
A+
"C Frofro" a écrit ...
C Frofro
oui c'est bien un calcul de clé RIB que je veux faire.
J'ai cherché sur Disciplus.
J'ai regardé MOD (pour avoir un reste de division mais ENT me fait ce que je
veux).
J'ai acheté un bouquin de VBA.
Mais maintenant que tu sais tout ça, en quoi je suis plus avancé ?
Si tu avais dit... je n'aurais rien su !
Merci tout de même...
--
A+
:o)
CFrofro
"Geo" <gl...@wanadoo.fr> a écrit dans le message news:
evi9BpfRBHA.1360@tkmsftngp03...
Geo
je vais donc essayer de te donner quelques précisions:
Multiplier un nombre de 23 chiffre par un nombre de 2 chiffres ça fait un
résultat à 25 chiffres pour les nombres entiers.
Mais essayer de faire, comme l'a tenté un autre répondant, une
multiplication de 23 chiffres par 23 chiffres nécessite 46 chiffres pour
avoir le résultat exact.
Donc ça ne passait pas, c'est pour cela qu'il a eu un résultat en "virgule
flottante".
Tu as la chance qu'avec Excel tu aies pu faire ton calcul, avec d'autres
logiciels (même vb6) tu n'aurais pas pu aussi simplement. On trouve donc des
petits bouts de programme tous faits qui contournent cette limite pour
calculer la clef.
C'est pour cela que j'ai dit en posant très précisément ta question tu avais
une meilleure chance d'avoir une bonne réponse.
Loin de moi l'idée d'avoir voulu t'embêter.
Mais je tiendrai compte de ta remarque.
A+
"C Frofro" <christian...@bigfoot.com> a écrit dans le message news:
9oqu0r$5rv$1...@news4.isdnet.net...
Jp Pradier
Une solution est de décomposer ton nombre de 23 chiffres en plus petits que
tu traites un par un en rajoutant les retenues. Un peu comme si tu faisais
ta division à la main :-) . Si tu veux, je t' envoie un exemple .
jp
C Frofro
Voir ma réponse à Geo mais oui, j'veux bien merci en bal perso.
--
A+
:o)
CFrofro
"Jp Pradier" <jp.pr...@wanadoo.fr> a écrit dans le message news:
u71k6L4RBHA.380@tkmsftngp03...
C Frofro
Pas faché mais un peu agacé par cette réponse pas très constructive. Par ce
que sans vouvloir etre désobligeant pour les non français, à l'tranger, peu
de gens savent ce qu'est un RIB (d'ailleurs, ça devient l'IBAN pour
Intertantional BAnK Number). Et ceux qui savent sont rares (même dans les
banques et je suis tres bien placé pour le dire !!) à connaitre le mode
calcul à partir du numéro de compte (qui en plus contient une lettre et qui
fait souvent moins de 11 chiffres ou lettre).
Donc, c'est par soucis de simplicité et d'etre compris par plus de gens que
je n'ai pas dit " Bonjour" qui peut m'aider à calculer une clé RIB qui
repose sur un calcul à partir de 23 chiffres.
Voilà. J'ai dit et suis pu faché mais j'étais pas. :o))
Bon, si on revient à mon machin, ça commence par une division, donc on
réduit dès le premier coup à 22 chiffres (ou 21 souvent).
Jp me propose de découper en petit paquets, mais vais-je garder une
précision suffisante ?????
Je vais essayer mais par ma question, je pensais za tort qu'une simple clé
de la BdR à mettre à 23 aurait réglé mon problème.
A l'attention de Jp Pradier : oui, j'veux bien un ch'tit exemple en bal
perso merci pour lui.
Ouala. Et merci Géo (bon les autres aussi).
--
A+
:o)
CFrofro
"Geo" <gl...@wanadoo.fr> a écrit dans le message news:
Osgiws3RBHA.1556@tkmsftngp03...
Jp Pradier
Quand a la précision, c'est celle d'une vrai division.
jp
C Frofro
Merci de cet envoi.
Je viens de tester.
Et ça marche po.
Je vais essayer de continuer à modifier sur la base de cette segmentation.
La suite au prochain épisode.
Merci tout de même.
--
A+
:o)
CFrofro
"Jp Pradier" <jp.pr...@wanadoo.fr> a écrit dans le message news:
#YUMlN5RBHA.1336@tkmsftngp04...
Jp Pradier
été mauvais à l'école :-) ). Un classeur fonctionnel dans ta bal.
jp
Jacqueline
Si ça peut aider, j'ai récupéré ceci sur le forum, il y a pas mal de temps.
Je n'en ai pas noté l'auteur, mais il se reconnaîtra sans doute :-) merci à
lui. Ca a l'air de fonctionner.
************************
' Fonction Recherche de Rib
Function ClefRib(CodBanque As Single, CodGuichet As Single, _
NumCompte As String) As Integer
Dim Reste As Single, Cpte As String
Reste = (CodBanque * 100000 + CodGuichet) Mod 97
Cpte = Numériser(NumCompte)
Reste = (Reste * 10000000 + Left(Cpte, 7)) Mod 97
ClefRib = ((Reste * 10000 + Right(Cpte, 4)) * 100) Mod 97
ClefRib = 97 - (ClefRib Mod 97)
End Function
'
' Transforme un texte en nombre
'
Function Numériser(textef) As String
Application.Volatile (False)
Dim t%, n%, x$, Texte$
t = Len(textef)
Texte = UCase(textef)
For n = 1 To t
If Left(Right(Texte, t - n + 1), n) > "9" Then
x = Left(Right(Texte, t - n + 1), 1)
If x = "A" Or x = "J" Then x = 1
If x = "B" Or x = "K" Or x = "S" Then x = 2
If x = "C" Or x = "L" Or x = "T" Then x = 3
If x = "D" Or x = "M" Or x = "U" Then x = 4
If x = "E" Or x = "N" Or x = "V" Then x = 5
If x = "F" Or x = "O" Or x = "W" Then x = 6
If x = "G" Or x = "P" Or x = "X" Then x = 7
If x = "H" Or x = "Q" Or x = "Y" Then x = 8
If x = "I" Or x = "R" Or x = "Z" Then x = 9
Texte = Left(Texte, n - 1) & x & Right(Texte, t - n)
End If
Next
Numériser = Texte
End Function
****************************
Amicalement.
Jacqueline
C Frofro <christian...@bigfoot.com> a écrit dans le message :
9oqu0r$5rv$1...@news4.isdnet.net...
C Frofro
Je viens de recevoir un fichier de Jp Pradier qui à l'air de ressembler à
keke chose de pareil mais pas en VBA.
Merci à tous les deux. Et aux autres aussi. (même Geo que je suis pas faché
avec ;o) ).
Je teste et j'en recause.
--
A+
:o)
CFrofro
"Jacqueline" <infot...@free.fr> a écrit dans le message news:
eNHQ3tASBHA.388@tkmsftngp03...
C Frofro
Suite et fin de mes demandes.
Le système de séquençage de Jp Pradier pour diviser un nombre de plus de 15
chiffres m'a permis de résoudre ma division d'un nombre de 23 chiffres (puis
la multiplication du résultat) pour calculer une clé RIB (clé de validation
des comptes bancaires français -NDT).
Testée "brut de fonderie", un code VBA fourni par Jacqueline n'a pas
fonctionné et comme je ne suis pas spécialisé VBA, j'ai laissé tomber au
profit d'une mise en forme de ce que Jp m'a envoyé.
Mais je vais aussi essayer de m'accrocher à ce code en VBA (et à mon bouquin
!).
J'y retourne.
Et merci à tous.
--
A+
:o)
CFrofro
Robert Gédon
CléRIB = 97 - ((89 * (NumB Mod 97) + 15 * (NumG Mod 97) + 3 * (NumC Mod
97)) Mod 97)
End Function
Frédéric Sigonneau
Peut-être auras-tu plus de chance avec ce code trouvé sur un site VB, et signé
Jacques Prestreau...
Il propose 1 fonction pour calculer une clé et une autre pour contrôler la
validité d'une clé.
FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
'==========dans un module standard
'Module de calcul et de contrôle de clé RIB
'
'La fonction Clé_Rib fournit la clé
'La fonction Controle_Clé_Rib contrôle une clé fournie
'La fonction Calcul_pour_Clé_RIB est à usage interne des deux autres fonctions
'__________________________________________
'
'Jeux d'essai :
' 12345 67890 12345678901 clé => 04
' 54321 54321 10987654321 clé => 47
' 99999 55555 16589A45566 clé => 63
' 20001 75200 12345678901 clé => 05
Option Explicit
Function Calcul_pour_Clé_RIB(ByVal Code_banque As String, _
ByVal Code_guichet As String, ByVal N°_Compte As String)
'
'© Jacques PRESTREAU, 1999
'
'Renvoie False en cas d'erreur
'Renvoie un entier en cas de succès
'
Dim Compteur1, Reste, N°_Compte_Converti, Valeur_Ascii_Caractère
If Not IsNumeric(Code_banque) Then
MsgBox "Code banque non numérique"
Calcul_pour_Clé_RIB = False
Exit Function
End If
If Not IsNumeric(Code_guichet) Then
MsgBox "Code guichet non numérique"
Calcul_pour_Clé_RIB = False
Exit Function
End If
'Substitution des Lettres par les chiffres correspondants
N°_Compte_Converti = ""
For Compteur1 = 1 To Len(N°_Compte)
Valeur_Ascii_Caractère = Asc(Mid$(N°_Compte, Compteur1, 1))
Select Case Valeur_Ascii_Caractère
Case Is > 82
N°_Compte_Converti = N°_Compte_Converti + _
Chr$(48 + ((Valeur_Ascii_Caractère - 81) Mod 10))
Case Is > 73
N°_Compte_Converti = N°_Compte_Converti + _
Chr$(48 + ((Valeur_Ascii_Caractère - 73) Mod 10))
Case Is > 57
N°_Compte_Converti = N°_Compte_Converti + _
Chr$(48 + ((Valeur_Ascii_Caractère - 64) Mod 10))
Case Else
N°_Compte_Converti = N°_Compte_Converti + _
Chr$(Valeur_Ascii_Caractère)
End Select
Next Compteur1
Calcul_pour_Clé_RIB = Val(Code_banque) Mod 97
Calcul_pour_Clé_RIB = ((Calcul_pour_Clé_RIB * 100000) + _
Val(Code_guichet)) Mod 97
Calcul_pour_Clé_RIB = ((Calcul_pour_Clé_RIB * 1000000) + _
Val(Left$(Format$(N°_Compte_Converti, "00000000000"), 6))) Mod 97
Calcul_pour_Clé_RIB = ((Calcul_pour_Clé_RIB * 100000) + _
Val(Right$(Format$(N°_Compte_Converti, "00000000000"), 5))) Mod 97
End Function
Function Controle_Clé_Rib(ByVal Code_banque As String, ByVal Code_guichet As
String, _
ByVal N°_Compte As String, ByVal Clé_Rib As String) As Boolean
'
'© Jacques PRESTREAU, 1999
'
'Renvoie False en cas d'erreur
'Renvoie True en cas de succès
'
Dim Pré_Calcul
Pré_Calcul = Calcul_pour_Clé_RIB(Code_banque, Code_guichet, N°_Compte)
If (Not Pré_Calcul = False) And (((Pré_Calcul * 100) + Val(Clé_Rib)) Mod 97) <>
0 Then
MsgBox "Clé RIB erronée"
Controle_Clé_Rib = False
Else
Controle_Clé_Rib = True
End If
End Function
Function Clé_Rib(ByVal Code_banque As String, ByVal Code_guichet As String,
ByVal N°_Compte As String)
'
'© Jacques PRESTREAU, 1999
'
'Renvoie False en cas d'erreur
'Renvoie la clé en String en cas de succès
'
Dim Pré_Calcul
Pré_Calcul = Calcul_pour_Clé_RIB(Code_banque, Code_guichet, N°_Compte)
If (Not Pré_Calcul = False) Then
Clé_Rib = Format$(((97 - Pré_Calcul) * 100) Mod 97, "00")
End If
End Function
'=================================
C Frofro a écrit :
Benoît Marchand
Merci Jacqueline, t'es vraiment trop chou.
Explications :
A1 = le code banque
A2 = le code guichet
A3 = le numéro de compte
Attention A3 doit être formaté en texte pour que cela fonctionne car certains comptes sont numériques et
commencent par des zéros
A4 =ClefRib(A1;A2;A3)
A+
Benead
Jacqueline a écrit :
Benoît Marchand
Merci Jacqueline, t'es vraiment trop chou.
Explications :
A1 = le code banque
A2 = le code guichet
A3 = le numéro de compte
Attention A3 doit être formaté en texte pour que cela fonctionne car certains comptes sont numériques et
commencent par des zéros
A4 =ClefRib(A1;A2;A3)
A+
Benead
Jacqueline a écrit :
> Bonjour,
> If x = "G" Or x = "P" Or x = "X" Then x =X-Mozilla-Status: 0009x = "Q" Or x = "Y" Then x = 8
C Frofro
N'en jetez plus !!
Ca démarrait tout calme et puis, je croule sous les aides et conseils et
fonctions et tout.
Merci à tous. Ah ! si j'avais su, j'aurai parlé plus tot de calcul de clé
RIB. Merci Geo d'avoir su lire entre les lignes de mon mail.
J'ai finalement combiné le système de séquençage pour la division et une
partie de la fonction VB pour transformer les lettre d'un numéro de compte.
J'aurai donc appris deux choses, ce qui était aussi le but.
Encore merci à tous.
--
A+
:o)
CFrofro
"Frédéric Sigonneau" <frederic....@wanadoo.fr> a écrit dans le message
news: 3BB4FA71...@wanadoo.fr...
Geo
"C Frofro" a écrit ...
>
> J'aurai donc appris deux choses, ce qui était aussi le but.
>
Eh oui, sur ce forum il y a des spécialistes en tout :
en stats, en culture des robiniers,
en tabagisme, en geôlières, en modestie,
en cours internationaux de la cacahuète,
en dates, en calendrier révolutionnaire,
en vendanges et en vidanges de tonneaux de beaujolais,
en dialecte indien, en traquage des pièces jointes,
en organisation de dîners, en bon mots,
en questions saugrenues, en H.S.,
en euros, en siestes, en coutumes auvergnates,
en anniversaires, en 35 heures,
en radars, en traîtrise, en sport,
en pêche sur les côtes bretonnes,
en barres d'outils, en cambouis.ini,
en vernis à onglet, en virus informatiques ou non,
en polémiques sur les butineurs,
en flottaison des nénuphars ...
J'espère ne rien avoir oublié,
ah si ! mais où ai-je la tête ?
en Excel aussi
donc tu peux poser toutes les questions que tu veux, sauf si tu as une
question difficile en word, je connais un autre forum pour ça.
Brunel Monique
mais tu as oublié "en correction des fautes d'orthographes"
--
Amicalement,
Monique
http://users.skynet.be/osga , pour les amateurs d'athlétisme
"Geo" <gl...@wanadoo.fr> a écrit dans le message news:
#B7SJoRSBHA.1748@tkmsftngp05...
Geo
tu as raison Monique,
j'ai oublié de consulter ma fiche "maman Sabatier"
A+
"Brunel Monique" a écrit ...