Dé-concaténer une cellule avec parenthèses

[mandelbaum]

Bonjour,

J'ai dans ma cellule A1 : ce type de texte : dhdhjhfj (jfjfjjf).

Je souhaiterai mettre en B1 : dhdhjhfj
et en C1 le texte entre parenthèses et en supprimant les parenthèses.

Merci pour votre aide.

 

[abcd]

Re : Dé-concaténer une cellule avec parenthèses

Bonjour,

B1 : =GAUCHE(A1;CHERCHE("(";A1)-2)
C1 : =DROITE(SUBSTITUE(SUBSTITUE(A1;"(";"");")";"");NBCAR(A1)-NBCAR(B1)-3)

abcd

 

[Tibo]

Re : Dé-concaténer une cellule avec parenthèses

Bonjour,

Essaye avec cette formule :

=GAUCHE(A1;TROUVE("(";A1)-1)

puis :

=STXT(A1;TROUVE("(";A1)+1;TROUVE(")";A1)-TROUVE("(";A1)-1)

@+

Edit : salut abcd 🙂

@+

Edit 2 :

pour la 2ème formule, une 2ème version :

=SUBSTITUE(DROITE(A1;NBCAR(A1)-TROUVE("(";A1));")";"")

@+

 

[mandelbaum]

Re : Dé-concaténer une cellule avec parenthèses

Merci, ça a fonctionné c'est tout à fait ce que je souhaitais.
Bonne journée.

 

[Pierrot93]

Re : Dé-concaténer une cellule avec parenthèses

Bonjour à tous

pour le fun, une solution vba :

Sub test()
Dim t() As String
t = Split(Range("A1").Value, " ")
Range("B1").Value = t(0)
Range("C1").Value = Replace(Replace(t(1), "(", ""), ")", "")
End Sub

bonne journée
@+

 

[bruno66]

Re : Dé-concaténer une cellule avec parenthèses

Bonjour,

B1 : =GAUCHE(A1;CHERCHE("(";A1)-2)
C1 : =DROITE(SUBSTITUE(SUBSTITUE(A1;"(";"");")";"");NBCAR(A1)-NBCAR(B1)-3)

abcd

bonjour ABCD, ta formule dans cette reponse ne donneque la valeur#NOM?
celle de tibo par contre fonctionne a merveille
peux-tu nous donner une explication , ou est-ce une erreur de saisie avec cettte fonction... merci

 

[bruno66]

Re : Dé-concaténer une cellule avec parenthèses

Bonjour à tous

pour le fun, une solution vba :

Sub test()
Dim t() As String
t = Split(Range("A1").Value, " ")
Range("B1").Value = t(0)
Range("C1").Value = Replace(Replace(t(1), "(", ""), ")", "")
End Sub

bonne journée
@+

bonjour Pierrot, il faudrait que tu m'apprennes a activer ce code ev VBA, car j'ai mis la formule dans un fichier, en remplacant la valeur du code B1 par B3, et C1 par C3 , mais cela ne fonctionne pas.. merci, je n'ai jamais utiliser VBA

 

[Staple1600]

Re : Dé-concaténer une cellule avec parenthèses

Bonjour à tous

Pour le fun également et pour rendre hommage à l'enregistreur de macros

Sub Macro1()
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1))
    Columns("B:B").Select
    Selection.Replace What:="(", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:=")", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

En remaniant un peu le code de l'enregistreur

Sub Macro1_bis()
Range("A1:A" & [A65536].End(xlUp).Row).TextToColumns Range("A1"), xlDelimited, , True, , , , True, False
With Columns("B:B")
    .Replace "(", "", xlPart, xlByRows, False
    .Replace ")", "", xlPart, xlByRows, False
End With
End Sub

Ces macros sont l'équivalent de :
Données/Convertir/Délimité/Espace (coché)

Puis Edition/Remplacer ( par "rien"
Edition/Remplacer ) par "rien'

 

[Pierrot93]

Re : Dé-concaténer une cellule avec parenthèses

Re,

pour répondre à Bruno, ci joint fichier avec macro installée dans le module 1, commandée par un bouton, dont le code se trouve dans le module de la feuille, ALT F11 pour ouvrir l'éditeur vba.

@+

 

[abcd]

Re : Dé-concaténer une cellule avec parenthèses

Bonjour,

As-tu enlevé l'espace dans NBC AR(A1) ?

abcd