XL 2021 Filtre par référence ou macro

[David62800]

Bonjour
je cherche un filtre ou une macro
1) faire un tri par référence donc colonne b
2) supprimer toutes les lignes dans la référence comporte qu'une seule ligne donc lorsque la référence est présente sur plusieurs lignes il faut les conserver
3) griser ou mettre en couleur une plage sur deux à chaque changement de référence dans la colonne b
Merci

Actuellement je fais tout manuellement et c'est très long
Je recherche donc à automatiser

 

[vgendron]

bonjour

pas bien compris.. mais au cas ou..

Sub extraire()
Dim Dico As Object
Dim TabData() As Variant
Dim tabfinal() As Variant
With ActiveSheet
    TabData = .Range("A1").CurrentRegion.Value
End With

Set Dico = CreateObject("Scripting.dictionary")

For i = LBound(TabData, 1) To UBound(TabData, 1)
    clé = TabData(i, 2)
    If Not Dico.exists(clé) Then
        Dico.Add clé, 1
    Else
        Dico(clé) = Dico(clé) + 1
    End If
Next i

nb = 0
For Each clé In Dico.keys
    If Dico(clé) <> 1 Then
        nb = nb + 1
        ReDim Preserve tabfinal(1 To 4, 1 To nb)
        tabfinal(2, nb) = clé
        For j = LBound(TabData, 1) To UBound(TabData, 1)
            If TabData(j, 2) = clé Then
                tabfinal(1, nb) = TabData(j, 1)
                tabfinal(3, nb) = TabData(j, 3)
                tabfinal(4, nb) = TabData(j, 4)
                Exit For
            End If
        Next j
    End If
Next clé
Sheets("Sheet2").Range("A5").Resize(UBound(tabfinal, 2), 4) = Application.WorksheetFunction.Transpose(tabfinal)

End Sub

 

[vgendron]

avec la mise des résultats dans une Table Structurée

 

[David62800]

Bonjour vgendron
Ça ne fonctionne pas ça me met un listing en feuille 2
Il faut trier dans la colonne b par référence
Supprimer les lignes qui n ont pas de doublon de référence
Et dans les lignes Restantes faire un tri par référence en grisant les lignes a chaque changement de référence

 

[David62800]

Non toujours le tri doit se faire par articles

 

[David62800]

Résultats attendus extrait

 

[David62800]

Résultats attendus extrait

 

[sylvanu]

Bonjour David, Gvendron,
Un essai en PJ.

 

[David62800]

Bonjour David, Gvendron,
Un essai en PJ.

Bonjour oui
Sauf que exemple les lignes 5.6.9.11 etc sont seuls donc devrait pas être visible

 

[vgendron]

voir PJ

 

[sylvanu]

Re,
Dans ma PJ je ne vois aucun élément qui n'ait qu'une référence. De quelle Article parlez vous ?
En PJ mon résultat filtré.

 

[David62800]

Re,
Dans ma PJ je ne vois aucun élément qui n'ait qu'une référence. De quelle Article parlez vous ?
En PJ mon résultat filtré.

Merci ça fonctionne a quoi sert la macro copie ?

 

[sylvanu]

a quoi sert la macro copie

A rien.
Mais comme pour les tests il faut souvent revenir avec le tableau initial, cette macro récupère une copie du tableau initial en Sheet3 et la remet en Sheet1. Vous pouvez la supprimer ainsi que le bouton qui va avec .