mehdi

Bonjour 'For i=9 to Len( Mot_a_traduire ) plutot 'For i=1 to Len( Mot_a_traduire ) Même avec 'for i=1 cela donne 0 Merci @+

Bonjour A TOUS, Merci pour votre aide Voilà mon programme mais le résultat est toujours 0. Merci pour votre patience et votre savoir .... NOMAINWIN PROMPT "Entrer nom :"; Lettres NOTICE "numéro : "; Premier(lettre,chiffre) End FUNCTION Premier(lettres, chiffres) TableLettres$ = "abcdefghijklmnopqrstuvwxyz" TableChiffres$ = "12345678912345678912345678" Calcul = 0 rem boucle de 1 jusqu'à la longueur totale du mot à traduire 'For i=9 to Len( Mot_a_traduire ) rem on extrait le caractère à convertir 'Lettre= Mid( mot_a_traduire , i , 1 ) rem on additionne dans calcul, l'occurence dans la table chiffre correspondant à la recherche du caractère à convertir dans la table lettres 'Calcul = Calcul + Mid( TableChiffres , instr( 1 , TableLettres , Lettre ) , 1 ) rem au suivant 'next i rem pour terminer, on prend le reste de la division calcul/9 'Calcul = Calcul Mod 9 end FUNCTION

Bonjour Clafouti Merci pour ta réponse, donc je dois travailler sur visual basic ? Est ce un log en français ? Merci pour tout @+

Bonjour, Je me sert de liberty basic pour faire mon programme, mais je cherche le moyen de faire , sur une seule ligne. a,j,s, sont remplacés par 1 b,k,t, sont remplacés par 2 c,l,u, sont remplacés par 3 d,m,v, sont remplacés par 4 e,n,w, sont remplacés par 5 f,o,x, sont remplacés par 6 g,p,y, sont remplacés par 7 h,q,z sont remplacés par 8 i,r, sont remplacés par 9 Peux-t-on faire une matrice sur exel et comment? Ensuite il y a un calcule à faire 1+2+3+1+5+8+4+=24=2+4=6 Merci pour vos réponses. @+