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
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...
à suivre
à+
Georges
Bruno -- bdf <brun...@free.fr> a écrit dans le message :
etz0Y8TRBHA.1748@tkmsftngp05...
"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
"Ê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...
jps (MVP HS / HS Express / HS Omnibus)
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...
"Georges@Alain" <georges....@wanadoo.fr> a écrit dans le message news:
9ooa8u$ro7$1...@wanadoo.fr...
"Geo" <gl...@wanadoo.fr> a écrit dans le message news:
evi9BpfRBHA.1360@tkmsftngp03...
"C Frofro" <christian...@bigfoot.com> a écrit dans le message news:
9oqu0r$5rv$1...@news4.isdnet.net...
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
"Jp Pradier" <jp.pr...@wanadoo.fr> a écrit dans le message news:
u71k6L4RBHA.380@tkmsftngp03...
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
"Jp Pradier" <jp.pr...@wanadoo.fr> a écrit dans le message news:
#YUMlN5RBHA.1336@tkmsftngp04...
jp
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...
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...
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 :
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 :
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
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...
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.
--
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...
A+
"Brunel Monique" a écrit ...