dans excel extraire un nombre d'un texte

Question

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

LePierre · Answer

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

Dans excel extraire un nombre d'un texte

1 réponse

Discussions similaires

Newsletters