test caractere alphanumérique

Bonjour à tous,
j'aimerai savoir comment tester si une chaine
de caractere contient un caractere alphanumérique.
J'ai pensé à faire comme en C avec les code ascii,
si vous avez une idée je vous remercie

ben pour le code ascii tu as la fonction asc
et mid pour extraire un caractére d'une chaine

Code:

---

1 2 3 4 5 6

Sub test() Dim st As String st = "unAici" If Asc(Mid(st, 3, 1)) = 65 Then MsgBox "il y as " & st End Sub

---

ok donc pour tester si il y a un ascii dans une chaine de caractere il faut faire une boucle

Citation:

---

Envoyé par Didier77

ok donc pour tester si il y a un ascii dans une chaine de caractere il faut faire une boucle

---

??? c'est quoi pour toi un ascii

désolé je me suis mal exprimer, je voudrai tester si une chaine de caractere
contient un chiffre et placer ce chiffre dans un autre champ(access).

On peut se faire une boucle du genre

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Resultat Asd string Dim iPnt as Long Dim Char as string For iPnt = 1 to Len(MonString) Char = Mid(MonString,iPnt,1) If IsNumeric(Char) Then Resultat = Resultat & Char end if Next

---

ouaic bien comme ça mé jcomprend pas pourkoi
tu met resultat en string.
En fait je veu juste savoir s'il ya un chifre dans la chaine
par contre il fo aprés que j'envoie cette chaine dans un champ et sa
je sais pas comment on fait..

en fait jpense que je vais utliser une requete sql
UPDATE SET

Est ce qu'on a le droit décrire :

Code:

---

1 2	If ((Asc(Prefix) >= 48) && (Asc(Prefix) <= 57)) Then Hsn = Prefix

---

a condition de remplacer le && par un And
ca devrait marcher :)

Citation:

---

Envoyé par Didier77

mé jcomprend pas pourkoi
tu met resultat en string.
En fait je veu juste savoir s'il ya un chifre dans la chaine
par contre il fo aprés que j'envoie cette chaine dans un champ et sa
je sais pas comment on fait..

---

tu voulais envoyaer quelle chaine ?? la chaine toutes entiere ou le chiffre compris dans cette chaine (ce que Delbeke a fait).

En tout cas pour mettre une chaine dans un champs il faut faire (en VB)

Code:

---

text1.text=chaine

---

pour excel remplace text1.text par le nom du champs (je croit bien).

sa marche pas
sa me met une erreur: invalid procedure call or argument

MA FONCTION:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Public Function StreetName(ByVal Name As String) As String   Dim Prefix As String Dim Espace As Long Dim Temp As String Dim Result As String Dim Hsn As String         Espace = InStr(Name, " ")   Prefix = Mid(Name, 1, Espace) Temp = Mid(Name, Espace + 1)     If ((Asc(Prefix) >= 48) And (Asc(Prefix) <= 57)) Then     Result = Rename(Temp) StreetName = Result   Else: Result = Rename(Name) StreetName = Result End If     End Function

---

sur quelle ligne ?
le code parait bon

En fait il surligne la lignes du If
Je cherche depuis un quart d'heure sa commence a me gaver serieux

Si , je vois un probleme si il n'y a pas d'espace
la fonction mid alors cherche une sous-chaine de longeur zéro !

J'ai corriger le probleme du mid

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Public Function StreetName(ByVal Name As String) As String   Dim Prefix As String Dim Espace As Long Dim Temp As String Dim Result As String Dim Hsn As String         Espace = InStr(Name, " ")   If Espace = 0 Then StreetName = Name Exit Function End If   Prefix = Mid(Name, 1, Espace) Temp = Mid(Name, Espace + 1)     If ((Asc(Prefix) >= 48) And (Asc(Prefix) <= 57)) Then     Result = Rename(Temp) StreetName = Result   Else: Result = Rename(Name) StreetName = Result End If     End Function

---

donc si c'est terminé utilise le bouton :resolu: ;) tout en bas :P