Diviser cellule en VBA

Bonjour

Comment peut on faire afin de garder une partie de la chaine de caractère d'une cellule à partir de vba et d'un caractère spécifique.

Exemple: en B1: the - vert

et séparer "the" et "vert" donc garder après le tiret.

Merci

Bonjour,

Comme ceci :

Split("the - vert", " - ")(1)

Par exemple :

Sub exemple()

    resultat = Split(Range("B1"), " - ")(1) 'B1 = "the - vert"

    MsgBox resultat 'Renvoie : vert

End Sub

Cordialement,

Merci

Il faut que je l'automatise pour toute ma colonne

theodu79 a écrit :

Il faut que je l'automatise pour toute ma colonne

Puisque je manque d'informations à propos de ton problème, je vais te proposer une solution différente ...

Ajoute cette fonction dans un module :

Function THEODU79(cellule As Range)
    Application.Volatile
    THEODU79 = Split(cellule, " - ")(1)
End Function

Puis utilise simplement ta nouvelle fonction =THEODU79(B1) sur la feuille Excel :

Cordialement,