XL 2010 Compléter ce code pour recopie de ligne si 2 critères sont respectés

[fb62840]

Bonjour,

Pourriez-vous me proposer un code qui me permettrait de recopier la ligne d'une feuille (Feuil2) à la feuillle 1 sur la ligne 2 avec ces conditions :

sur la feuille 1 :
si la colonne h contient une valeur
Rechercher sur Feuil2 la ligne qui contient dans la colonne H la même valeur et la copier-coller sur la feuille 1 en A2

Si la colonne h ne contient aucune valeur
Si la colonne I contient une valeur et si la colonne K contient également obligatoirement une valeur
Recherchercher sur Feuil2 la ligne qui contient les mêmes valeurs en colonnes I et K et la copier-coller sur la feuille 1 en A2

Merci beaucoup

j'ai essayé plusieurs formulation mais ça ne marche pas :

exemple

With Sheets("Feuil2")
        If Sheets("Feuille1").Range("H2") <> "" Then
            For i = .Range("H65536").End(xlUp).Row To 2 Step -1
                If Range("H" & i).Value = Sheets("Feuille1").Range("H2").Value Then
                    .Rows(i).Copy Destination:=Sheets("Feuille1").Range("A2")
               End If
            Next i
        End If
        If Sheets("Feuille1").Range("i2") <>"" And Sheets("Feuille1).Range("K2") <>"" Then
          For i = .Range("H65536").End(xlUp).Row To 2 Step -1
           If Range("i" & i).Value = Sheets("Feuille1").Range("i2").Value  And Range("K" & i).Value = _ Sheets("Feuille1").Range("k2").ValueThen
                .Rows(i).Copy Destination:=Sheets("Feuille1").Range("A2")
        End If
            Next i
        End If
    End With

 

[Lone-wolf]

Re

Moi je passe la main. Bonne chance

EDIT: ton classeur en retour. Mais moi je ferais comme ceci .Range("h" & cel.Row, "k" & cel.Row).Copy Sheets(1).Range("a65536").End(xlUp)(2), pour ne pas rechercher 50 fois la même ligne.