Discussion :

[Cygnus]

Bonjour à tous,

mon besoin est a la fois simple, et difficile a expliquer, j'ai donc fait un schéma, plutot que de long discours :



J'ai une liste d'origine, et j'aurais besoin d'identifier rapidement les items ayant les memes attributs, soit en rajoutant une colonne avec les items similaires, ou bien en les regroupant.

j'imagine que ca doit etre faisable via un tableau croisé dynamique, mais je suis une vraie buse en excel ..

Merci d'avance a tous !

[Invité]

Bonsoir,
Un simple tri sur 2 clés donnera le résultat escompté hormis les lignes vides.
Donc [Données > Trier > Attribut1 et Attribut2 sur la seconde ligne].

Cordialement.
Jean-Claude.

[Cygnus]

Bonsoir,
Un simple tri sur 2 clés donnera le résultat escompté hormis les lignes vides.
Donc [Données > Trier > Attribut1 et Attribut2 sur la seconde ligne].

Cordialement.
Jean-Claude.

Merci Jean-Claude, ca pourrait effectivement faire l'affaire meme si j'avais un peu simplifié le souci pour le présenter

En fait j'ai besoin de continuer a saisir les données comme montré.

Y a t'il possibilité de saisir les données sous une forme dans une feuille et avoir un rendu trié dans l'autre feuille ?

Merci encore

[Invité]

Bonsoir,

Le code suivant est à copier dans "Code" de la feuille [DONNEES] (nom que j'ai adopté et donc à modifier si besoin est. De même la feuille de tri est nommée
DONNEES TRIEES

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    cel = ActiveCell.Address
    Tri
    Sheets("DONNEES").Select
    Range(cel).Select
    Application.ScreenUpdating = True
End Sub

Il faut ensuite insérer un module et y copier le code qui suit:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub Tri()
    Dim chaine() As String
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets("DONNEES TRIEES").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
        , Order2:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    nbrelig = Selection.Rows.Count
    Cells(1, 4).Value = "TRI"
    ReDim chaine(nbrelig)
    chaine(2) = ""
    For lig = 2 To nbrelig
        For col = 2 To 3
            chaine(lig) = chaine(lig) & Cells(lig, col).Value 'Concaténation par colonne
        Next col
    Next lig
    For lig = 2 To nbrelig - 1
        un = IIf(chaine(lig) = chaine(lig + 1), True, False)
        If chaine(lig) = chaine(lig + 1) And un Then
            Cells(lig, 4) = "X"
            Cells(lig + 1, 4) = "X"
        End If
    Next lig
    Selection.CurrentRegion.Select
    Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Columns(4).ClearContents
End Sub

Si tu ne connais pas VBA et qu'il te faut des explications n'hésite pas à le faire savoir.
Avec cette procédure tu peux saisir un nombre de lignes indéterminé mais sur 3 colonnes uniquement soit 2 colonnes "attributs" le tri ne supportant que 3 paramètres.

Cordialement.
Jean-Claude

[Philippe Tulliez]

Bonjour,

Avec cette procédure tu peux saisir un nombre de lignes indéterminé mais sur 3 colonnes uniquement soit 2 colonnes "attributs" le tri ne supportant que 3 paramètres.

Si la procédure ne permet que trois niveaux de tri, il y a une astuce pour l'augmenter.
Il suffit d'ajouter une colonne contenant la concaténation des colonnes à trier.
Exemple d'une concaténation en colonne A permettant de trier 5 colonnes

Code :

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

=B2 & D2 & F2 & E2 & C2

Le tri se faisant alors sur cette colonne