Récupérer une chaîne de texte

[petipeton]

Bonjour à tous !

J'ai en A1 un texte qui contient toujours le caractère j.
Je souhaite récupérer les valeurs qui se trouvent avant ce j dans une colonne puis, dans une autre colonne, les valeurs qui se trouvent après ce j.

Merci de votre aide !

 

[Efgé]

Re : Récupérer une chaîne de texte

Bonjour petipeton,
En B1 :

=GAUCHE(A1;CHERCHE("j";A1;1)-1)

En C1

=DROITE(A1;NBCAR(A1)-CHERCHE("j";A1;1))

Cordialement

 

[JHA]

Re : Récupérer une chaîne de texte

Bonjour,

Avec données en A1
avant
=STXT(A1;1;TROUVE("j";A1)-1)
Après
=STXT(A1;TROUVE("j";A1)+1;100)

JHA

 

[Hulk]

Re : Récupérer une chaîne de texte

Hello Petipeton, Efgé, JHA, Forum,

Une petite version VBA...

Private Sub CommandButton1_Click()
    
    [B1] = Mid(Range("A1"), 1, InStr(1, Range("A1"), "j") - 1)
    [C1] = Mid(Range("A1"), InStr(Range("A1"), "j") + 1)

End Sub

Ou plus proprement...

Private Sub CommandButton1_Click()
    
    Dim Chaine As String

    Chaine = [A1]
    
    [B1] = Mid(Chaine, 1, InStr(1, Chaine, "j") - 1)
    [C1] = Mid(Chaine, InStr(Chaine, "j") + 1)

End Sub

Bonne fin de journée à tous et VIVA ESPAÑA

 

[petipeton]

Re : Récupérer une chaîne de texte

Merci à tous !!!

Tout fonctionne à merveille et je me mets même de côté le code VBA !

Et bravo à l'Espagne, effectivement !!!