extraire texte entre -- texte --

[bica]

bonjour à toutes et à tous ,

j'ai besoin de vôtre aide pour extraire d'une cellule un texte qui se trouve entre deux tirets , le texte en question peut - être extrait par une formule mais ma préférence va pour le vba .
Plusieurs pistes ont été exploré sur ce forum concernant l'extraction de textes entre parenthèses , entre crochets etc.. mais chez moi le problème réside sur les tirets .

Merci pour vôtre aide quant à mon problème.

 

[CBernardT]

Re : extraire texte entre -- texte --

Bonjour bica et le forum,


Une solution avec la formule suivante :

=SUPPRESPACE(GAUCHE(DROITE(A2;NBCAR(A2)-(TROUVE("--";A2)+1));NBCAR(DROITE(A2;NBCAR(A2)-(TROUVE("--";A2)+1)))-2))

Cordialement

Bernard

 

[Risleure]

Re : extraire texte entre -- texte --

Bonjour,

Avec VBA en PJ

A+

 

[bica]

Re : extraire texte entre -- texte --

Merci beaucoup voilà encore un problème de résolu grâce aux membres de cet Excellent forum.
A bientôt et merci à toi Risleure .

Bica.

 

[bica]

Re : extraire texte entre -- texte --

Merci beaucoup voilà encore un problème de résolu grâce aux membres de cet Excellent forum.
A bientôt et à toi Risleure .

Bica.

 

[bica]

Re : extraire texte entre -- texte --

Merci beaucoup voilà encore un problème de résolu grâce aux membres de cet Excellent forum.
A bientôt et merci à toi Risleure .

Bica.

 

[bica]

Re : extraire texte entre -- texte --

Merci beaucoup voilà encore un problème de résolu grâce aux membres de cet Excellent forum.
A bientôt et merci à toi CBernardT .

Bica.

 

[bica]

Re : extraire texte entre -- texte --

Salut Risleure ,

après avoir tester ton code vba je me suis rendu compte qu'il m'efface l'extraction du texte entre les tirets si je relance le code vba .En effet j'incrémente sans cesse cette liste et ton code m'efface les données extraites auparavant , comment y remédier ?

merci et à bientôt .

Bica.

 

[Risleure]

Re : extraire texte entre -- texte --

Bica
La solution est toute autre mais demande un peu de temps donc je ne te laisse pas tomber mais là j'ai une urgence donc à plus tard !!

A+

 

[bica]

Re : extraire texte entre -- texte --

Pas de soucis Risleure quand cela va pour toi , j'espère seulement que ton urgence n'est pas grave ...

Quant à moi je continue à rechercher .

 

[mromain]

Re : extraire texte entre -- texte --

bonjour le fil,

j'ai modifié un peu le code de Risleure.
C'est pas très beau, mais ça a l'ai de fonctionner :

Sub Separateur()
'Risleure
With ThisWorkbook.Sheets
.Add after:=ThisWorkbook.Sheets(.Count)
    Columns("A:A").Copy ThisWorkbook.Sheets(.Count).Range("A1")
    ThisWorkbook.Sheets("Feuil1").Select
    ThisWorkbook.Sheets("Feuil1").Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="--", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1)), TrailingMinusNumbers:=True
        Columns("B:B").Delete
    ThisWorkbook.Sheets(.Count).Range("A:A").Copy ThisWorkbook.Sheets("Feuil1").Range("A1")
    Application.DisplayAlerts = False
    ThisWorkbook.Sheets(.Count).Delete
    Application.DisplayAlerts = True
End With
End Sub

a+

 

[bica]

Re : extraire texte entre -- texte --

merci mromain pour ton aide , sauf que ton code vba n'extrait pas le texte entre "--" de la cellule de départ vers la cellule de destination mais la copie .En fait j'aimerai extraire le texte de la cellule A1 vers B1 sans conserver également le proprement dit texte en A1 .

merci et à bientôt .

Bica

 

[GCFRG]

Re : extraire texte entre -- texte --

Bonjour,

à tester

Cordialement Gilbert

 

[GCFRG]

Re : extraire texte entre -- texte --

Re, avex les valeurs rectifier colonne A

Cordialement gilbert

 

[bica]

Re : extraire texte entre -- texte --

merci GCFRG , j'ai l'impression que ton code vba marche bien je teste dans tous les sens et te remercie d'avance pour ton aide .

a+ Bica.