Formule extraire ensemble si chiffre

Salut a tous

J'ai un niveau débutant sur excel, j'apprend à le découvrir de jour en jour. Dans le cadre de mon stage je dois effectuer un tri qui va me permettre de gagner énormément de temps .

J'aimerais prélever sur une cellule, qui est composé de texte et de chiffres, uniquement l'ensemble de termes qui comporte au moins un chiffre. ex :

En A1 nous avons : MRENO 18 ZG+PVC 2,2 60x80 3,0x2,0x0,23

En B1 j'aimerais que la formule me prélève : 18 2,2 60x80 3,0x2,0x0,23

Je ne connais pas du tout la "programmation" VBA voila pourquoi je propose une formule

Merci d'avance pour votre aiguillage et votre aide

bonjour,

une solution via une fonction personnalisée

code à mettre dans un module

Function extraitchif(r As String)
Dim t
t = Split(r, " ")
For i = LBound(t) To UBound(t)
 If Left(t(i), 1) >= "0" And Left(t(i), 1) < "9" Then
 Else
  t(i) = ""
 End If
Next i
extraitchif = Join(t, " ")
End Function

exemple d'appel de la fonction dans excel

=extraitchif(A1) si A1 contient le texte à analyser

Waow!! merci a toi ca marche bien mais je ne sais pas pourquoi ca ne m extrait pas les ensembles qui commencent par une lettre même s'il y a un chiffre :

A1 : WIRE GLA D2.70 COil 25 LW

B1 : 25

je n'ai pas "D2.70"

A1 : WM PANEL GL10A 100X100 D40 1X1

B1 : 100X100 1X1

je n'ai pas "D40" ni "GL10A"

Merci jvais deja pouvoir commencer a travailler sur mes 680 lignes

rebonjour,

une version améliorée

Function extraitchif(r As String)
Dim t
t = Split(r, " ")
For i = LBound(t) To UBound(t)
 If t(i) Like "*#*" Then
 Else
  t(i) = ""
 End If
Next i
extraitchif = Trim(Join(t, " "))
End Function

Vraiment merci a toi ca marche parfaitement félicitations !!