Récupérer une chaîne de texte

Efgé

XLDnaute Barbatruc

• 12 Juillet 2010

• #2

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

Bonjour petipeton,
En B1 :

Code:

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

En C1

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 12 Juillet 2010

• #3

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 12 Juillet 2010

• #4

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

Hello Petipeton, Efgé, JHA, Forum,

Une petite version VBA...

Code:

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...

Code:

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 🙂

 

Vote positif 0 Vote négatif

P

petipeton

Guest

• 12 Juillet 2010

• #5

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 !!!

 

Vote positif 0 Vote négatif