Stxt trouve nbcar

bonjour

ça fait suite un post résolu par h2s04

mais j'ai un petit complément pour la formule stxt trouve nbcar

je met fichier test en annexe

merci

tomatito37

Bonjour,

Une proposition à étudier avec une fonction de feuille personnalisée.

Cdlt.

Public Function MATRICULE(ByVal sText As String)
Dim tbl As Variant

    MATRICULE = "NC"
    tbl = Split(sText, " ")
    If IsNumeric(tbl(UBound(tbl) - 1)) Then
         MATRICULE = tbl(UBound(tbl) - 1)
    End If

End Function

le forum

Jean-Eric

merci ça fonctionne ok ...je garde cette macro en réserve

je reste en demande d'une formule pour mon tableau car j'ai d'autres données que je mets à disposition de collègues

merci

tomatito37