séparation d'une phrase

[Sylvie64]

Bonsoir,

Je sais qu'Excel fait énormément de chose mais est ce possible de séparer
le tableau 1 en deux colonnes (tableau 2) ?

En pièce jointe, j'ai un tableau 1 (mon fichier qui comporte plus
de mille lignes) et un deuxième tableau dont j'aimerai avoir comme
résultat est il possible de faire cette séparation ?

Sachant que dans les phrases se trouve toujours "âgé(e) de"

Merci pour votre aide

Sylvie

 

[jeanpierre]

Re : séparation d'une phrase

Bonsoir Sylvie,

Aucune corrélation entre tes deux tableaux, cela risque ne ne pas être simple.

Bonne soirée.

Jean-Pierre

 

[Sylvie64]

Re : séparation d'une phrase

En fait, mes deux tableaux ce sont des colonnes de mon fichier.
J'ai mis en tableaux pour expliquer, donc j'ai bien deux colonnes Cet D
Merci

 

[JNP]

Re : séparation d'une phrase

Bonsoir le fil 🙂,
Voir fichier joint.
Bonne soirée 😎

 

[BOISGONTIER]

Re : séparation d'une phrase

Bonsoir,

=GAUCHE(C3;CHERCHE("âgé(e)";C3)-1)
=STXT(C3;CHERCHE("âgé(e)";C3);99)

JB

 

[Sylvie64]

Re : séparation d'une phrase

Merci à vous deux,
Mais si en C3 il se trouve que la case est vide,
en mettant votre formule cela me met #VALEUR!
Alors qu'elle devrait être vide

 

[kjin]

Re : séparation d'une phrase

Bonsoir à tous,
En vba
A+
kjin

 

[JNP]

Re : séparation d'une phrase

Re 🙂,

=SI(ESTERREUR(GAUCHE(C3;CHERCHE("âgé(e)";C3)-2));"";GAUCHE(C3;CHERCHE("âgé(e)";C3)-2))

et

=SI(ESTERREUR(DROITE(C3;NBCAR(C3)-CHERCHE("âgé(e)";C3)+1));"";DROITE(C3;NBCAR(C3)-CHERCHE("âgé(e)";C3)+1))

Bonne soirée 😎

 

[Staple1600]

Re : séparation d'une phrase

Bonsoir à tous


Une autre solution VBA (en utilisant Données/Convertir)

Sub Macro1()
Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="â", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Selection.Offset(, 1).Replace What:="gé(e)", Replacement:="âgé(e)", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

 

[Sylvie64]

Re : séparation d'une phrase

Bonjour à tous,

EXCELLENT merci pour votre aide.

Sylvie