Capturer des caractères dans une chaine string

Salut,

Je ne me souvient pas de la syntaxe exacte pour capturer les chiffres à partir de la droite jusqu'au caractère E dans la donnée d'un champ.

OU : ne prendre que les chiffres d'un numéro de tva Belge quelque soit sa forme;
123456789; 123.456.789; BE123456789; BE123.456.789; BE0......; etc...

Il faut donc parcourir le numéro et quand il y a un . je passe au chiffre suivant.

Merci pour votre aide.
A+

Bonjour,

un truc dans ce genre ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function ExtrChiffresDroite(v As Variant, Optional sArret As String = "") As String Dim s As String, r As String, c As String, i As Integer If IsNull(v) Or IsEmpty(v) Then v = "" s = CStr(v) For i = Len(s) To 1 Step -1 c = Mid(s, i, 1) If (c >= "0") And (c <= "9") Then r = c & r ElseIf c = sArret Then Exit For End If Next ExtrChiffresDroite = r End Function

---

A+

Salut,

Merci LedZepII, c'est exactement ça.

Encore merci
A+