XL 2013 Extraction de données texte dans une cellule

Bonjour à tous

Tu peux aussi utiliser Données | Convertir
Sélectionner la colonne A
Choisir (x)Autre dans Séparateurs
et mettre : ALT+010 comme séparateur

Ca mettra tes données dans les colonnes à côté de la colonne A

Bonjour, je trouvais plus facile de traiter ces données à l'avance. Ayant cependant à l'esprit que vous nous avez sans doute donné une petite partie de votre base de données, je vous explique ma démarche par étape (je vois que je commence comme Yurperqod le propose, bonne nouvelle ).

1) : Procédez comme expliqué ici : http://monsieur-excel.blogspot.fr/2009/02/conversion-partir-de-sauts-de-ligne.html pour convertir votre cellule contenant toutes les infos en plusieurs cellules (on va utiliser "convertir" d'Excel, qui fractionne une colonne de texte en plusieurs) ;

2) : Enlevez, pour chaque colonne, les "phylum : " ; "Famille : " ... dans chacune de vos cellules, comme suit si vous ne savez pas : vous sélectionnez la colonne correspondante, vous faites Ctrl F, vous recherchez tous les "famille : " (attention aux espaces, avant et après) et vous remplacez tout par rien ; l'objectif est d'avoir dans chaque cellule seulement l'info.

3) : Insérer un tableau et nommez les colonnes comme il se doit (Phylum, Famille...merci pour le petit cours de bio au passage ). Pas que ce soit forcément plus clair, mais le tableau sera plus dans l'esprit d'Excel et facilitera tout traitement ultérieur.

Vous avez ainsi accès à toutes les données beaucoup plus facilement.


PS : Vous remarquerez que pour les deux dernières colonnes, tout ne se passe pas très bien, avant d'y passer du temps, vous me direz si cela vous gène.

Voilà le fichier que j'ai traité, vous me dites ce que vous en pensez. J'ai fait cela avec Excel 2016, cela va simplement, a priori, modifier le style du tableau rien de gênant je pense.

Bonjour,

Une autre solution grace à un UDF fourni par EXCEL-MALIN, bien pratique mais qui oblige à l'usage d'une dernière colonne (parce que les termes "; passé" ne sont pas présents partout).

Mais ce qu'indique BRICEG est super!

cdlt
thierry

Bonjour le Forum,
Bonjour DCA, Yuperqod, Brice G,

Bon j'ai eu une coupure internet mais comme je l'ai fait je le poste même en retard

Cordialement

EDIT : Bonjour zebanx

zebanx à dit:

Bonjour,

Une autre solution grace à un UDF fourni par EXCEL-MALIN, bien pratique mais qui oblige à l'usage d'une dernière colonne (parce que les termes "; passé" ne sont pas présents partout).

Mais ce qu'indique BRICEG est super!

cdlt
thierry

Cliquez pour agrandir...

Merci.
C'est génial ce truc aussi.

L'auteur a donc trois solutions, différentes, toutes fonctionnelles, à lui de voir.

@Jocelyn
Bonjour et merci pour ta solution

@briceG
Ouais, je trouve aussi !
Je l'ai récupéré y a pas longtemps mais il sert bien et il faut que tout le monde en profite!

Bonne journée à tous
thierry

@DCA

La fonction est dans un module !

Donc il faut que tu copies le module (module 1_extraction) dans ton fichier ou que tu copie le code ci-après dans ton fichier.

Si tu n'as pas l'habitude : depuis ton fichier, taper ALT + F11 puis insertion module et tu copies le code.
Après tu te mets sur la première cellule ou tu avais la formule, tu te places en fin de cellule et tu tapes entrée.
Ca doit fonctionner.

++

-----
Le code:
Public Function ExtraireDF(ChaineSource As String, Optional LimiteAvant As String = "", Optional LimiteApres As String = "")
'par: Excel-Malin.com ( http://excel-malin.com )
On Error GoTo FunctionErreur
If InStr(1, ChaineSource, LimiteAvant) = 0 Then
ExtraireDF = CVErr(xlErrNA)
Exit Function
Else
ExtraitPositionDebut = InStr(1, ChaineSource, LimiteAvant) + Len(LimiteAvant)
End If
If LimiteApres = "" Then
ExtraitPositionFin = Len(ChaineSource)
Else
ExtraitPositionFin = InStr(1, ChaineSource, LimiteApres) - 1
End If
ExtraireDF = Mid(ChaineSource, ExtraitPositionDebut, ExtraitPositionFin - ExtraitPositionDebut + 1)
Exit Function
FunctionErreur:
ExtraireDF = CVErr(xlErrNA)
'ExtraireChaineDelimitee = ""
End Function

Bonjour,

Merci @zebanx. Grâce à tes indications j'ai réussi et j'ai appris des choses en plus.
Encore merci à tout le forum
Bonne journée

DCA