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

profcg

XLDnaute Nouveau
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
 

Fichiers joints

danielco

XLDnaute Impliqué
Bonjour,

Essaie :

Code:
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
 

chris

XLDnaute Barbatruc
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
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas