Spliter un texte entre deux séparateurs

Bonjour,

j'ai "mot1_mot2_mot3"

et j'aimerai :

"mot1_mot2"

Si possible avoir la solution en :

formule

macro (j'en ai jamais fait donc ca serait bien de commencer par un exemple simple comme celui la)

un gros MERCI par avance

Bonjour,

Au lieu de donner des exemples génériques, donne-nous un exemple concret.

Bonjour.

Par fonction =GAUCHE(A1;TROUVE("_";A1;TROUVE("_";A1;1)+1)-1) (ça fonctionne dans le cas de trois mots séparés par des _)

Par VBA :

Dim text as string
text = "mot1_mot2_mot3"
Dim count As Integer
count = InStrRev(text, "_") 'On repère le dernier _ du texte
Dim taille As Integer
taille = Len(text) 'On récupère la taille du texte
text = Left(text, taille - count)

Bonjour,

si ton texte est en A1, alors en B1 :

=GAUCHE(A1;TROUVE("|";SUBSTITUE(A1;"_";"|";2))-1)

@ + +

Bonjour,

Peux-tu préciser ce que tu veux obtenir : simplement la suppression du dernier élément ? ou la règle générale est plus complexe ?

Nb- "Spliter", soit utiliser la fonction Split, consiste à mettre sous forme de tableau des fractions d'une chaîne (String) en les séparant selon un élément (également de type String) séparateur qui lui-même n'apparaîtra pas dans les éléments mis en tableau.

Ok je développe :

J'ai une chaîne de caractères dans une cellule :" nomduprojet_nomsousprojet_nomtache1_nomsoustache2"

(chaque mots et séparé par un séparateur, et toujours le meme : "_")

Et j'aimerai n'avoir plus que : "nomduprojet_nomsousprojet"

Chaque longueur de mots peut être variable, je ne peux donc pas compter le nombre de case.

Bonjour,

Une solution avec une fonction personnelle.

Function Scinder(Cel As Range) As String
Dim T
    T = Split(Cel, "_")
    Scinder = T(0) & "_" & T(1)
End Function

Le code doit être placé dans un module standard.

A+