Macro copie d'après des conditions

Bonjour le forum,

Après plusieurs tentative pour créer une macro je perd un peu patience s'est pourquoi je viens vous demandez de l'aide. Autant préciser que s'est la toute première fois que j'essaie d'écrire une macro (se qui ne s'est pas avérer très concluant) .

Ce que je chercher à faire est copier automatiquement des données d'une Feuil sur une autre en respectant quelque condition.

Se qui donnerait quelque chose comme cela:

Si Feuil!1 E2 = Feuil! 2 I2 et Si Feuil!1 D2 = Feuil!2 U2 alors on copie la ligne complète de Feuil!1 A2:D2 (et ainsi de suite) pour la coller dans Feuil!2 A6:D6, si la ligne ne correspond pas au critère elle n'est pas copiée.

J'espère que mon explication est assez clair et que vous pourrez me donner un coup de main pour l’orienté correctement dans l'écriture de cette macro.

J'étais partie avec:

Sub Ma_Macro

If _ then

End if

mais j'ai beaucoup de mal à la mettre en pratique.

Je vous remercie d'avance pour votre aide.

cordialement

Kisscool943

Bonjour,

Peux-tu joindre un fichier ?

(raccourci, si trop gros)

Claude

Bien sur voilà moi fichier.

Merci d'avance pour ton aide

Kisscool943

re,

le bouton "Mise à jour" est facultatif,

çà marche aussi en changeant l'année ou le mois

Sub Planning()
Dim Lg&, i%
Dim f As Worksheet
    Application.ScreenUpdating = False
        Set f = Sheets("PLANNING")
        f.Range("a6:d" & f.[a65000].End(xlUp).Row + 1).ClearContents 'efface planning

    With Sheets("Recap")
            Lg = .Range("a" & Rows.Count).End(xlUp).Row
        For i = 2 To Lg
            If Month(.Range("c" & i)) = f.Range("x2") And _
                Year(.Range("c" & i)) = f.Range("i2") Then
                .Range("a" & i).Resize(1, 4).Copy
                f.Range("a65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
                Application.CutCopyMode = False
            End If
        Next i
    End With
        Application.Goto f.Range("a1"), Scroll:=True
End Sub

Amicalement

Claude

C'est exactement se que je voulais ! C'est parfait !

Merci Beaucoup pour ton aide précieuse.

Cordialement

Kisscool943