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

G

Gelinotte

XLDnaute Accro

• 26 Février 2014

• #2

Re : Chaîne de caractères

Bonjour,

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


Geli

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2014

• #3

Re : Chaîne de caractères

Bonjour

sans macro

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Février 2014

• #4

Re : Chaîne de caractères

Bonjour.

Essayez comme ça :

VB:

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:

Code:

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

ou bien:

Code:

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

 

Dernière édition: 26 Février 2014

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 26 Février 2014

• #5

[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.

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 26 Février 2014

• #6

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

Code:

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

en

Code:

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+

 

Vote positif 0 Vote négatif