XL 2010 Trier de A à Z et calculer les doublons.

[DAVID-44-]

Bonjour,
J'ai une feuille "commande" et un code pour faire un tri de A à Z de chaque section.
Je souhaiterais ajouter une fonction dans ce code afin de calculer les doublons et faire une seule ligne de ceux-ci.
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

[excfl]

Bonsoir le forum,

Bonsoir sylvanu, job75

Pour dénombrer les doublons :

 

[sylvanu]

Bonsoir David, Excfl,
J'ai supposé qu'il fallait compter par bloc et non pour l'ensemble.
En PJ un essai avec :

Sub Count_datas()
    Application.ScreenUpdating = False
    Filtrer_Data
    For L = Range("B65500").End(xlUp).Row To 3 Step -1
        If Cells(L, "B") = Cells(L - 1, "B") And Cells(L, "B") <> "" Then
            Cells(L - 1, "D") = Cells(L - 1, "D") + Cells(L, "D")
            Cells(L, 1).EntireRow.Delete
        End If
    Next L
End Sub

 

[DAVID-44-]

Bonjour excfl, sylvanu,
Super ça fonctionne
Est-il possible de garder la forme de la feuille sans supprimer les lignes des doublons ?
Merci de votre aide.
David.

 

[sylvanu]

Lorsque je supprime une ligne je rajoute une ligne vide à la fin du bloc courant.

 

[job75]

Bonsoir DAVID-44-, excfl, sylvanu,

Avec des tableaux structurés c'est vraiment très simple, voyez ce fichier et la macro :

Sub Filtrer_Doublons()
Dim LO As ListObject, P As Range, i&
Application.ScreenUpdating = False
For Each LO In Sheets("COMMANDE").ListObjects 'tableaux structurés
    Set P = LO.Range
    P.Sort P(1), xlAscending, P(1, 3), , xlAscending, Header:=xlYes 'tri sur 2 colonnes
    For i = P.Rows.Count To 2 Step -1
        If P(i, 1) = P(i - 1, 1) And P(i, 3) = P(i - 1, 3) Then
            If IsNumeric(P(i - 1, 2)) And IsNumeric(P(i, 2)) Then P(i - 1, 2) = P(i - 1, 2) + P(i, 2)
            P.Rows(i).Delete xlUp
        End If
Next i, LO
End Sub

A+

 

[DAVID-44-]

Bonsoir, excfl, sylvanu, job75,
Merci beaucoup, c'est parfait.
Bonne soirée.
Cordialement.

 

[DAVID-44-]

Bonjour excfl, sylvanu, job75,

sylvanu, j'utilise ton code. Sur la page en exemple cela fonctionne bien, mais sur mon classeur d'origine, les lignes "vides" sont supprimées, car il y a une formule dedans.
(ex : ='[2 - SEMAINE.xlsm]COMMANDE'!B31) !!!!
J'ai bien essayé de modifier, mais je n'y arrive pas.
Avez-vous une solution ?
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

[job75]

Bonjour DAVID-44-, le forum,

A priori les tableaux peuvent être n'importe où dans la feuille.

Il vaut donc mieux ne pas supprimer (ou insérer) des lignes mais redimensionner les tableaux, fichier (2) :

Sub Filtrer_Doublons()
Dim LO As ListObject, P As Range, n&, i&
Application.ScreenUpdating = False
For Each LO In Sheets("COMMANDE").ListObjects 'tableaux structurés
    Set P = LO.Range
    P.Sort P(1), xlAscending, P(1, 3), , xlAscending, Header:=xlYes 'tri sur 2 colonnes
    n = 0
    For i = P.Rows.Count To 2 Step -1
        If P(i, 1) = P(i - 1, 1) And P(i, 3) = P(i - 1, 3) Then
            If IsNumeric(P(i - 1, 2)) And IsNumeric(P(i, 2)) Then P(i - 1, 2) = P(i - 1, 2) + P(i, 2)
            P.Rows(i).ClearContents 'efface le contenu de la ligne
            n = n + 1 'compte les lignes effacées
        End If
    Next i
    If n Then
        P.Sort P(1), xlAscending, Header:=xlYes 'tri pour regrouper
        LO.Resize P.Resize(P.Rows.Count - n) 'redimensionne le tableau
        P.Rows(P.Rows.Count - n + 1).Resize(n).Clear 'RAZ si nécessaire
    End If
Next LO
End Sub

Bien sûr c'est aussi plus rapide.

A+

 

[mapomme]

Sur la page en exemple cela fonctionne bien, mais sur mon classeur d'origine, les lignes "vides" sont supprimées, car il y a une formule dedans.

Bonjour @DAVID-44-

114 messages publiés et vous ne fournissez pas un exemple représentatif de votre fichier !
C'est désespérant et à la limite méprisant vis à vis de ceux qui cherchent à vous aider.
Mais vous pouvez encore corriger le tir.

Si vous avez des formules, il est possible que les tris et les suppressions de lignes aboutissent à un résultat non désiré . Demandez vous si le but ultime n'est pas d'avoir des tableaux sans formule mais qui se mettent automatiquement à jour quand on sélectionne la feuille commande ? Ou bien conserver votre feuille commande mais ajouter une feuille "Clôture commande" qui reprend votre tableau sans formule, trié et dédoublonné avec mise à jour automatique ou bien une actualisation manuelle avec indication de la date et heure d'actualisation.

Étudiez aussi la solution de @job75 basée sur tes tableaux structurés.

 

[sylvanu]

Bonjour David,
Comme dit par MaPomme, ça, on ne peut pas l'inventer.
Donnez un fichier vraiment représentatif, ou utiliser la solution de Job.

 

[DAVID-44-]

Bonjour excfl, sylvanu, job75, mapomme,
Avant tout merci de votre aide et en aucun cas je veux être méprisant !
Aussi, si je vous communique que des feuilles qui ressemblent à celle que j'ai dans les classeurs, c'est avant tout pour que ma demande soit la plus simple et la plus claire possible. J'avoue que par moment mes questions ne sont pas très précises.
J'ai trois classeurs qui communiquent entre eux pour plusieurs fonctions différentes.
Je pense que vous allez prendre peur, car c'est une usine à gaz !!!!
La demande : Trier de A à Z et calculer les doublons correspond à la feuille "MENU LILIANE" dans le classeur "MENU".
Merci beaucoup de votre aide.
Bonne journée.
David.

 

[mapomme]

J'ai trois classeurs qui communiquent entre eux pour plusieurs fonctions différentes.
Je pense que vous allez prendre peur, car c'est une usine à gaz !!!!

Re ,

Effectivement, c'est assez touffu . Il va falloir qu'on s'y pencher attentivement.

nota : quant au 'méprisant', ce n'est pas méchant. C'est mon côté provocateur par moment.

 

[DAVID-44-]

Vous pensez faire plus simple ?

 

[mapomme]

Vous pensez faire plus simple ?

Il faut d'abord comprendre...
Mais même après avoir compris (ce qui n'est pas certain) je ne m'y risquerais pas ne connaissant pas l'activité et les tenants et aboutissants de votre projet.
Je vais plutôt me limiter au problème posé.