Différencier les niveaux des sous-niveaux dans une liste

Question

Bonjour à tous ! Je travaille sur une liste de produits à plusieurs niveaux, soit fabriqués soit achetés. Je souhaite connaître uniquement les niveaux de tête achetés. Pour cela je dispose d'une colonne pré-renseignée qui m'indique si le produit, quel que soit le niveau, est acheté ou non. Or, cette colonne ne différencie pas les niveaux achetés, exemple : si j'achète une "chemise", les sous-niveaux "bouton", "col", "manche" vont aussi être indiqués achetés. Pour être plus parlant, j'attache un fichier exemple avec le résultat voulu en colonne D. Ma liste de produits est profonde sur 9 niveaux et compte plusieurs milliers de lignes. Existe-t-il une solution simple et efficiente (de préférence sans VBA) pour arriver à mes fins ? Merci par avance pour toute aide ...

Klin89 · Accepted Answer

Re Griftr,

Comme dit précédemment, avec la méthode ColumnDifferences.

Essaie ceci sur le premier fichier :

Option Explicit
Sub test()
Dim rng As Areas, r As Range, i As Long
With Sheets("Feuil1")
    With .Range("B2", .Cells(Rows.Count, 2).End(xlUp))
        Set rng = .ColumnDifferences(.Cells(1)).Areas
    End With
    For Each r In rng
        For i = 1 To r.Count
            If r(i).Offset(, -1) = r(1).Offset(, -1) Then
                r(i).Offset(, 1) = "Achat"
            Else
                r(i).Offset(, 1) = "Achat nv sup"
            End If
        Next
    Next
    On Error Resume Next
    With .Range("B2", .Cells(Rows.Count, 2).End(xlUp))
        .Offset(, 1).SpecialCells(4) = "Fab"
    End With
    On Error GoTo 0
End With
Set rng = Nothing
End Sub

klin89

78chris · Answer

A tester en D2 à étirer =SI(B2="Fab";B2;SI(ET(A2&gt;=A1;B1="Achat");"Achat nv sup";"Achat"))...

Klin89 · Answer

Vraiment pas très clair ton exemple parlant Manuellement, je procéderais comme ceci. J'insèrerais une colonne pour indexer les lignes pour rétablir leur position initiale à la fin du traitement qui va suivre. J'insèrerais une ligne vide avant chaque occurrence "Fab" en colonne B pour délimiter chaque zone. J'appliquerais un tri ascendant sur chaque zone en m"appuyant sur la colonne A. A parti de là, on définirait les différents niveaux d,"achat de chaque zone en s'appuyant sur la formule de 78chris. Une fois défini, processus inverse on supprimerait les lignes vides et on rétablirait la position initiale des lignes de ton tableau via la colonne index. Voilà ma réponse aussi tarabiscotée que la problématique exposée. Édit : fais le manuellement sur quelques zones et dis-nous si tu obtiens le résultat souhaité. klin89...

78chris · Answer

J'avais testé une autre formule mais on avait toujours 2 écarts, ailleurs Sauf si tu arrives à définir l’algorithme je ne pense pas que cela soit possible en l'état que ce soit par formule ou code.....

Klin89 · Answer

Re à tous,

As-tu essayé la méthode ColumnDifferences de l'objet Range ?

Tu peux ainsi parcourir toutes les plages de la colonne B contenant le mot "Achat" et comparer chaque cellule de la colonne A avec la valeur de la cellule se trouvant en 1ère position de chaque plage.

klin89