Probleme sur Fonction Split

Version imprimable

Bonjour,

J'ai une colonne A comportant plusieurs valeurs dans la meme cellule
"01280180 01280128 02180410"

J'ai donc mis en execution le code ci dessous afin qu il me permette de découper mes cellules afin d'avoir une seule valeur pas cellule comme ceci :

01280180
01280128
02180410

Mon probleme c'est que le code tourne sans erreur mais rien ne se passe, pourtant ca m'a l'air correct, mais je ne comprends pas, auriez vous une idée
Merci
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub AligneEnColonne() Sheets("multi2").Range("a1").Select Dim Cellule As Range Dim i As Integer For Each Cellule In Range("a1:a" & Range("a6536").End(xlUp).Row) For i = 0 To UBound(Split(Cellule, " ")) Debug.Print Split(Cellule, " ")(i) Next i Next Cellule Call supprimeDoublons End Sub

Bonjour,
Ce code ci conviendrait mieux mais où dois-tu écrire le résultat

Code:

1
2
3
4
5
6
7
Dim myTab As Variant
 For Each Cellule In Range("a1:a" & Range("a6536").End(xlUp).Row)
  myTab = Split(Cellule, " ")
  For i = 0 To UBound(myTab)
   Debug.Print myTab(i)
  Next i
 Next Cellule

Bonjour,

Merci beaucoup de ton aide j ai ajouté une ligne pour écrire mon résultat

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub AligneEnColonne()
Dim myTab As Variant
 For Each Cellule In Range("a1:a" & Range("a6536").End(xlUp).Row)
' If Cellule = "" Then
  myTab = Split(Cellule, " ")
  For i = 0 To UBound(myTab)
   Debug.Print myTab(i)
   Sheets("multi2").Range("B65536").End(xlUp).Offset(1, 0).Value = myTab(i)
  Next i
'  End If
 Next Cellule

Bonjour
Tu peux gagner une boucle (et du temps) ainsi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub AligneEnColonne()
Dim LastLig As Long
Dim myTab As Variant
Dim c As Range
 
Application.ScreenUpdating = False
With Sheets("Feuil6") ' à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For Each c In Range("A1:A" & LastLig)
        If c.Value <> "" Then
            myTab = Split(c.Value)
            With Sheets("multi2")
                .Cells(.Rows.Count, "B").End(xlUp)(2).Resize(UBound(myTab) + 1, 1) = IIf(UBound(myTab) = 0, myTab, Application.Transpose(myTab))
            End With
            Erase myTab
        End If
    Next c
End With
End Sub

Code:

1
2
myTab = Split(c.Value)
myTab = Split(c.Value, " ")

Si le séparateur est l'espace, tu peux t'en passer dans split