Vous trouverez ci-dessous une fonction qui vous aidera à diviser le texte en parties en fonction du séparateur spécifié.
Pour ajouter une macro, ouvrez l'éditeur Visual Basic (Alt+F11), insérer un nouveau module de programme vide (Insert - Module) et copiez-y le texte de cette fonction :
Function GETSUBSTR(Txt, Delimiter, n) As String Dim x As Variant x = Split(Txt, Delimiter) If n > 0 And n - 1 <= UBound(x) Then GETSUBSTR = x(n - 1) Else GETSUBSTR = "" End If End Function
Enregistrez et revenez à Excel. Désormais, dans les fonctions personnalisées, vous pouvez trouver notre fonction GETSUBSTR().
GETSUBSTR(texte ; délimiteur ; numéro de séquence du fragment)
où: