Compter le nombre de caractère

[Aurore]

Bonjour,

j'ai un combo box que j'ai rempli avec des temps
"1s","2s","3s"...
J'aurais besoin lorsque je choisit un temps d'extraire le chiffre
Comment puis je faire

Merci

 

[Anne]

Bonjour Aurore

Voici quelques lignes de codes qui permettent d'extraire les chiffres d'un bloc de texte :

Dim vi As Integer
Dim vNombre As Integer
For vi = 1 To Len(TextBox1.Value)
If IsNumeric(Mid(TextBox1.Value, vi, 1)) Then
vNombre = vNombre & Mid(TextBox1.Value, vi, 1)
End If
Next


Il y a peut être plus simple, mais normalement cela fonctionne ...

 

[omicron]

Bonsoir Aurore,

Il existe aussi en vb une fonction "replace" permettant dans une chaîne de caractères de substituer toutes les occurences d'une sous-chaine par une autre sous-chaîne :

Exemple : Chaine A="ab2ab34a56"
B=replace(A,"ab","zz") => B="zz2zz34a56"
B=replace(A,"ab","") => B="234a56"

Dans ton cas précis il suffit de faire :
nombre=int(replace(combo.text,"s",""))
pour ne conserver que les chiffres qui précèdent le "s" dans une variable "nombre" au format Integer

Attention !!!
1 instruction suffit, mais cela suppose que l'on est certain lorqu'on extrait nombre que la chaîne de caractères ne contient que des chiffres et des s. Sinon, il faut programmer une boucle comme le propose Anne.

cordialement ...

 

[Aurore]

Merci c fonctions m'ont bien aidees