extraite chiffre dans cellule alphanumérique

Question

Bonjour, 

J'ai besoin d'extraire des chiffre dans une cellule excel contenant du texte. J'ai trouvé sur le net des extraction en vba mais celle ci restitue bien que les chiffres mais ne le restitue pas sous sa forme initiale ( perte de la décimale ) car je pense qu'il prend la , comme un caractère à supprimer.

Ci dessous un exemple des chiffres que je peux avoir

1,67 AAA
1,671 BBA
1,67g CBA
1,67 g ADA
10,670ASA
10,670m ALA
10,57 / AA

Voila l'exemple des chiffres que je pourrai avoir , mon besoin est d'avoir uniquement les chiffres suivants
1,67
1,671
1,67
1,67
10,670
10,670
10,57

Si quelqu'un a une petite astuce , un grand merci d'avance.

Mick27

ccm81 · Answer

Bonjour

Formule matricielle à valider avec Ctrl+Maj+Entrée (elle doit se mettre toute seule entre accolades)
=STXT(A1;EQUIV(VRAI;ESTNUM(CNUM(STXT(A1;LIGNE($1:$255);1)));0);NB(--(STXT(SUBSTITUE(A1;",";"0");LIGNE($1:$255);1))))

voir ici

Cdlmnt

Marcos Y · Answer

Bonjour, micky27 !

Sous Excel, la formule pour convertir une chaîne en nombre est CNUM(). Alors, s'il y a un caractère qui sépare systématiquement la partie chiffres de la partie lettres (par exemple un espace), c'est facile. Si tes nombres et tes lettres sont séparés par un espace, la formule est la suivante, si le nombre à extraire est dans la cellule A1 :

=CNUM(GAUCHE(A1;(TROUVE(" ";A1))))

Attention toutefois : il y a un espace à l'intérieur des guillemets. Tu peux y mettre ton séparateur à la place.

Gyrus · Answer

Bonjour,

Un autre type de solution avec une fonction personnelle :
https://www.cjoint.com/c/FFfkaVOO6yJ

A+

Maurice · Answer

Bonjour
et peux être avec une macro

Sub ExtraireChiffre()
   For L = 1 To Cells(Rows.Count, 1).End(xlUp).Row
      Range("B" & L).Value = Val(Replace(Range("A" & L).Value, ",", "."))
   Next
End Sub

A+
Maurice

Extraite chiffre dans cellule alphanumérique

4 réponses

Discussions similaires

Newsletters