" Découpage"

Bonjour à tous
Je vous présente également mes meilleurs vœux pour cette nouvelle année.

Travaillant dans l’infographie et la 3D, je dois gérer un certain nombre de fichier qui se présente de la façon suivante :
Editeur – Référence – Non de l’artiste – Désignation
J’ai fait un tableau excel pour avoir une meilleure gestion, mais je voudrais pouvoir « découper » cette phrase de la façon suivante et surtout de façon automatique.

A1 B1 C1 D1 E1
Editeur – Référence – Non de l’artiste – Désignation | Editeur | Référence | Nom de l’artiste | Désignation

La cellule A1 c’est un copier coller du nom de ce qui se trouve en archive sur mon disque dur.
Le symbole qui ne change pas c’est ( - ) séparant chaque mot, le reste évidemment n’est jamais identique.

J’ai fait une recherche parmi le forum, j’ai trouvé certaines choses intéressantes mais qui ne correspondent pas trop à mes besoins, et surtout difficile d’appliquer à mon cas.

Si je n’ai pas été explicite dans ma demande, merci de me le faire savoir

Merci de bien vouloir m’aider.
Bonne journée

oups !!!!

Il y a eu un léger décalage
Je mets cela en « vertical »

A1 Editeur – Référence – Non de l’artiste – Désignation
B1 Editeur
C1 Référence
D1 Nom de l’artiste
E1 Désignation

désolé

bonjour
ci joint un fichier test
j'ai combiné les fonctions STXT avec TROUVE
la fonction TROUVE recherche le caractère - qui sépare les enregristrements
la fonction STXT extrait par calcul le nombre de caractères entre chaque tiret
j'espère que celà répond à ta question

une fois les calculs faits tu peux faire une copier coller/valeurs et supprimer les colonnes de calculs intermédiaires

bonjour Chris

j'espre que cet exemple par macro , répondra à ta demande


bon apres midi
MichelXld

bonjour Loic

excuses moi de ne pas t'avoir salué . nos messages se sont croisés


bon apres midi
MichelXld

aucun problème pour le croisement des messages
n'ayant pas ta maitrise du VBA j'ai préféré traiter le pb par des formules
par contre je pense que ni l'un ni l'autre n'avons traité le pb lorsque dans le nom de l'auteur ou son prénom apparaissent des noms doubles séparés par des - du genre : JEAN-MARIE
ou DONNEDIEU-DE-JACQUES-VABRE

a +

Bonjours à tous
Loïc, Michel
Merci pour vos réponses aussi rapides
Super, les 2 cas fonctionnent.
Je viens de faire un test rapide par rapport à mes données et je me suis rendu compte de quelque chose.
En effet dans certain cas dans la référence il y a un ( - ), je prends un exemple concret :

Editeur – Référence – Artiste – Désignation
RDNA – EJ-RD031 – Traveler – TrucMachin

Désolé, je n’y avais pas pensé auparavant

Donc serait-il possible pour faire le “découpage” en prenant comme critères (espace-espace) ou (vide-vide) et non (caractère-caractère), comme c’est le cas dans EJ-RD031
Mais ce n’est qu’une question subsidiaire, vos réponses me conviennent déjà parfaitement et vont me permettre de bien avancer dans ma classification mais comme on dit souvent « peux toujours mieux faire », je plaisante évidemment. :=)

Encore merci et longue vie à ce forum
Bonne après-midi

Chris

rebonjour

ci joint une adaptation à remplacer dans mon classeur précedent , qui permet de différencier les mots composés par un tiret "debut-fin" et les tirets de séparation ( avec un espace de chaque coté ) " - "


Sub ExtractionCellules_V02()
'michelxld le 04.01.2005
'http://www.excel-downloads.com/html/French/forum/messages/1_138244_138244.htm
Dim Cell As Range
Dim I As Integer
Dim J As Byte, K As Byte
Dim Cible As String

For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cible = Cell & " - "
K = 1

For I = 1 To Len(Cible)
J = InStr(I, Cible, " - ")
K = K + 1
Cells(Cell.Row, K) = LTrim(Mid(Cible, I, J - I))
I = I + Len(Mid(Cible, I, J - I)) + 2
Next I

Next Cell

End Sub


bon fin d'apres midi
MichelXld

Bonjours à tous
Bonjour Michel

un seul mot "splendide"
cela fonctionne à merveille, j'ai fait des tas de test hier soir (c'est pour cela que je ne repond que ce matin)

Encore un grand merci
bonne journée

@+
Chris