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
Merci d'avance.
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
Partager