d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
Bonjour.
d'habitude on fait le contraire.
tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" <Eddan@discussions.microsoft.com> a écrit dans le message de news:
B7F35311-AEE1-48E1-BDEF-8575CBB64B0C@microsoft.com...
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la
MJ
de T_1 la coversion se fasse en chiffres dans le T_2.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
Ayrton [ASC]
Bonjour *Eddan* Dans ton message de news:, Tu as pensé très fort :-(*)
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Peut être ici si j'ai bien compris la question.... http://users.skynet.be/accesshome/accesshome_string_nombreenlettres.htm
Grand merci
Avec Plaisir ;-)
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Recherche dans les Archives : http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *Eddan*
Dans ton message de news:B7F35311-AEE1-48E1-BDEF-8575CBB64B0C@microsoft.com,
Tu as pensé très fort :-(*)
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de
la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Peut être ici si j'ai bien compris la question....
http://users.skynet.be/accesshome/accesshome_string_nombreenlettres.htm
Grand merci
Avec Plaisir ;-)
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *Eddan* Dans ton message de news:, Tu as pensé très fort :-(*)
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Peut être ici si j'ai bien compris la question.... http://users.skynet.be/accesshome/accesshome_string_nombreenlettres.htm
Grand merci
Avec Plaisir ;-)
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Recherche dans les Archives : http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Eddan
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire.
tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" <Eddan@discussions.microsoft.com> a écrit dans le message de news:
B7F35311-AEE1-48E1-BDEF-8575CBB64B0C@microsoft.com...
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la
MJ
de T_1 la coversion se fasse en chiffres dans le T_2.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
Hervé DUCARNE
Bonjour,
Euh, et Delamontagne Jean-Michel ça donne quoi en chiffres ????
@+
"Eddan" a écrit dans le message de news:
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la
MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
Bonjour,
Euh, et Delamontagne Jean-Michel ça donne quoi en chiffres ????
@+
"Eddan" <Eddan@discussions.microsoft.com> a écrit dans le message de
news:3F5D1EB0-9271-431C-8B9A-1FDADBCA1C86@microsoft.com...
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire.
tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" <Eddan@discussions.microsoft.com> a écrit dans le message de
news:
Euh, et Delamontagne Jean-Michel ça donne quoi en chiffres ????
@+
"Eddan" a écrit dans le message de news:
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la
MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
Eric
Bonjour, Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz() Dim chaine As String, nb As Integer Dim i As Byte, total As Integer 'on admet pour le fun que la longueur de la chaine ' n'excède pas 255 caractères ! chaine = "Delamontagne Jean-Michel" For i = 1 To Len(chaine) total = total + Asc(Mid(chaine, i, 1)) Next i MsgBox chaine & " en numérique c'est : " _ & Format(total, " # ##0,00") End Function
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz()
Dim chaine As String, nb As Integer
Dim i As Byte, total As Integer
'on admet pour le fun que la longueur de la chaine
' n'excède pas 255 caractères !
chaine = "Delamontagne Jean-Michel"
For i = 1 To Len(chaine)
total = total + Asc(Mid(chaine, i, 1))
Next i
MsgBox chaine & " en numérique c'est : " _
& Format(total, " # ##0,00")
End Function
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire.
tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" <Eddan@discussions.microsoft.com> a écrit dans le message de news:
B7F35311-AEE1-48E1-BDEF-8575CBB64B0C@microsoft.com...
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la
MJ
de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour, Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz() Dim chaine As String, nb As Integer Dim i As Byte, total As Integer 'on admet pour le fun que la longueur de la chaine ' n'excède pas 255 caractères ! chaine = "Delamontagne Jean-Michel" For i = 1 To Len(chaine) total = total + Asc(Mid(chaine, i, 1)) Next i MsgBox chaine & " en numérique c'est : " _ & Format(total, " # ##0,00") End Function
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
3stone
Salut,
| Eric" | Avec la même interrogation qu'Hervé mais sait-on jamais ! | | Avec ceci peut-être : | | Function zz() | Dim chaine As String, nb As Integer | Dim i As Byte, total As Integer | 'on admet pour le fun que la longueur de la chaine | ' n'excède pas 255 caractères ! | chaine = "Delamontagne Jean-Michel" | For i = 1 To Len(chaine) | total = total + Asc(Mid(chaine, i, 1)) | Next i | MsgBox chaine & " en numérique c'est : " _ | & Format(total, " # ##0,00") | End Function
| Eric"
| Avec la même interrogation qu'Hervé mais sait-on jamais !
|
| Avec ceci peut-être :
|
| Function zz()
| Dim chaine As String, nb As Integer
| Dim i As Byte, total As Integer
| 'on admet pour le fun que la longueur de la chaine
| ' n'excède pas 255 caractères !
| chaine = "Delamontagne Jean-Michel"
| For i = 1 To Len(chaine)
| total = total + Asc(Mid(chaine, i, 1))
| Next i
| MsgBox chaine & " en numérique c'est : " _
| & Format(total, " # ##0,00")
| End Function
| Eric" | Avec la même interrogation qu'Hervé mais sait-on jamais ! | | Avec ceci peut-être : | | Function zz() | Dim chaine As String, nb As Integer | Dim i As Byte, total As Integer | 'on admet pour le fun que la longueur de la chaine | ' n'excède pas 255 caractères ! | chaine = "Delamontagne Jean-Michel" | For i = 1 To Len(chaine) | total = total + Asc(Mid(chaine, i, 1)) | Next i | MsgBox chaine & " en numérique c'est : " _ | & Format(total, " # ##0,00") | End Function
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour, Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz() Dim chaine As String, nb As Integer Dim i As Byte, total As Integer 'on admet pour le fun que la longueur de la chaine ' n'excède pas 255 caractères ! chaine = "Delamontagne Jean-Michel" For i = 1 To Len(chaine) total = total + Asc(Mid(chaine, i, 1)) Next i MsgBox chaine & " en numérique c'est : " _ & Format(total, " # ##0,00") End Function
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Merci pour la réponse.
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le
code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour,
Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz()
Dim chaine As String, nb As Integer
Dim i As Byte, total As Integer
'on admet pour le fun que la longueur de la chaine
' n'excède pas 255 caractères !
chaine = "Delamontagne Jean-Michel"
For i = 1 To Len(chaine)
total = total + Asc(Mid(chaine, i, 1))
Next i
MsgBox chaine & " en numérique c'est : " _
& Format(total, " # ##0,00")
End Function
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire.
tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" <Eddan@discussions.microsoft.com> a écrit dans le message de news:
B7F35311-AEE1-48E1-BDEF-8575CBB64B0C@microsoft.com...
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la
MJ
de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour, Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz() Dim chaine As String, nb As Integer Dim i As Byte, total As Integer 'on admet pour le fun que la longueur de la chaine ' n'excède pas 255 caractères ! chaine = "Delamontagne Jean-Michel" For i = 1 To Len(chaine) total = total + Asc(Mid(chaine, i, 1)) Next i MsgBox chaine & " en numérique c'est : " _ & Format(total, " # ##0,00") End Function
Exemple : Delamontagne Jean-Michel
@ +
Bonjour.
d'habitude on fait le contraire. tu as un texte par exemple qutre-vingt-dix-huit à convertir en 98 ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Eddan" a écrit dans le message de news:
Bonjour,
Comment faire pour convertir le texte d'un champ en chiffres.
J'ai deux champs, T_1 (txt) et T_2 (txt), je souhaiterais que lors de la MJ de T_1 la coversion se fasse en chiffres dans le T_2.
Grand merci
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eddan
Salut et merci de ta réponse.
Peux-tu voir stp la question que j'ai posé é Eric.
Salut
Salut,
| Eric" | Avec la même interrogation qu'Hervé mais sait-on jamais ! | | Avec ceci peut-être : | | Function zz() | Dim chaine As String, nb As Integer | Dim i As Byte, total As Integer | 'on admet pour le fun que la longueur de la chaine | ' n'excède pas 255 caractères ! | chaine = "Delamontagne Jean-Michel" | For i = 1 To Len(chaine) | total = total + Asc(Mid(chaine, i, 1)) | Next i | MsgBox chaine & " en numérique c'est : " _ | & Format(total, " # ##0,00") | End Function
Peux-tu voir stp la question que j'ai posé é Eric.
Salut
Salut,
| Eric"
| Avec la même interrogation qu'Hervé mais sait-on jamais !
|
| Avec ceci peut-être :
|
| Function zz()
| Dim chaine As String, nb As Integer
| Dim i As Byte, total As Integer
| 'on admet pour le fun que la longueur de la chaine
| ' n'excède pas 255 caractères !
| chaine = "Delamontagne Jean-Michel"
| For i = 1 To Len(chaine)
| total = total + Asc(Mid(chaine, i, 1))
| Next i
| MsgBox chaine & " en numérique c'est : " _
| & Format(total, " # ##0,00")
| End Function
Peux-tu voir stp la question que j'ai posé é Eric.
Salut
Salut,
| Eric" | Avec la même interrogation qu'Hervé mais sait-on jamais ! | | Avec ceci peut-être : | | Function zz() | Dim chaine As String, nb As Integer | Dim i As Byte, total As Integer | 'on admet pour le fun que la longueur de la chaine | ' n'excède pas 255 caractères ! | chaine = "Delamontagne Jean-Michel" | For i = 1 To Len(chaine) | total = total + Asc(Mid(chaine, i, 1)) | Next i | MsgBox chaine & " en numérique c'est : " _ | & Format(total, " # ##0,00") | End Function
La fonction ASC() te retourne le code Ascii d'un caractère C'est ce que fait Asc(Mid(chaine,i,1)) dans la boucle For i = 1 to len(chaine) ... Next i
Si on décompose : Mid(chaine,i,1) extrait le caractère à la position i dans la chaine Asc(Mid(chaine, i,1)) retourne le code ASCII du caractère à la ième position dans la chaine
OK ?
Bonjour,
Merci pour la réponse.
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour, Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz() Dim chaine As String, nb As Integer Dim i As Byte, total As Integer 'on admet pour le fun que la longueur de la chaine ' n'excède pas 255 caractères ! chaine = "Delamontagne Jean-Michel" For i = 1 To Len(chaine) total = total + Asc(Mid(chaine, i, 1)) Next i MsgBox chaine & " en numérique c'est : " _ & Format(total, " # ##0,00") End Function
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir,
La fonction ASC() te retourne le code Ascii d'un caractère
C'est ce que fait
Asc(Mid(chaine,i,1))
dans la boucle
For i = 1 to len(chaine) ... Next i
Si on décompose :
Mid(chaine,i,1) extrait le caractère à la position i
dans la chaine
Asc(Mid(chaine, i,1)) retourne le code ASCII du caractère
à la ième position dans la chaine
OK ?
Bonjour,
Merci pour la réponse.
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le
code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour,
Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz()
Dim chaine As String, nb As Integer
Dim i As Byte, total As Integer
'on admet pour le fun que la longueur de la chaine
' n'excède pas 255 caractères !
chaine = "Delamontagne Jean-Michel"
For i = 1 To Len(chaine)
total = total + Asc(Mid(chaine, i, 1))
Next i
MsgBox chaine & " en numérique c'est : " _
& Format(total, " # ##0,00")
End Function
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
La fonction ASC() te retourne le code Ascii d'un caractère C'est ce que fait Asc(Mid(chaine,i,1)) dans la boucle For i = 1 to len(chaine) ... Next i
Si on décompose : Mid(chaine,i,1) extrait le caractère à la position i dans la chaine Asc(Mid(chaine, i,1)) retourne le code ASCII du caractère à la ième position dans la chaine
OK ?
Bonjour,
Merci pour la réponse.
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour, Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz() Dim chaine As String, nb As Integer Dim i As Byte, total As Integer 'on admet pour le fun que la longueur de la chaine ' n'excède pas 255 caractères ! chaine = "Delamontagne Jean-Michel" For i = 1 To Len(chaine) total = total + Asc(Mid(chaine, i, 1)) Next i MsgBox chaine & " en numérique c'est : " _ & Format(total, " # ##0,00") End Function
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
3stone
"Eddan" | Ce que je cherche, c'est à obtenir le | code caractère de chaque une des letres qui composent mon texte.