Extraction chiffres

[karinette]

Bonsoir à tous,
Je sais que le sujet a déjà été traité, mais je n'arrive pas a adapter les formules trouvées sur le forum à mon cas ...
J'aimerais extraire les chiffres de cellules comme dans l'exemple ci joint ... Sachant que j'ai toujours la lettre "r" après mes chiffres à extraire.
Merci de votre aide ...

 

[excfl]

Re : Extraction chiffres

Bonsoir le forum,

Voir le fichier joint.

excfl

Edit : bonsoir Staple1600

 

[Staple1600]

Re : Extraction chiffres

Re

En attendant les formulistes du forum, essaie avec cette fonction VB personnalisée
( à mettre dans un module)

Function xchiffre(x$)
With CreateObject("VBScript.RegExp")
.Pattern = "\d+": xchiffre = .Execute(x)(0)
End With
End Function

ensuite tu saisis dans ta feuille:
=xchiffre(A1)

EDITION: Pas rafraîchi à temps , bonsoir excfl

 

[karinette]

Re : Extraction chiffres

ça fonctionne ... Merci beaucoup à excfl et Staple1600 !!!

 

[BOISGONTIER]

Re : Extraction chiffres

Bonsoir,

Par formule

=CNUM(STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);NB(--(STXT(A2;LIGNE($1:$255);1)))))
Valider avec maj+ctrl+entrée

JB

 

[job75]

Re : Extraction chiffres

Bonjour karinette, Jean-Marie, JB,

Sélectionner une cellule en ligne 2 et définir les noms fin et deb comme indiqué.

Formule en B2 à tirer vers le bas :

=SI(ESTNUM(deb*fin);--STXT(A2;deb;fin-deb);"")

Cette solution optimise la durée du calcul.

Fichier joint.

A+