Discussion :

[Jeyjey1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jeyjey1]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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