Extraite chiffre dans cellule alphanumérique

micky27 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
micky27 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
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

4 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
micky27 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Merci pour l'aide mais je n'ai pas réussi à valider avce la formule matricielle , je ne dois pas être doué ...
Micky27
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

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

A+
1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Edit ...
0
micky27 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

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

Micky27
0
Marcos Y Messages postés 112 Date d'inscription   Statut Membre Dernière intervention   6
 
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.
0
micky27 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Maurice
 
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
0
micky27 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
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
0