Macro avec recherche verticale

Bonjour,

Je souhaiterais réaliser une macro en cliquant sur le bouton mise à jour qui me permette de :

- copier les colonnes D6 à O10 et R10 à AO10 de l'onglet "requête", dans les colonnes correspondantes de l'onglet "récapitulatif" en tenant compte de la date correspondante.

Sachant qu'un requête est effectuée toutes les semaines et donc je ne voudrais pas que les données des semaines passées soient supprimées suite à la mise à jour.

Si quelqu'un peut m'aider, merci d'avance

Bonjour,

à tester,

Sub transfert()
Set sh1 = Sheets("Requête")
Set sh2 = Sheets("Récapitulatif")
lig = Application.Match(sh1.Range("C6"), sh2.Range("C:C"), 0)
sh2.Range("D" & lig & ":O" & lig + 4).Value = sh1.Range("D6:O10").Value
sh2.Range("R" & lig + 4 & ":AO" & lig + 4).Value = sh1.Range("R10:AO10").Value
End Sub

Bonjour,

merci pour votre aide mais à priori il y a une erreur sur la 5ème ligne (sh2.Range("D" & lig & ":O" & lig + 4).Value = sh1.Range("D6:O10").Value)

Pourriez-vous revoir si vous voyez d'où vient l'erreur ?

Merci

re,

j'ai fais le test sur le fichier transmit et je n'ai pas d'erreur,

est que tu peux d'écrire cette erreur ?

Bonjour,

Effectivement à partir du fichier tout est ok,

Merci beaucoup pour votre aide

est ce que le problème est résolu ?