Discussion :

[pascual]

Bonjour,

J'ai un tableau avec 24000 lignes et 29 colonnes.
Trier par ordre alphabétique ne me pose pas de problème en théorie, mais j'aimerais trier les valeurs sur une même ligne.

Par exemple j'aimerais que
L1: A; B; F; D; C; E
L2: D; A; C
L3: E; A; C; B
L4: A; D; B

devienne :
L1: A; B; C; D; E; F
L2: A; C; D
L3: A; B; C; E
L4: A; B; D

J'ai bien pensé à passer par une table transposée, mais avec 24000 ligne je vais avoir un petit souci...
Pour le moment je réfléchis à une solutions sous Excel, mais je suis preneur de toute solution autre, le tout c'est que à la fin je récupère toutes les valeurs au sein d'une même ligne par ordre alphabétique, même si ce n'est plus un classeur excel mais une fichier texte avec des séparateurs de champs.

Si ça n'est pas possible, je souhaiterais au minimum supprimer les doublons sur une même ligne, ça serait toujours ça de pris. J'ai trouvé une macro pour surligner les doublons en rouge, mais elle ne me permet pas de supprimer les susdits doublons, il faudrait que je me coltine les 672 000 cellules, ce qui est un petit peu fastidieux...
Et les outils excel ne semblent travailler que dans les colonnes et non dans les lignes.

Voila un exemple réel tiré de la table :

4651 aqua AmN litt
4652 aqua AmN ombre
4653 aqua AmN text AmN
4654 aqua AmS
4655 aqua arb litt Austr ombre
4656 aqua arb litt Austr ombre ombre
4657 aqua Asie lég

On voit qu'il y a des doublons au sein des lignes et qu'en plus les valeurs ne sont pas dans l'ordre.

[Daniel.C]

Bonjour,

Avec XL2007 ou ppostérieur :

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
Sub Tri()
    Dim inCalculationMode As Integer
    Application.ScreenUpdating = False
    inCalculationMode = Application.Calculation
    With Worksheets("Feuil1")
        For I = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Rows(I), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Rows(I)
            .Header = xlNo
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
        Next I
    End With
    Application.Calculation = xlCalculationManual
    Application.Calculation = inCalculationMode
    Application.ScreenUpdating = True
End Sub