XL 2016 VBA Excel 2016 : Copier/Coller entres 2 fichiers excel en fonction d'une date

[Oriaux]

Bonjour

Je me permet de faire appel à vous car je suis dans une impasse.
Mon problème est le suivant, j'ai 2 fichiers Excel
-sur le premier, des données de production journalière
-sur le deuxième un récapitulatif mensuel

J'ai réussi à rédiger une macro permettant de passer les données du fichier 1 au fichier 2 mais j'aimerai savoir si je peux coller mes données en fonction d'une date.
je m'explique sur mon fichier 1 j'ai la date du 21/05/2020 et j'aimerai savoir s'il est possible de coller cet donnée dans mon tableau à la même date indiquer.

merci pour vos réponses

 

[sousou]

Bonjour
En considérant que les deux fichiers sont ouverts, voici ce que je te propose pour le fichier 1

 

[Oriaux]

Bonjour Sousou,

Je vous remercie pour la solution cela correspond à ce que je recherchais
Merci encore.

Bonne journée

 

[Hasco]

Bonjour,

Dans le classeur joint, vous trouverez la macro ci-dessous :

Private Sub CommandButton1_Click()
    Dim PlgSource, PlgDest As Range, c As Range
    Dim idx As Variant    ' doit être un variant

    '
    ' Définition de la source et de la destination
    Set PlgSource = Application.Workbooks("test 1.xlsm").Worksheets("Relevés").Range("A2:B6")
    Set PlgDest = Application.Workbooks("test 2.xlsx").Worksheets("Données").Range("B2:C32")
    '
    ' Parcours des cellules de la colonne 1 de la plage source
    For Each c In PlgSource.Columns(1).Cells
        '
        ' recherche de la donnée parcourue dans la plage destination, colonne 1
        ' (utilisation de l'équivalent vba de la fonction de feuille EQUIV
        idx = Application.Match(c, PlgDest.Columns(1), 0)
        '
        ' si trouvé, renseigner la colonne 2 de destination
        If Not IsError(idx) Then PlgDest.Cells(idx, 2) = c(1, 2)
    Next
End Sub

cordialement

 

[Oriaux]

Bonjour Roblochon,

Je vous remercie pour votre solution aussi elle fonctionne à merveille

Cordialement