Macro qui fait un listing

chris

XLDnaute Barbatruc

• 1 Mars 2018

• #2

Bonjour

Quelle est ta version Excel ?

 

Vote positif 0 Vote négatif

S

sircroco

XLDnaute Nouveau

• 1 Mars 2018

• #3

Bonjour Chris, 2013

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Mars 2018

• #4

Bonjour,

j'ai cru reconnaître le code d'une personne du forum🙂

ma réponse en vba ou tcd 😉

P.

 

Pièces jointes

• Alpha v1sm.xlsm

  32.2 KB · Affichages: 27

Vote positif 0 Vote négatif

S

sircroco

XLDnaute Nouveau

• 1 Mars 2018

• #5

Oui mais malheureusement sa macro finale ne correspond pas vraiment à ce que j'attendais.

On y arrive... votre macro n'a pas pris en compte deux choses importantes :

- Dans Sheet2 je souhaite uniquement les colonnes Magasins et articles
- Dans Sheet2 toujours, je ne veux pas qu'on fait apparaître plus de deux fois le même couple Magasin-Article car c'est inutile, c'est-à-dire, voilà ce qu'on doit avoir en résultat sur Sheet2:

Magasin Article
150 BMW M3
150 RS3 AUDI
200 CLIO3

Car il n'y a aucune ligne avec l'année 2018 sur ces couples Magasin-Article.


Je vous remercie énormément de votre compréhension.

 

Vote positif 0 Vote négatif

S

sircroco

XLDnaute Nouveau

• 1 Mars 2018

• #6

En résumé, je souhaite que votre macro donne tous les couples Magasin-Articles pour lesquels il n'y a pas de commandes en 2018. (Facile à identifier avec le TCD)

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Mars 2018

• #7

re,
j'ai mis l'année pour justement savoir quelles sont les années gardées, et on le vérifie ainsi..

ceci dit le TCD fait ce que tu demandes et sans macro !

Une macro est utile s'il y des milliers ou dizaines de milliers (voire plus) de lignes 🙂

P.

 

Vote positif 0 Vote négatif

S

sircroco

XLDnaute Nouveau

• 1 Mars 2018

• #8

Justement enfaite... j'aurais des cas dans mon travail où j'aurai plus de 100 000 lignes ... c'est pour ça que je veux un moyen autre que le TCD

 

Vote positif 0 Vote négatif

S

sircroco

XLDnaute Nouveau

• 1 Mars 2018

• #9

Ou peut être... Comment obtenir tous les couples magasins qui n'ont pas de commandes en 2018 très rapidement avec le TCD ?

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Mars 2018

• #10

En connaissant ta version d'excel, ça aurait été mieux 🙂
Avec les TCD et segments on fait ça rapidement

P.

 

Pièces jointes

• Alpha v1sm.xlsm

  32 KB · Affichages: 24

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 1 Mars 2018

• #11

Bonjour à tous

Multipost !

J'ai proposé PowerQuery qui évite de toucher aux sources (en add on sur 2013)...
@ suivre

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 1 Mars 2018

• #12

Bonsoir à tous, 🙂

à tester :

VB:

Option Explicit
Sub test()
Dim a, i As Long, txt As String, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    a = Sheets(1).Range("a1").CurrentRegion.Value
    For i = 2 To UBound(a, 1)
        If a(i, 3) <> 2018 Then
            txt = Join$(Array(a(i, 1), a(i, 2)), Chr(2))
            dico(txt) = VBA.Array(a(i, 1), a(i, 2))
        End If
    Next
    For i = 2 To UBound(a, 1)
        If a(i, 3) = 2018 Then
            txt = Join$(Array(a(i, 1), a(i, 2)), Chr(2))
            If dico.exists(txt) Then
                dico.Remove txt
            End If
        End If
    Next
    With Sheets(2).Range("a1").Resize(, 2)
        .CurrentRegion.Clear
        If dico.Count > 0 Then
            .Value = Array("Magasin", "Article")
            With .Offset(1).Resize(dico.Count)
                .Value = Application.Transpose(Application.Transpose(dico.items))
            End With
        End If
    End With
    Set dico = Nothing
End Sub

klin89

 

Dernière édition: 1 Mars 2018

Vote positif 0 Vote négatif

S

sircroco

XLDnaute Nouveau

• 2 Mars 2018

• #13

Bonjour,

Merci à toi Klin89 ça fonctionne niquel, mais il reste un tout petit soucis, lorsque j'ai une référence "0083" par exemple, quand j'exécute la macro, ça se transforme en format nombre, donc on obtient "83", possible de conserver "0083" ? je souhaite absolument conserver le format tel qu'il a été.

Fichier :

 

Pièces jointes

• fonctionne.xlsm

  35.3 KB · Affichages: 25

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 2 Mars 2018

• #14

Bonjour,

il suffit de mettre AVANT **de lancer le code **le format texte dans les cellules de la sheet2 🙂

P.

 

Vote positif 0 Vote négatif

S

sircroco

XLDnaute Nouveau

• 2 Mars 2018

• #15

Merci j'allais tout juste pour prévenir que tout était bon, bah merci beaucoup à vous tous pour votre aide ! ça fait vraiment plaisir. A la prochaine !

 

Vote positif 0 Vote négatif