Dans excel extraire un nombre d'un texte

Alain_57 -  
LePierre Messages postés 249 Statut Membre -
Bonjour,
Je voudrais extraire un nombre d'une cellule comportant du texte et un nombre, je sais que l'on peut utiliser VBA formule convertir.xls mais je ne sais pas faire, peut-etre existe-t-il un moyen plus simple.
Merci d'avance de votre aide
A voir également:

1 réponse

LePierre Messages postés 249 Statut Membre 338
 
bonjour

place ce code dans un module :
Sub test()
  TexteAtraiter = ActiveCell.Value
  NombreTxt = ""
  For i = 1 To Len(TexteAtraiter)
    If IsNumeric(Mid$(TexteAtraiter, i, 1)) Then
      NombreTxt = NombreTxt & Mid$(TexteAtraiter, i, 1)
    End If
  Next i
  Nombre = Val(NombreTxt)
  MsgBox ("Nombre= " & Nombre)
End Sub

Sélectionne une cellule contenant du texte et un nombre, appuie sur Alt + F8 et lance la procédure "Test". Les chiffres seront extraits.
Attention : si tu as "aa123bbb4dd5ee" tu obtiendras le nombre "12345"
à plus
0