Extraire chiffres d'ne cellule excel [Fermé]

Signaler
Messages postés
16
Date d'inscription
vendredi 5 février 2016
Statut
Membre
Dernière intervention
24 janvier 2017
-
Messages postés
2368
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
8 octobre 2020
-
Bonjour,

Et merci d'avance à ceux ou celles qui prendront le temps de lire et de m'aider à trouver une solution.
J'ai ce type de données dans des cellules :

GARANTIE 12MOIS
CONSTRUCTEUR 24
CONSTRUCTEUR 24
CONSTRUCTEUR 12
GARANTIE 12MOIS
CONSTRUCTEUR 24
Garantie 6 mois
GARANTIE 12MOIS
GARANTIE 12MOIS
Garantie 6 mois
CONSTRUCTEUR 24
Garantie 3 mois
CONSTRUCTEUR 24
CONSTRUCTEUR 24

Et il faut que je récupère seulement les mois de garantie, soit
12
24
24
12
12
...

Quelqu'un peut-il m'aider ?

Un grand merci encore !

4 réponses

Messages postés
818
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
28 octobre 2019
60
Bonjour,

=STXT(A1;EQUIV(VRAI;ESTNUM(CNUM(STXT(A1;LIGNE($1:$255);1)));0);2)


Fonction a rentrer en maintenant CTRL + SHIFT (fonction matricielle)
Il doit apparaitre des accolades autour de la fonction :

{=STXT(A1;EQUIV(VRAI;ESTNUM(CNUM(STXT(A1;LIGNE($1:$255);1)));0);2)}

Cordialement,
Nos seules limites sont celles que nous nous imposons nous-même.
La politesse et un merci ne tuent pas. Il existe un bouton pour "Résolu" pour confirmer que     votre problème n'en est plus un. Fahora
2
Merci

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

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
25367
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
12 octobre 2020
5 521
Bonjouir
essayez cette formule pur un texte en A1:

=STXT(A1;TROUVE(" ";A1)+1;SI(DROITE(MAJUSCULE(A1);4)="MOIS";NBCAR(STXT(A1;TROUVE(" ";A1)+1;10))-4;2))*1

ne fonction que si:
le nombre est bienjuste après le 1° blanc
le texte derrière le chiffre est Mois ou rien
crdlmnt
Messages postés
2368
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
8 octobre 2020
879
Bonjour à tous,
Un peu de gymnastique avec les fonctions Texte:
=DROITE(SUPPRESPACE(SUBSTITUE(MAJUSCULE(A2);"MOIS";""));2)*1
Bien sûr à vérifier.
Messages postés
17242
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 octobre 2020
4 284
Bonjour,

avec une fonction personnalisée, colle ce code dans un module

Function EXTNUM(Cellule As Range)
M = Cellule.Value
Application.Volatile
For i = 1 To Len(M)
If IsNumeric(Mid(M, i, 1)) Then
M = Mid(M, i)
Exit For
End If
Next
EXTNUM = Val(M)
End Function

et appelle la fonction personnalisée dans la première cellule de ton choix et incrémente vers le bas