Modification macro

[Moreno076]

Bonsoir

Je souhaiterais modifier une macro et je n'y arrive.

Dans le fichier ci-joint j'ai trois onglets. Dans le premier onglet, lorsque je clique sur le bouton Synthèse, il me cumule les lignes des 2 autres onglets.

Mon but est que cette synthèse soit classée automatiquement par ordre via la colonne "Code" et qu'il y ait un quadrillage autour des cellules comme dans les deux autres onglets.

Le top du top serait que lorsqu'il y a un doublon (code identique dans la colonne "Code", qu'une seule ligne apparaisse, celle provenant de l'onglet reappro.

Une solution les amis?

Merci

 

[JCGL]

Re : Modification macro

Bonjour à tous,

Un essai avec une modification de la partie tri nécessaire (je n'ai pas XL 2003 sous la main) :

Option Explicit


Sub Consolide()
Dim Feuille, NLig&, NCol&, DerL&, Lig&
DerL = Recap.Range("A" & Rows.Count).End(xlUp).Row

    ActiveSheet.Unprotect
    Sheets("recap").[A1].CurrentRegion.Offset(1, 0).ClearContents
    For Each Feuille In Array("Rupture", "Reappro")
        NLig = Sheets(Feuille).[A65000].End(xlUp).Row - 1
        NCol = Sheets(Feuille).[A1].CurrentRegion.Columns.Count
        [A65000].End(xlUp).Offset(1, NCol).Resize(NLig, 1).Value = Sheets(Feuille).Name
        [A65000].End(xlUp).Offset(1, 0).Resize(NLig, NCol).Value = _
        Sheets(Feuille).[A2].Resize(NLig, NCol).Value
    Next Feuille


    With ActiveWorkbook.Worksheets("recap").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues
        .SetRange Range("A2:J100")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    For Lig = 2 To DerL
    If Cells(Lig, 1) = Cells(Lig + 1, 1) And Cells(Lig, 10) = "Rupture" Then Rows(Lig).Delete
    Next Lig
    
End Sub

A+ à tous

 

[Moreno076]

Re : Modification macro

Bonjour JCGL. Je n'ai pas reussi à le faire avec mon fichier. Je te le rejoins complet. Dans la synthèse, il faudrait que la colonne CODE soit classée dans l'ordre croissant. et si il y a une ligne en doublon, de supprimer la signe provenant de l'onglet RUPTURE (pas de quantité en attente). Merci pour ton aide

 

[JCGL]

Re : Modification macro

Bonjour à tous,

Un essai qui doit être compatible toutes versions XL...

A+ à tous

 

[Moreno076]

Re : Modification macro

Malheureusement lorsque je clique sur Synthese de l'onglet recap, il y a un bug et du coup tout l'onglet synthese apparait en #ref

 

[JCGL]

Re : Modification macro

Bonjour à tous,

Remets les formules...

A+ à tous

Edition : Rajoute ce bout de code entre Next Lig et End Sub :

With Feuil3
Range("B2:J12").Formula = "=Recap!RC[-1]"
End With

 

[Moreno076]

Re : Modification macro

Oui je les ai remis dnas l'onglet SYNTHESE mais dnas l'onglet recap lorsque je clique sur le bouton j'ai une erreur sur le macro :-(

 

[JCGL]

Re : Modification macro

Bonjour à tous,

Fonctionne chez moi

A+ à tous

 

[Moreno076]

Re : Modification macro

Fonctionne pas chez moi je pense que c'est ma version d excel du coup.

Ci joint le message d erreur

Merci en tout cas de ton aide.

Cordialement

 

[JCGL]

Re : Modification macro

Bonjour à tous,

Peux-tu essayer ce fichier ?

A+ à tous

 

[Moreno076]

Re : Modification macro

Ca fonctionne ce coup ci bravo !!!

Par contre je sais que ca ne va pas fonctionner selon le ligne de ligne des deux onglets extraction.
En effet fait les deux onglets extraction peuvent avoir 1 à 200 lignes par exemple, ce n'est pas fixe. Du coup je suis obligé de recopier les formules sur les onglets rupture et reappro. et de supprimer les lignes en trop.

En fait ce qui m'importe ce sont les onglets SYNTHESE et les onglets EXTRACTION RUPTURE / EXTRACTION REAPPRO / WMS

J'ai créer les onglets intermédiaires rupture reappro et recap car je ne sais pas du tout faire les macros.

Tu penses que c'est possible de se limiter à 4 onglets?

Merci encore de ta patience et de ton aide.