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

profcg · 19 Novembre 2019

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 · 19 Novembre 2019

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

pierrejean · 19 Novembre 2019

Bonjour a tous

Un autre essai

chris · 19 Novembre 2019

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

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

profcg

XLDnaute Nouveau

Pièces jointes

danielco

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

Pièces jointes

Discussions similaires