Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
2109 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Conversion plusieurs lignes dans une cellule en plusieurs cellules

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Conversion plusieurs lignes dans une cellule en plusieurs cellules

n°2343390
ap75
Posté le 19-12-2019 à 00:31:53  profilanswer
 

:hello: à tous,
 
Je sollicite votre aide à tous car je souhaiterais me servir d'une macro Excel d'exporter plusieurs lignes d'une même cellule dans des cellules différentes.
 
Un petit schéma simple de ce que je souhaiterais obtenir:
 
https://i.goopics.net/0jL29.jpg
 
Passer de la cellule D5 aux colonnes E5 F5 et G5.
 
Merci pour votre aide :)


---------------
Ancien feedback http://forum.hardware.fr/hfr/Achat [...] 6098_1.htm
mood
Publicité
Posté le 19-12-2019 à 00:31:53  profilanswer
 

n°2343492
patrice337​40
Avec la réponse, c'est facile.
Posté le 21-12-2019 à 09:05:00  profilanswer
 

Bonjour,
 
Essaies comme ça :
Option Explicit

Code :
  1. Sub Test()
  2. Dim source As Range
  3. Dim cible As Range
  4. Dim table As Variant
  5.    Set source = Worksheets("Feuil1" ).Range("D5" )
  6.    Set cible = Worksheets("Feuil1" ).Range("E5" )
  7.    table = Split(source.Value, vbLf)
  8.    cible.Resize(1, UBound(table) + 1).Value = table
  9. End Sub


 
Tu peux aussi faire la même chose sans macro
1) copier la source (D5) vers la cible (E5)
2) Données / Convertir / Délimité / Suivant / Décocher tous les séparateurs et cocher Autre avec pour valeur Alt+0010 / Terminer


---------------
Cordialement, Patrice
n°2343500
ap75
Posté le 21-12-2019 à 12:07:52  profilanswer
 

patrice33740 a écrit :

Bonjour,

 

Essaies comme ça :
Option Explicit

Code :
  1. Sub Test()
  2. Dim source As Range
  3. Dim cible As Range
  4. Dim table As Variant
  5.    Set source = Worksheets("Feuil1" ).Range("D5" )
  6.    Set cible = Worksheets("Feuil1" ).Range("E5" )
  7.    table = Split(source.Value, vbLf)
  8.    cible.Resize(1, UBound(table) + 1).Value = table
  9. End Sub
 

Tu peux aussi faire la même chose sans macro
1) copier la source (D5) vers la cible (E5)
2) Données / Convertir / Délimité / Suivant / Décocher tous les séparateurs et cocher Autre avec pour valeur Alt+0010 / Terminer

 


Merci beaucoup pour ton aide et d'avoir pris le temps de me donner la solution :)
C'est parfait !


Message édité par ap75 le 21-12-2019 à 12:08:14

---------------
Ancien feedback http://forum.hardware.fr/hfr/Achat [...] 6098_1.htm

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Conversion plusieurs lignes dans une cellule en plusieurs cellules

 

Sujets relatifs
Fonction mail() de PHP avec plusieurs serveurs SMTPRequete pour traitement de plusieurs Projets
Regrouper plusieurs lignes d'une seule table avec un ID communMacro Excel à executer sur une cellule selectionné
Diviser un gros document Word en plusieurs Word unique (1200 pages)bash- recherche lignes dans bloc et affichage dans tableau
Problème pour créer une plateforme de conversion de monnaie avec vbaRécupérer une valeur suivant cellule
Plusieurs pages html appellent le même menu. Possible svp ? 
Plus de sujets relatifs à : Conversion plusieurs lignes dans une cellule en plusieurs cellules


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR