XL 2016 Copie de données suivant date

• Avec un simple TCD peut-être en colonne F à G?
• Si ne veut pas les références sans date, appliquer un filtre sur les valeurs (Différent de 0) en cliquant droit sur la cellule F2 par exemple et sous menu Filtrer / Filtre s'appliquant aux valeurs... puis choisir différent de 0 (voir exemple le TCD en colonnes I à J
• la colonne des valeurs G a été formatée avec le format personnalisée jj/mm/aaaa;"";"";@

bhbh à dit:

Bonjour,
Sur tes 5998 références uniques, seules 2901 ont une date de mise à jour (ou plusieurs)...
L'extraction ne pose donc pas de soucis pour icelles...
Cependant, que fait-on des 3097 références n'ayant aucune date de mise à jour?
On les fait apparaître quand même, ou on les supprime?
@ te relire

Cliquez pour agrandir...

mapomme à dit:

Bonjour @RENOUVEL Michel, @bhbh ,

• Avec un simple TCD peut-être en colonne F à G?
• Si ne veut pas les références sans date, appliquer un filtre sur les valeurs (Différent de 0) en cliquant droit sur la cellule F2 par exemple et sous menu Filtrer / Filtre s'appliquant aux valeurs... puis choisir différent de 0 (voir exemple le TCD en colonnes I à J
• la colonne des valeurs G a été formatée avec le format personnalisée jj/mm/aaaa;"";"";@

nota: N'oubliez pas d'actualiser les TCD après avoir modifié des valeurs sources!

Cliquez pour agrandir...

mapomme à dit:

Re,

Si vous acceptez le VBA...
Cliquer sur le bouton HOP! qui exécute la macro CodesDates dont le code est dans module1.
Le résultat est sur la feuille "Resultat".

Code :

VB:

Option Explicit
Const F1s = "Feuil1", F2s = "Resultat"

Sub CodesDates()
Dim F1, F2
   Application.ScreenUpdating = False
   Set F1 = Sheets(F1s): Set F2 = Sheets(F2s)
   F1.Columns("a:d").Copy F2.Columns("a:d"): F2.Select
   F2.Columns("d:d").Replace what:=CDate("00:00:00"), replacement:="#N/A"
   F2.Columns("a:d").Sort key1:=[d1], order1:=xlAscending, Header:=xlYes
   On Error Resume Next
   F2.Columns("d:d").SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
   F2.Columns("d:d").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   F2.Columns("a:d").Sort key1:=[a1], order1:=xlAscending, key2:=[d1], order2:=xlDescending, Header:=xlYes
   F2.Columns("a:d").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Cliquez pour agrandir...

bhbh à dit:

Re-,
Un essai Power Query
Bonne soirée

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour à tous

@RENOUVEL Michel

Si j'ai compris tu veux récupérer uniquement les infos avec la date la plus récente et les autres valeurs peuvent être supprimées

Je te propose ceci à mettre dans un module :

VB:

Sub SupDoublon()
Dim Derlig&, MaZone As Range
Derlig = Range("A" & Rows.Count).End(xlUp).Row

Set MaZone = Range("A1:D" & Derlig)

MaZone.Sort key1:=Cells(1, 1), Order1:=xlAscending, key2:=Cells(1, 4), Order2:=xlDescending, Header:=xlYes
MaZone.RemoveDuplicates Columns:=1, Header:=xlGuess
End Sub

Il te restera uniquement les valeurs les plus récentes

Merci de ton retour

@Phil69970

Cliquez pour agrandir...

RENOUVEL Michel à dit:

Merci Beaucoup, je vais tester

Cliquez pour agrandir...

RENOUVEL Michel à dit:

Dans le fichier en pièce jointe je souhaiterais copier la quantité en stock, Colonne L, dans la Colonne I quand les codes (Colonne B et K) sont identiques..

Cliquez pour agrandir...

Option Explicit
Const colSource = "K", colCible = "I"     'Référence en lettre de la colonne Source et Cible"

Sub Stock()
Dim der&, numSource&, numCible&, t, dico, i&
   With ActiveSheet
      numSource = Cells(1, colSource).Column: numCible = Cells(1, colCible).Column
      If .FilterMode Then .ShowAllData
      .Cells(1, numCible).EntireColumn.ClearContents
      der = .Cells(.Rows.Count, numSource).End(xlUp).Row
      t = .Range(.Cells(1, numSource), .Cells(der, numSource)).Resize(, 2)
      Set dico = CreateObject("scripting.dictionary")
      For i = 2 To UBound(t)
         If t(i, 1) <> "" Then dico(t(i, 1)) = t(i, 2)
      Next i
      der = .Cells(.Rows.Count, "b").End(xlUp).Row
      t = .Range(.Cells(1, "b"), .Cells(der, "b"))
      t(1, 1) = "Quantité Stock (Maj)"
      For i = 2 To UBound(t)
         If t(i, 1) <> "" Then If dico.exists(t(i, 1)) Then t(i, 1) = dico(t(i, 1)) Else t(i, 1) = ""
      Next i
      .Cells(1, numCible).Resize(UBound(t)) = t
   End With
End Sub