Déplacer un texte entre parenthèses

J'ai des centaines de cellules comprenant du texte et des indications entre
parenthèses
J'aimerais que ces indications entre parenthèses soient déplacées dans une
autre colonne dédiée

Vous avez-dit "déplacées" ???
En supposant tes données en A2:Ax et que tu veuilles extraire le texte entre ()
dans la colonne B :

Sub zzz()
x = [A65536].End(3).Row
Range("B2:B" & x) "=if(iserr(find(""("",A2)),"""",left(mid(A2,find(""("",A2)+1,9^9),find("")"",mid
(A2,find(""("",A2)+1,9^9))-1))"
Range("B2:B" & x) = (Range("B2:B" & x))
End Sub

Si tu veux supprimer ...fais signe
AV

Bonjour Serge,
Dans une colonne voisine :

=STXT(A1;TROUVE("(";A1);TROUVE(")";A1))
--
Garcin Lazare

"Serge Hipontoise" <repondez@surlegroupe.merci> a écrit dans le message de
news:40f8f408$0$15268$636a15ce@news.free.fr...

Bonjour
J'ai des centaines de cellules comprenant du texte et des indications entre
parenthèses
J'aimerais que ces indications entre parenthèses soient déplacées dans une
autre colonne dédiée
Est-ce possible ?
Merci d'avance
Serge

bonjour Serge,

si tu ne veux pas passer par BVA, essaie ceci :

pour extraire la partie avant "("
=GAUCHE(A1;NBCAR(A1)-(NBCAR(A1)-CHERCHE("(";A1;1)+1))

pour extraire la chaine a partir de "("
=DROITE(A1;NBCAR(A1)-CHERCHE("(";A1;1)+1)

bon courage

-----Message d'origine-----
Bonjour
J'ai des centaines de cellules comprenant du texte et
des indications entre

parenthèses
J'aimerais que ces indications entre parenthèses soient
déplacées dans une

autre colonne dédiée
Est-ce possible ?
Merci d'avance
Serge


.

Merci AV c'est nickel comme ça

Un grand merci à tous les trois :)
Bon week end
Serge



"Serge Hipontoise" <repondez@surlegroupe.merci> a écrit dans le message de
news:40f8f408$0$15268$636a15ce@news.free.fr...

Bonjour
J'ai des centaines de cellules comprenant du texte et des indications
entre

parenthèses
J'aimerais que ces indications entre parenthèses soient déplacées dans une
autre colonne dédiée
Est-ce possible ?
Merci d'avance
Serge

Salut Serge,

Pour traiter les cas comme tel:
"On ignore (on retourne) et on ignore encore."


Sub TestXtrPr()
With Range("A1:A" & Range("A65536").End(xlUp).Row).Offset(0, 1)
.FormulaR1C1 = "=XTrPr(RC[-1])"
.Value = .Value
End With

End Sub

Function XtrPr(s$) As String

Dim i As Integer, j As Integer
i = InStr(1, s, "(", vbBinaryCompare)
If i > 0 Then
j = InStr(i + 1, s, ")", vbBinaryCompare)
If j > 0 Then
XtrPr = Mid$(s, i + 1, j - i - 1)
End If
End If

End Function


Tu peux aussi utiliser la fonction XtrPr() directement sur la feuille
=XtrPr(A1)

Salutations,

Daniel M.

"Serge Hipontoise" <repondez@surlegroupe.merci> wrote in message
news:40f8f408$0$15268$636a15ce@news.free.fr...

Bonjour
J'ai des centaines de cellules comprenant du texte et des indications entre
parenthèses
J'aimerais que ces indications entre parenthèses soient déplacées dans une
autre colonne dédiée
Est-ce possible ?
Merci d'avance
Serge

Bonjour,

Ou aussi, une fonction perso à base de Split (si tu as Excel 2000 ou + récent) :

Function EntreParentheses(S) As String
On Error Resume Next
EntreParentheses = Split(Split(S, "(")(1), ")")(0)
End Function

Ensuite (par exemple), dans une colonne voisine de celle qui contient tes
données (supposées être en colonne A) :

=EntreParentheses(A1)

et tu tires vers le base autant que de besoin.

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour
J'ai des centaines de cellules comprenant du texte et des indications entre
parenthèses
J'aimerais que ces indications entre parenthèses soient déplacées dans une
autre colonne dédiée
Est-ce possible ?
Merci d'avance
Serge