La fonction VBA Split permet de diviser une chaîne de caractères selon un délimiteur pour obtenir un tableau de valeurs.
Split(texte, séparateur)
Ou
Split(texte, séparateur, limite)
Divisons le nom du site "www.moonexcel.com.ua" par le séparateur "." pour obtenir 4 sous-chaînes dans un tableau :
Sub SplitExample1() text = "www.moonexcel.com.ua" array = Split(text, ".") MsgBox array(0) 'Retours: www MsgBox array(1) 'Retours: moonexcel MsgBox array(2) 'Retours: com MsgBox array(3) 'Retours: ua End Sub
Si nécessaire, vous pouvez limiter le nombre d'éléments dans le tableau :
Sub SplitExample2() text = "www.moonexcel.com.ua" array = Split(text, ".", 2) MsgBox array(0) 'Retours: www MsgBox array(1) 'Retours: moonexcel.com.ua End Sub
Si vous n'avez besoin de récupérer qu'une seule sous-chaîne (dans cet exemple, la sous-chaîne du milieu "moonexcel"), vous pouvez directement spécifier un élément de tableau pour la récupérer :
Sub SplitExample3() text = "www.moonexcel.com.ua" middle = Split(text, ".")(1) MsgBox middle 'Retours: moonexcel End Sub