Discussion :

[misig]

Bonjour,
j'ai un document excel avec plusieurs colonnes et plusieurs lignes dont l'exemple suivant:

a b c d e f
g h i
j k l m n o p
q r
s t u v w x y z

j'aimerais tout mettre et trier dans la colonne 1 et donc de la forme:

a
b
c
d
e
f
g
h
j
k
l
...

en sachant que je ne connais pas d'avance le nombre de lignes ni le nombre de colonnes; il se peut que la ligne 2 contient 3 colonnes mais que la ligne 5 en contient 10.

l'idéal serait aussi de garder la feuille1 du fichier et de copier le résultat dans une nouvelle feuille à être créée

Merci

[PPz78]

Voici une première version pour débutants avec des boucles imbriquées.

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
20
21
22
23
24
25
Sub version()
' Initialisation
    Ic_F2 = 0
    Il = 0
 
' Boucles
    Do              ' Boucle sur les lignes
        Il = Il + 1
        Ic = 0
        If Sheets("Feuil1").Cells(Il, 1) = "" Then Exit Do
        Do          ' Boucle sur les colonnes
            Ic = Ic + 1
            If Sheets("Feuil1").Cells(Il, Ic) = "" Then Exit Do
            Ic_F2 = Ic_F2 + 1
            Sheets("Feuil2").Cells(Ic_F2, 1) = Sheets("Feuil1").Cells(Il, Ic)
        Loop
    Loop
 
' Tri de la colonne 1
    Sheets("Feuil2").Select
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,  Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

A+
PPz

[misig]

Merci beaucoup PPz78...ta solution fonctionne bien