Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Séparer valeur d'une cellule en plusieurs lignes

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ted1057
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

ted1057

XLDnaute Occasionnel
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.
 

Pièces jointes

Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif

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.
 
Vote positif 0 Vote négatif
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.
Cliquez pour agrandir...

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.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
1 K
richard31
R
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
477
Yogean
Y
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
481
Sylvia57
S
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
452
aeca
A
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
769
Lu76Fer
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
636
Phil69970
G
  • Question Question
XL 2016 Comment concaténer plusieurs dates (provenant d'une formule) de différentes cellules en une seule cellule?
Réponses
4
Affichages
398
JHA
J
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
971
Nel'
N
D
  • Question Question
Microsoft 365 Épurer les lignes vides d'une cellule puis fractionner la cellule en plusieurs lignes
2
Réponses
20
Affichages
1 K
fanch55
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
985
Laliepomm
L
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
790
MarineU
M
J
  • Question Question
XL 2019 eclater une colonne en plusieurs pour utiliser les champs separement
Réponses
5
Affichages
698
jpsepe
J
A
  • Question Question
XL 2019 Filtre avancé en VBA
Réponses
12
Affichages
929
Amilo
A
T
  • Question Question
Microsoft 365 extraire plusieurs parties de texte dans le contenu d'une cellule
Réponses
4
Affichages
814
Cousinhub
X
  • Question Question
XL 2016 Gestion RH (renvoie de la valeur de la premier cellule d'une liste quand en fin de liste la cellule est vide)
Réponses
6
Affichages
899
xsara63
X
M
  • Question Question
Microsoft 365 Convertir données cellules en lignes
2 3
Réponses
38
Affichages
2 K
matmac
M
B
  • Question Question
XL 2016 Formule Recherche d'une cellule dans plusieurs onglets différents
Réponses
2
Affichages
602
oguruma
M
  • Résolu(e)
Microsoft 365 Prendre les 10 1ère valeur d'une plage en fonction de 2 critères
2 3
Réponses
43
Affichages
3 K
merinos-BernardEtang
B
  • Question Question
XL 2019 Création d'une base de données à partir de plusieurs fichiers Excel
Réponses
5
Affichages
2 K
battijo
B
C
  • Question Question
XL 2021 EXCEL IMPORTER du texte de plusieurs fichier en 1 fichier
Réponses
6
Affichages
797
Cousinhub
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…