XL 2019 Copie d'un tableau vers un autre tableau avec condition de date

[BChaly]

Bonjour,

Je souhaite copier une partie des données d'un tableau "Source" vers un autre tableau situé sur une autre feuill "Recap".

Un code trouvé sur internet me permet de faire une action similaire.

Cependant, je n'arrive pas à adapter ce code pour réussir ce que je veux avec une condition de date.

Dans le fichier joint la première macro "CopieTableauOK" fonctionne, alors que je suis perdu en essayant d'adapter
une seconde macro "CopieTableauErreur" qui ne fonctionne pas.

Merci pour votre aide.

BChaly

 

[job75]

Bonjour BChaly,

Voyez le fichier joint et cette macro dans le code de la feuille "Recap" :

Private Sub Worksheet_Activate()
Dim F As Worksheet, col As Variant
Set F = Sheets("Source")
col = Application.Match(F.[D1], Rows(3), 0)
If IsError(col) Then Exit Sub
With F.[D3].CurrentRegion.Columns(4).Resize(, 3)
     Cells(4, col).Resize(.Rows.Count, 3) = .Value
End With
End Sub

Elle se déclenche quand on active la feuille.

A+

 

[job75]

La solution précédente suppose une parfaite correspondance entre les lignes des 2 tableaux.

Je pense que c'est toujours le cas puisque vous n'en parlez pas.

 

[BChaly]

Bonsoir Job75,

C'est plus que parfait!!!

Merci pour votre Aide!!!

Bonne soirée,