Discussion :

[boboss76]

Bonjour
J'ai la chaine de caractères suivante


Je voudrais extraire la valeur numérique 22
Pour cela j'utilise left(right(chaine,4),2)
Qui marche
Par contre quand la valeur est inférieure à 10 ma technique ne marche plus
comme sur l'exemple suivant


Je ne sais pas comment faire.
Merci de votre aide.

[ProgElecT]

Une solution comme une autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Chaine1,Chaine2
Chaine1 = "9Gb(22%)"
Chaine2 = "1Gb(5%)"
 
Dim Deb, Fin
 
Deb = Instr(Chaine1,"(")+1
Fin = Instr(Chaine1,"%")
msgbox Mid(Chaine1,Deb,Fin-Deb)
 
Deb = Instr(Chaine2,"(")+1
Fin = Instr(Chaine2,"%")
msgbox Mid(Chaine2,Deb,Fin-Deb)

[boboss76]

Merci pour ton aide ProgElecT

Ton script m'a permis de résoudre mon problème.

Cordialement