Eclatement des données d'une cellules en plusieurs cellules

[ptitgars36]

Bonjour

Je cherche une fonction qui me permet d'éclater les données d'une cellules en plusieurs cellules comme sur l'image suivante



Merci

 

[Pierrot93]

Re : Eclatement des données d'une cellules en plusieurs cellules

Bonjour,

utilise peut être la conversion de données, onglet "données" => bouton "convertir"

bon après midi
@+

Edition : bonjour 00🙂

 

[DoubleZero]

Re : Eclatement des données d'une cellules en plusieurs cellules

Bonjour et bienvenue, ptitgars36, bonjour, Pierrot 😀, le Forum,

La même idée que Pierrot, par macro (insérée dans un module) :

Option Explicit
Sub Valeurs_convertir()
Range("c:i").Clear
Columns(1).TextToColumns Destination:=Range("c1"), 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), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), TrailingMinusNumbers:=True
    Columns("d:i").NumberFormat = "00"
End Sub

A bientôt 🙂

 

[ptitgars36]

Re : Eclatement des données d'une cellules en plusieurs cellules

OK merci, ça marche
Super

bonne soirée

 

[Staple1600]

Re : Eclatement des données d'une cellules en plusieurs cellules

Bonsoir à tous


00 (salut 😉 )
Je me permets ces quelques modifs
et je te laisse deviner pourquoi je me suis permis de les faire 😉
NB: Mieux vaut qu'il n'y ait pas de "trous" dans la colonne A, sinon ...
dans x= Derlig (comme d'hab 😉 )

Sub DoubleZeroBis()
Dim x&
With Columns(1)
x = .CurrentRegion.Rows.Count
.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), TrailingMinusNumbers:=True
End With
Range("E1").Resize(x, 7).NumberFormat = "00"
End Sub

 

[DoubleZero]

Re : Eclatement des données d'une cellules en plusieurs cellules

Re-bonjour, bonjour, Staple1600 😀,

... Je me permets ces quelques modifs... et je te laisse deviner pourquoi je me suis permis de les faire...

Saperlipopette 😡 : je suis et reste une bourrique !

Je n'ai pas su retenir la très récente leçon 😱.

Grand MERCI, Staple1600, de t'être permis 😀.

A bientôt 🙂🙂