Espèce de Stxt en plus corsé

[manwholooklikedude]

Salut les aminches, ça farte ?

Je suis confronté à un truc qui me bloque un peu: j'ai une liste avec pleins de références en français et en anglais dans la même case séparées par un slash:

En J15: COQUE AR J / FENDER J
En J16: RANGEMENT TA / RACK TA


et je voudrais avoir le français dans une cellule, et l'anglais dans celle d'à coté. D'habitude je me sors de ces situation avec des stxt ou des gauches droites mais là rien n'a la même longueur et je coince.

Quelqu'un a une idée ?

Merci les biloutes

 

[tototiti2008]

Re : Espèce de Stxt en plus corsé

Bonjour manwho...,

en K15 :
=gauche(J15;cherche("/";J15)-2)

en L15 :
=droite(J15;nbcar(J15)-cherche("/";j15)-1)

 

[Jocelyn]

Re : Espèce de Stxt en plus corsé

Bonjour le Forum,
Bonjour manwholooklikedude

a tester

Pour la partie en francais : =GAUCHE(J15;TROUVE("/";J15)-2)
Pour la partie en anglais : =SUBSTITUE(J15;GAUCHE(J15;TROUVE("/";J15)+1);"")

Jocelyn

 

[mth]

Re : Espèce de Stxt en plus corsé

Bonjour,

En pj un essai avec des Trouve() puis Droite() Gauche(), en faisant l'hypothèse que le signe " / " est toujours le séparateur des deux langues

Bien cordialement,

mth

Edit: Encore gravement à la bourre moi !!!
Re bonjour tototiti et Jocelyn

 

[manwholooklikedude]

Re : Espèce de Stxt en plus corsé

super, merci. Ca démonte le "cherche"

 

[manwholooklikedude]

Re : Espèce de Stxt en plus corsé

Le "trouve" aussi, ça démonte, hein !

Merci les topains !

 

[Robert]

Re : Espèce de Stxt en plus corsé

Bonjour L'homme qui..., bonjour le forum,

Cette petite macro à adapter à ton cas pourrais t'aider :

Sub Macro1()
Dim cel As Range
Dim x As Byte
For Each cel In Range("J1:J" & Range("J65536").End(xlUp).Row) 'à adapter à ton cas
    For x = 1 To Len(cel.Value)
        If Mid(cel.Value, x, 1) = "/" Then
            cel.Offset(0, 1).Value = Mid(cel.Value, 1, x - 1)
            cel.Offset(0, 2).Value = Mid(cel.Value, x + 1, Len(cel.Value) - x)
            Exit For
       End If
    Next x
    cel.Offset(0, 1).Value = Trim(cel.Offset(0, 1).Value)
    cel.Offset(0, 2).Value = Trim(cel.Offset(0, 2).Value)
Next cel
End Sub

Édition :

M'énervent tous je suis sûr qu'ils se dopent... Bonjour à tous.

 

[Raja]

Re : Espèce de Stxt en plus corsé

Bonjour à tous,

Une autre méthode :

Sélectionne tes cellules. Données/Convertir/Type de données : Délimité et clique sur suivant. Séparateurs coche l'option "autre" et saisis le caractère "slash" dans l'espace à coté et clique sur "Terminer".