Macro separer cellule a donnees multiples

[choupi_nette]

Bonjour,
Dans le fichier ci joint, j'ai des cellules qui contiennent plusieurs valeurs
Quelqu'un saurait me refaire le meme tableau mais avec une valeur par cellule ?
En version macro cela pourrait m'aider a convertir beaucoup de tableaux comme celui la...
Merci pour votre aide

 

[Pierrot93]

Re : Macro separer cellule a donnees multiples

Bonjour,

regarde peut être du coté de laconversion de données, barre de menu Excel => Données => Convertir....

bonne journée
@+

 

[choupi_nette]

Re : Macro separer cellule a donnees multiples

Bonjour,
C'est deja fait mais c'est une colonne a la fois !!!
Une macro irait beacoup plus vite non?
Choupi

 

[Pierrot93]

Re : Macro separer cellule a donnees multiples

Re,

bah tu peux essayer en utilisant l'enregistreur de macro et en convertissant tes colonnes... ensuite te reste plus qu'à optimiser un peu le code....

 

[choupi_nette]

Re : Macro separer cellule a donnees multiples

Re,
Oui deja essayé mais c'est toujours valable que pour une colonne
Ensuite je ne sais pas lui dire passe a la suivante et enfin le code est exclusif pour la colonne B !!

Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
End Sub

 

[Pierrot93]

Re : Macro separer cellule a donnees multiples

Re,

une adaptation pour 3 colonnes :

Dim i As Byte
For i = 1 To 3
Columns(i).TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Next i

 

[choupi_nette]

Re : Macro separer cellule a donnees multiples

Re,
Est si compliqué de faire ca pour toute une feuille excel ?
chaque cellule ce qu'elle contient va dans une cellule individuelle ?
merci

 

[Pierrot93]

Re : Macro separer cellule a donnees multiples

Re,

bah... adapte le nombre de colonnes, ou si celui-ci est variable modifie comme suit la première ligne :

For i = 1 To Range("IV1").End(xlToLeft).Column

 

[choupi_nette]

Re : Macro separer cellule a donnees multiples

Re,

Bah... ca marche pas.. ca a l'air tellement evident pour toi que ca ne fonctionne pas
Desolée

 

[Pierrot93]

Re : Macro separer cellule a donnees multiples

Re,

le mieux serait peut ête d'intervenir lors de l'intégration des données....

 

[laetitia90]

Re : Macro separer cellule a donnees multiples

bonjour choupi_nette , l'ami Pierrot🙂🙂

essai comme cela attention si beaucoup de lignes passer par un "tablo" plus rapide
excel 2003... 256 colonnes maxi

Sub es()
Dim c As Range, nb As Byte
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 For Each c In ActiveSheet.UsedRange
 c = Application.WorksheetFunction.Trim(c)
 c = Application.WorksheetFunction.Clean(c)
 Next c
 nb = 1
 For Each c In Range("B1", Cells(Rows.Count, "b").End(xlUp))
 Do Until c.Offset(0, nb).Value = ""
 c.Offset(0, 0) = c & " " & c.Offset(0, nb)
 nb = nb + 1
 Loop
 nb = 1
 c.TextToColumns c, xlDelimited, , , , , , , True, " "
 Next c
 Columns("a:iv").AutoFit
End Sub

 

[pierrejean]

Re : Macro separer cellule a donnees multiples

Bonjour choupi_nette, ami Pierrot 😉 , Laeticia 😉

Une autre interpretation (mais peut-etre y-en-t-il encore une autre !!! )