Séparer valeur d'une cellule en plusieurs lignes

ted1057 · 7 Juillet 2016

Bonjour à tous,

Je travaille actuellement sur un dossier me permettant de créer des Fiches de suivi de fabrication.
J'ai des données inscrites dans une cellule, dans un fichier planning, sous la forme suivante :
"espace" - "espace" texte 1
"espace" - "espace" texte 2
"espace" - "espace" texte 3
...

J'aimerais, sous VBA, séparer les informations, de la feuille "Suivi Affaires", de cette cellule en plusieurs lignes dans l'onglet "Fiche OF".

En pièce jointe un dossier d'exemple.

gosselien · 7 Juillet 2016

Bonjour,

juste 2 remarques:
- la fusion de cellules est à proscrire, ça pose bcp de problèmes
- la colonne K est vide, donc en cas de tri, elle ne suivra pas et si tu as d'autres données, ça va foutre le bordel ...

Pourquoi tout mettre dans la même cellule (E6) et ne pas recopier comme dans une vraie base de données, le devis, le n° d'affaire etc etc autant de fois qu'il y a de "taches à effectuer" ?

Ensuite on sait aller chercher les différentes lignes qui concernent l'affaire 1545...
C'est juste mon avis

P.

CISCO · 7 Juillet 2016

Bonjour

Une possibilité en pièce jointe avec une formule. Cf. aussi la définition de texteutile dans le gestionnaire de noms.

@ plus

P.S : Bonjour Gosselien.

ted1057 · 8 Juillet 2016

gosselien à dit:
Bonjour,

juste 2 remarques:
- la fusion de cellules est à proscrire, ça pose bcp de problèmes
- la colonne K est vide, donc en cas de tri, elle ne suivra pas et si tu as d'autres données, ça va foutre le bordel ...

Pourquoi tout mettre dans la même cellule (E6) et ne pas recopier comme dans une vraie base de données, le devis, le n° d'affaire etc etc autant de fois qu'il y a de "taches à effectuer" ?

Ensuite on sait aller chercher les différentes lignes qui concernent l'affaire 1545...
C'est juste mon avis

P.

J’énumère les tâches à effectuer afin quelles apparaissent sur le planning de production et également sur des étiquettes que je colle sur les dossiers.

ted1057 · 8 Juillet 2016

CISCO à dit:
Bonjour

Une possibilité en pièce jointe avec une formule. Cf. aussi la définition de texteutile dans le gestionnaire de noms.

@ plus

P.S : Bonjour Gosselien.

Je ne connaissais pas cette formule, elle pourra m'être utilise pour d'autres projets. Malheureusement, elle ne sera pas utilisable dans mon fichier du fait de la structure du fichier de base.

ted1057 · 8 Juillet 2016

Bonjour à tous,

Merci pour vos réponses.
Après différents tests, j'ai enfin trouvé un code qui marchait bien.
Si dessous, le code utilisé

Code:

Sub fiche_OF()

Dim s As Variant, i As Byte, c As Variant

Sheets("Suivi Affaires").Select

Nb_row = Cells(Rows.Count, "a").End(xlUp).Row
Cells(Nb_row, 5).Select
s = Split(Cells(Nb_row, 5), vbLf)
For i = 0 To UBound(s)
Sheets("OF Origine").Select
    Cells(i + 9, 2).Value = s(i)
Next i
    For Each c In Selection
  c.Value = Replace(c.Value, " - ", "")
  Next c
  End Sub

CISCO · 8 Juillet 2016

Bonjour

Ma précédente proposition n'était qu'un exemple, que le début d'une possibilité, ne fonctionnant qu'avec le contenu de Suivi d'Affaires!E6. Ci-joint, une nouvelle possibilité, plus polyvalente, toujours avec une formule à tirer vers le bas, et en fonction du N° d'affaire donné dans Fiche OF!E3 (donc pas seulement avec le contenu de Suivi d'Affaires!E6).

Merci pour le code VBA.

@ plus

Séparer valeur d'une cellule en plusieurs lignes

ted1057

XLDnaute Occasionnel

Pièces jointes

gosselien

XLDnaute Barbatruc

CISCO

XLDnaute Barbatruc

Pièces jointes

ted1057

XLDnaute Occasionnel

ted1057

XLDnaute Occasionnel

ted1057

XLDnaute Occasionnel

CISCO

XLDnaute Barbatruc

Pièces jointes

Discussions similaires