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

BChaly · 25 Janvier 2020

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 · 25 Janvier 2020

Bonjour BChaly,

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

VB:

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 · 25 Janvier 2020

Bonjour BChaly,

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

VB:

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 · 25 Janvier 2020

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 · 25 Janvier 2020

Bonsoir Job75,

C'est plus que parfait!!!

Merci pour votre Aide!!!

Bonne soirée,

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

BChaly

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

BChaly

XLDnaute Occasionnel

Discussions similaires