XL 2016 Extraction données provenant d'une autre feuille de calcul

[profcg]

Bonjour,
Je me permets de solliciter le forum pour réaliser une macro en VBA sur un fichier Excel.
Je dois récupérer des données importantes d'une feuille de calcul elle-même issue d'une extraction d'un autre logiciel.
Vous trouverez à cet effet le classeur en PJ qui contient deux feuilles à savoir :
- extraction_départ = données issues de l'extraction
- données importantes = données à conserver pour les traitements

Voici les éléments que je souhaiterais voir apparaître dans la feuille "données importantes" :
- colonne A : le CodeArt2 mais uniquement pour les produits commençant par la lettre W
- colonne B : la description longue de ces articles commençant par la lettre W
- colonne C : la valeurPMP (colonne T de la 1ère feuille) de l'ensemble des articles commençant par la lettre W

Sachant que je souhaiterais que ces articles soient classés dans l'ordre décroissant de la valeurPMP (+ grand au + petit).

En espérant avoir été suffisamment clair et en vous remerciant par avance.
Je reste, bien entendu, disponible en cas de besoin.

ProfCG

 

[danielco]

Bonjour,

Essaie :

Sub test()
  Dim Plage As Range, C As Range, Ligne As Long
  Ligne = 1
  With Sheets("extraction_départ")
    Set Plage = .Range("F2", .Cells(.Rows.Count, 6).End(xlUp))
  End With
  With Sheets("données importantes")
    .Range("A2", .Cells(.Rows.Count, 3)).ClearContents
    For Each C In Plage
      If LCase(Left(C.Value, 1)) = "w" Then
        Ligne = Ligne + 1
        .Cells(Ligne, 1) = C.Value
        .Cells(Ligne, 2) = C.Offset(, 1).Value
        .Cells(Ligne, 3) = C.Offset(, 14).Value
      End If
    Next C
    .[A:C].Sort .[C1], xlDescending, Header:=True
  End With
End Sub

Cordialement.

Daniel

 

[pierrejean]

Bonjour a tous

Un autre essai

 

[chris]

Bonjour à tous

Tu as 2016 et tu utilises un format périmé depuis 12 ans...

Une solution PowerQuery, intégré à 2016, réalisable en quelques clics

J'ai filtré les valeurs à 0 mais on peut les rétablir...

Actuliser par Données, Actualiser tout si la source change