[XL-2003] tri par une partie de la ligne [Résolu]

[ghatfan99]

bonjour tout le monde,
j'ai une table excel sous la forme, les entêtes

client adresse1 adresse2 adresse3
durand ad1 ad2 ad3
henri ad1 ad2 ad3
mari ad55 ad59 ad56
martin ad22 ad27 ad76
henri ad22 ad27 ad76

je veux faire une ligne par groupe d'adresses même en gardant le premier client pour chaque groupe c'est-à-dire le résultat comme:
client adresse1 adresse2 adresse3
durand ad1 ad2 ad3
mari ad55 ad59 ad44
martin ad22 ad27 ad76

Merci d'avance

[mercatog]

Bonsoir
Utilise un filtre avancé:
Action: Copier vers un autre emplacement
Plages: Ta plage de données
Zones de critères: laisse là vide
Copier dans: choisi l'emplacement vers où tu veux copier
Extraction sans doublons: cochée

[gFZT82]

Bonjour ghatfan99,

Une solution avec VBA

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim DerLig As Long
    With Worksheets("Feuil1") 'A adapter
        'La plage initiale est range("A1:D6") pour ton exemple
        'On recherche la dernière ligne renseignée en colonne A
        DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
        'On applique un filtre avancé avec extraction sans doublon sur les 3 colonnes du groupe d'adresses
        .Range("B1:D" & DerLig).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
        'On copie le résultat en feuille 2
        .Range("A1:D" & DerLig).Copy Destination:=Worksheets("Feuil2").Range("A1")
        'On réaffiche toutes les lignes de la liste filtrée
        Worksheets("Feuil1").ShowAllData
    End With
End Sub

Note bien que la même chose est réalisable sans VBA.

Cordialement.

[ghatfan99]

merci pour votre aide c'est fait.