Tri dans une liste excel

Version imprimable

Bonjour tout le monde.
Voila je suis tres novice en VBA sous excel et j'aurais besoin de votre aide s'il vous plait.

Voila j'ai une feuille excel contenant plus de 500 avec plusieur ellement qui ce repete.
Je voudrais faire une tri en supprimant les doublons tous en comptant le nombre de ligne qu'il y avais de cette catégorie.
Pour le moment j'arrive a faire le tri ma pas a comptabilisé.
Exemple
fichier origine
GENERAL -
GENERAL -
GENERAL APPLI - CENTRALE/-
GENERAL APPLI - CENTRALE/-
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CST
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/CTU
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL
GENERAL APPLI - CENTRALE/ACTEUR STRUCTURE/SL

je voudrais obtenir
-
APPLI - CENTRALE/-
APPLI - CENTRALE/ACTEUR STRUCTURE/CST
APPLI - CENTRALE/ACTEUR STRUCTURE/CTU

Avec le nombre de ligne qu'il y a pour chaque catégorie.

Code que j'ai deja
Code:

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 Sub Tri() ' Variable ligne = 1 valeur = "" calcul = 1 nombre = 1 ' Tri While Range("A" & ligne).Value <> "" If Range("B" & ligne).Value <> valeur Then valeur = Range("B" & ligne).Value Sheets("Feuil2").Range("A" & calcul) = valeur calcul = calcul + 1 nombre = 1 Else nombre = nombre + 1 'Sheets("Feuil2").Range("B" & calcul) = Sheets("Feuil2").Range("B" & calcul) + 1 End If ligne = ligne + 1 Wend MsgBox "Fin du traitement" End Sub
Merci pour votre aide

03/10/2012, 13h58
Daniel.C

Bonjour,

1. Comment sont encolonnées les données ?
2. où met-on le nombre de lignes de chaque catégorie ?
03/10/2012, 15h20
thomaz

Bonjour,

tu veux absolument une macro ? une simple extraction sans doublon (ou supprimer les doublons selon ta version Excel) suffirait à mon avis.
04/10/2012, 09h54
titus49

Oui dsl je ne vous est pas mis le nom des colonnes.
en faite je fait un tri de la feuil1 copie sur la feuil2

Resultat souhaité

Colonne A --> Nom de l'appli
Colonne B --> Nombre de ligne pour chaque appli

Le fichier d'origine est

Colonne A --> typologie (gene/local)
Colonne B --> Nom de l'appli
Colonne C --> description

Merci de votre aide.

Bonsoir,

Code:

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
Sub test()
    Dim Plage As Range, Plage2 As Range, C As Range
    With Sheets("Feuil1")
        .Rows("1:1").Insert
        .Range("B1") = "c2"
        .Range("C1") = "c3"
        Set Plage = .Range(.[B1], .Cells(.Rows.Count, 3).End(xlUp))
        Plage.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
        Plage.Copy Sheets("Feuil2").[A1]
        Application.CutCopyMode = False
        .ShowAllData
    End With
    With Sheets("Feuil2")
        .[A:B].EntireColumn.AutoFit
        .Rows(1).Delete
        Set Plage2 = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Sheets("Feuil1")
        For Each C In Plage2
            .AutoFilterMode = False
            Plage.AutoFilter 1, C
            Plage.AutoFilter 2, C.Offset(, 1)
            Sheets("Feuil2").Cells(C.Row, 3).Value = Application.Subtotal(103, .[B:B]) - 1
        Next C
    End With
End Sub