Extraite chiffre dans cellule alphanumérique [Fermé]

Signaler
Messages postés
7
Date d'inscription
samedi 4 juin 2016
Statut
Membre
Dernière intervention
16 février 2017
-
Messages postés
7
Date d'inscription
samedi 4 juin 2016
Statut
Membre
Dernière intervention
16 février 2017
-
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
A voir également:

4 réponses

Messages postés
9673
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 février 2021
2 039
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
7
Date d'inscription
samedi 4 juin 2016
Statut
Membre
Dernière intervention
16 février 2017

Bonjour,

Merci pour l'aide mais je n'ai pas réussi à valider avce la formule matricielle , je ne dois pas être doué ...
Micky27
Messages postés
77
Date d'inscription
jeudi 23 janvier 2014
Statut
Membre
Dernière intervention
5 décembre 2020
4
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.
Messages postés
7
Date d'inscription
samedi 4 juin 2016
Statut
Membre
Dernière intervention
16 février 2017

Bonjour,

Merci pour ce retour. La formule marche bien lorsqu'il y a un espace mais ne fonctionne pas si une lettre est collée au chiffre sans espace, y a t'il une autre astuce pour ce point.

Merci par avance.

Micky27
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
514
Bonjour,

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

A+
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
514
Edit ...
Messages postés
7
Date d'inscription
samedi 4 juin 2016
Statut
Membre
Dernière intervention
16 février 2017

Bonjour,

Merci pour l'aide cela fonctionne très bien.

Micky27
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
Messages postés
7
Date d'inscription
samedi 4 juin 2016
Statut
Membre
Dernière intervention
16 février 2017

Bonjour,

Merci pour l'aide. La fonction de Gyrus fonctionne très bien et cela m'évite de lancer une macro.
Merci pour l'aide.
Micky27