Fonction NumChaine

Donne les chiffres d'une chaîne.

Function NumChaine(chaine)
  temp = ""
  For i = 1 To Len(chaine)
    c = Mid(chaine, i, 1)
    If c >= "0" And c <= "9" Then temp = temp & c
  Next i
  NumChaine = temp
End Function

Function NumChainePremOccur(chaine)
  longueur = Len(chaine)
  temp = ""
  p = 1
  Do While Not IsNumeric(Mid(chaine, p, 1)) And p <= longueur
    p = p + 1
  Loop
  Do While IsNumeric(Mid(chaine, p, 1)) And p <= longueur
     temp = temp & Mid(chaine, p, 1)
    p = p + 1
  Loop
  NumChainePremOccur = temp
End Function

Function NumChaineOccur(chaine, occurence)
  longueur = Len(chaine)
  p = 1
  occur = 0
  Do
    temp = ""
    Do While Not IsNumeric(Mid(chaine, p, 1)) And p <= longueur
       p = p + 1
    Loop
    Do While IsNumeric(Mid(chaine, p, 1)) And p <= longueur
      temp = temp & Mid(chaine, p, 1)
      p = p + 1
    Loop
    occur = occur + 1
  Loop Until occur = occurence
  NumChaineOccur = temp
End Function

Function NumChaineDernOccur(chaine)
   longueur = Len(chaine)
   temp = ""
   p = longueur
   Do While Not IsNumeric(Mid(chaine, p, 1)) And p > 1
     p = p - 1
   Loop
   Do While IsNumeric(Mid(chaine, p, 1)) And p > 1
     temp = Mid(chaine, p, 1) & temp
   p = p - 1
   Loop
   NumChaineDernOccur = temp
End Function

Fonction NumChaine.xls