Division automatique du texte par le séparateur donné

GETSUBSTR() descriptif

Vous trouverez ci-dessous une fonction qui vous aidera à diviser le texte en parties en fonction du séparateur spécifié.

Code VBA pour la macro

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ù:

• texte - le texte de la cellule dont nous envisageons d'extraire des fragments;
• diviseur - le symbole par lequel on divisera le texte;
• numéro de séquence du fragment - un numéro qui indiquera quel fragment nous voulons obtenir dans l'ordre.

Articles sur le sujet :

• Diviser le texte en plusieurs colonnes
• Extraire une partie des caractères du texte (LEFT, RIGHT, MID)
• Concaténation de texte de différentes cellules (CONCATENATE)
• Concaténation de texte par condition (CONCATIF)