Copier / coller des valeurs dans une autre feuille sous condition

Bonjour à tous,

Je modifie un fichier pour simplifier les saisies, je sollicite votre aide car mes compétences sont très limitées en vba.

J’aimerais copier des valeurs d’une feuille vers une autre sous certaines conditions, en décalant d’une ligne suivant l’année, mais si je reviens sur une année précédente écraser les valeurs existantes en remplaçant la dernière mise à jour.

Dans le fichier joint en feuille 2 j’ai noté des exemples pour une meilleure compréhension.

J’espère avoir été clair, n’hésité pas à me poser des questions si nécessaire.

La macro actuelle ne fait que copier/coller les valeurs (il en manque une à récupérer).

Je vous remercie pour votre aide.

Bonjour,

Je pense que vous avez fait une erreur au sujet de la plage à copier. Vous mentionnez A3:D4 mais en fonction de vos exemples je suppose que c'est A3:D3

Essayez votre code comme ceci :

Sub CopierValeurs()
Dim lig As Integer
Dim dlg As Integer

' La Source est Feuil1 et la Destination Feuil2
With Worksheets("feuil1")
    On Error Resume Next
    lig = WorksheetFunction.Match(.Range("A1"), Worksheets("feuil2").Range("A:A"), 0)
    On Error GoTo 0
    If lig = 0 Then
        dlg = Worksheets("feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A3:D3").Copy Destination:=Worksheets("feuil2").Range("B" & dlg)
        Worksheets("feuil2").Range("A" & dlg) = .Range("A1")
    Else
        .Range("A3:D3").Copy Destination:=Worksheets("feuil2").Range("B" & lig)
    End If
End With
MsgBox " Copie Effectuée ...", vbInformation, "confirmation"
End Sub

Le code copie l'année en colonne A et les données en colonnes B à D

Si ok et terminé pensez à cloturer le fil

Cordialement

Bonsoir Dan,

Je viens de faire quelques essais sur le fichier test et à première vue tout correspond à ma demande,

Demain matin je vais mettre le code dans mon fichier original et clôturer ce fil si tout va bien.

En attendant un grand merci pour votre aide

Bonjour Dan,

j'ai modifié mon fichier, j'ai très légèrement modifier votre code pour l'adapter, il me convient parfaitement.

Je vous souhaite un bon dimanche et vous remercie pour votre aide