Copie automatique de cellules à un endroit précis

Bonjour à tous

Tous les jours, je récupère des données via une application professionnelle qui se transposent "en jaune" en D3:S3

Je souhaiterais pouvoir copier les chiffres E3:S3 automatiquement et coller leurs valeurs dans la ligne correspondant.

À savoir identifier en A7:A34 la cellule égale à A3 et copier les valeurs dans la 4ème cellule à droite de celle trouvée.

Je pense avoir été clair.

Merci pour votre aide et bon week-end

Bonjour,

j'imagine que les lignes ont vocation à rester remplies après le changement de date en D3.

Pour ça il faut du VBA, donc extension de fichier xlsm.

Et le bouton Copie est le raccourci pour la macro je suppose.

Exemple qui marche ;

Sub CopLi()
    Dim c As Long
    Dim li As Long
    For c = 5 To 19 '5 à 19 = E à S
    For li = 7 To 34
    If Cells(li, 4).Value = Range("$D$3").Value Then
    Cells(li, c).Value = Cells(3, c).Value
    End If
    Next li
    Next c
End Sub

Remplacer 34 si ça descend plus bas.

Bonsoir,

Pour info, sujet clos sur un autre forum....

Bonne soirée

Bonjour à THEREDCHNICO, Doux Rêveur, cousinhub,

En passant par ici pour vérifier si le sujet a été clos comme l'a conseillé cousinhub au demandeur sur XLD...

Code à placer dans le module de la feuille concernée :

Sub Copie()
   On Error GoTo SUITE: [e6:s6].Offset(Application.Match([a3], [a7:a9999], 0)) = [e3:s3].Value
SUITE: End Sub

edit : manifestement le canard est toujours vivant ici sur XLP .

Bonjour à tous

Merci pour votre aide.

Bon week-end

Sympa ce code mafraise, bien plus simple que le mien !

Sauf qu'il a une limite, qui ne devrait pas poser problème dans ce cas-ci, c'est que s'il y a 2 lignes avec la même date, il ne remplit que la première.