Discussion :

[macleme]

Bonjour à tous !
Je suis toute nouvelle sur le forum; j'ai quelque bases en VBA, en ayant appris sur le tas, et j'ai besoin de votre aide pour créer la fonction suivante:

il faudrait qu'à partir d'une chaine de caractères, je puisse récupérer le dernier mot séparé par un délimiteur particulier (par exemple, un tiret -).

Par exemple, à partir de "bleu-blanc-rouge-vert", récupérer le mot "vert".

En particulier, les mots de la chaine de caractères n'ont pas tous le même nombre de caractères, et le nombre de mots dans la chaine n'est pas non plus fixe.

De ce que j'ai lu, "Mid" pourrait m'être utile, mais je ne sais pas comment l'utiliser avec mes contraintes...

Merci pour votre aide!

[kiki29]

Salut, voir aide en ligne sur Split et UBound

Bref qqch comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim sStr As String
Dim Ar() As String
Dim Elem As String
 
    sStr = "bleu-blanc-rouge-vert"
    Ar = Split(sStr, "-")
    Elem = Ar(UBound(Ar))
 
    Debug.Print Elem

[mercatog]

Bonjour
Une autre variante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Mot As String
 
Mot = "bleu-blanc-rouge-vert"
Debug.Print Mid(Mot, InStrRev(Mot, "-") + 1)

[macleme]

Merci beaucoup! Ca marche nickel