Fractionner une cellule en plusieurs lignes

Bonsoir à tous,

Je bute depuis quelques heures sur un problème de base de données..

Je dois séparer une ligne contenant des catégories (séparées par des "/") en plusieurs lignes.

Pour être plus explicite, voici deux captures correspondants à l'état actuel, et à l'arrivée souhaitée (la cellule rouge n'a rien à voir) :

Voilà, j'espère que cela est assez clair...

Merci d'avance,

Nicolas

Bonjour,

Sélectionner la plage et lancer la macro Decouper()

Les cellules doivent avoir 'retour à la ligne automatique'

eric

Bonjour Eric,

Merci pour cette réponse rapide !

Cependant, lorsque je lance la macro, le résultat est une séparation des éléments dans la même cellule..

Ce que je souhaiterais c'est que les éléments une fois séparés soient placés sur des lignes différentes.

Est-ce que c'est possible ?

Bonjour,

Sélectionner la cellule Faire Données > Convertir (avec le séparateur /)

Puis un Collage spécial Transposé.

A+

galopin01 a écrit :

Bonjour,

Sélectionner la cellule Faire Données > Convertir (avec le séparateur /)

Puis un Collage spécial Transposé.

A+

Bonjour Galopin,

Oui en effet, mais non cela ne convient pas car il me faut une création de ligne pour chaque nouvelle cellule.. (Voir PJ du premier post).

En gros, 3 données dans une cellule, qui deviennent 3 données dans 3 cellules différentes, les unes en dessous des autres.

Merci !

Bonjour,

Dans ce cas fournir un fichier avec quelques lignes d'exemples.

Préciser le nombre réel de lignes à traiter

Chaque ligne comporte-t-elle en colonne O des données à spliter ?

Dans la feuille 2 mettre au moins 1 modèle du résultat attendu : faut-il dupliquer le début de chaque ligne (de A à N)

A+

Merci.. !

• Le nombre de lignes à traiter est de 4968, précisément.
• Chaque ligne O contient des données à spliter,
• Il ne faut pas dupliquer de A à N, ces cellules doivent être vides,

Voici le fichier en PJ : rdi2:

Bon...

Heureusement que je te demande quelques lignes d'exemple !

Pour la peine tu auras une macro pas testée.

Option Explicit
Sub galopin()
Dim i%, ii%, iii%, iLR%, Arr
iLR = Range("O" & Rows.Count).End(xlUp).Row
For i = iLR To 2 Step -1
Arr = Split(Cells(i, 15), "/")
ii = UBound(Arr)
If ii > 0 Then
   For iii = 1 To ii
      Rows(i + 1).Insert Shift:=xlDown
   Next
   For iii = 0 To ii
      Cells(i + iii, 15) = Arr(0 + iii)
   Next
End If
Next
End Sub

A+

ERRATUM..

Malheureusement j'ai encore un petit soucis, finalement je dois conserver chaque première partie avant le "/"...

En gros les cellules doivent ressembler à ça :

• Outillage à main/Traçage et mesure/Règles
• Outillage à main/Traçage et mesure
• Outillage à main

Au lieu de :

• Outillage à main
• Traçage et mesure
• Règles

@ Galopin une petite idée ?

Désolé, j'imagine que cela doit changer pas mal de choses dans la macro que tu m'a donné (qui marchait parfaitement cela dit )...

Merci d'avance