Bonjour,

J'ai utilisé le code de DEMCO pour tenter de récupérer les caractères numériques d'une chaîne de caractères qui comporte des chiffres suivies d'une lettre.
le code fonctionne sauf dans le cas ou la lettre est F et dans le cas ou il n'y a pas de lettres ( while tourne en permanence ). Que faut-il modifier pour que dans ces cas , les chiffres soient tout de même affichés .

Voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function VERIFLETTRE()
 
 
Dim Ncpte As Long
Ncpte = 1
While (IsNumeric(Left$(Forms!MonForm!COMPTE, Ncpte)))
 'on incremente, ainsi on verra au prochain tour si la lettre suivant est egalement un chiffre
 
 Ncpte = Ncpte + 1
Wend
Ncpte = Ncpte - 1
MsgBox "Voici la partie numerique : " & Left(Forms!MonForm!COMPTE, Ncpte)
 
End Function
Merci d'avance.