Mettre sur une colone
Bonjour,
j'ai besoin d'aide.
J'ai dans une cellule A1 des texte qui sont sépare par des virgule, je souhaiterai mettre ce texte en colone en elevant les virgules, le probleme c'est que je veux faire la meme chose avec les cellulle A2 , A3 pour que tous le texte sois dans une meme colone
Bonjour
est-ce que le résultat attendu est le format du fichier joint ??
Bonsoir jéromechant, le forum,
Une piste...https://www.formuleexcel.com/comment-separer-une-colonne-en-plusieurs-colonnes-sans-formules/
Cordialement,
Bonjour,
c'est super mais , il est possible d'efface la colonne A pour n'avoir que la colone seul?
merci
Re,
Bien joué papyg,
Une variante, ctrl + e pour exécuter la macro,
Mais je n'ai aucun mérite, la macro étant de QuestVba,
Sub ExtractionNombres()
Dim Tableau() As String
Dim i As Integer
Application.ScreenUpdating = False
With Sheets("Feuil1").Range("A1")
.Select
Do
x = ActiveCell.Value
Tableau = Split(x, ", ")
For i = 0 To UBound(Tableau)
ActiveCell.Value = Tableau(i)
ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Activate
If i <> UBound(Tableau) Then Selection.EntireRow.Insert
Next i
Loop Until ActiveCell = ""
End With
End Sub
'macro de QuestVba
'https://www.developpez.net/forums/d1268820/logiciels/microsoft-office/excel/macros-vba-excel/repartir-contenu-d-cellule-plusieurs-lignes/Cordialement,