[Résolu] Chaîne de caractères

[famu]

Bonjour à tous,
Je n'arrive pas à récupérer, via une variable, le chiffre dans une chaîne de caractère :
Exemple : rrrr 11 (je souhaite récupérer le chiffre 11)

For i = 1 To Len([a7])
x = Val(Mid([a7], i, 2))
If x <> 0 Then
y = x
Exit For
End If
Next

Cela fonctionne si il n'y a pas d'espace (rrrr11)
Le chiffre peut être 1 unité (rrrr 3) ou dizaine (rrrr 15).

Merci pour votre aide,
Famu

 

[Gelinotte]

Re : Chaîne de caractères

Bonjour,

Ceci pourrait t'être utilie ...
Manipuler les chanes de caractres en VB6 et VBA Excel


Geli

 

[gilbert_RGI]

Re : Chaîne de caractères

Bonjour

sans macro

=DROITE(A7;(NBCAR(A7)-TROUVE(" ";A7;1)))

 

[Dranreb]

Re : Chaîne de caractères

Bonjour.

Essayez comme ça :

Dim Z As String, L As Long, X As Double
Z = [A7].Value
For L = 2 To 1 Step -1
   Z = Right$(Z, L): If IsNumeric(Z) Then Exit Do
   Next L
X = Z ' Remarque: plante s'il n'y a aucun chiffre à la fin.

Par formule:

=DROITE(A7;2-ESTERREUR(DROITE(A7;2)+0))+0

ou bien:

=DROITE(A7;ESTNUM(DROITE(A7;2)+0)+1)+0

 

[famu]

[Résolu] Chaîne de caractères

Merci à vous.
Voici la solution (trouvée sur internet)

For i = 1 To Len([a7])
x = Mid([a7], i, 1)
If IsNumeric(x) Then
y = Val(Mid([a7], i))
Exit For
End If
Next

Très bonne journée à tous.

 

[Paf]

Re : [Résolu] Chaîne de caractères

Bonjour à tous

Dans votre exemple rrrr 11 votre code ne vous donnera pas 11 comme prévu, mais 1 !

Il faudrait modifier

If IsNumeric(x) Then
  y = Val(Mid([a7], i))
  Exit For
End If

en

If IsNumeric(x) Then
  y = y & Val(Mid([a7], i))
End If

et sans doute à transformer y en numérique s'il est utilisé pour des calculs.

A+