Besoin d'une petite correction

[steph57]

Bonsoir le forum

je me casse la tete sur un petit probleme

je vous met le code et vous detail


Sub commun()

f1 = Sheets("2").Range("a10", [i10].End(xlDown))
f2 = Sheets("1").Range("a10", [f10].End(xlDown))

i = 10
While Cells(i, 1) <> ""

'si les colonnes a et b des 2 feuilles sont identique
If f1.Cells(i, "a") & f1.Cells(i, "b") = f2.Cells(i, "a") & f2.Cells(i, "b") Then

'la colonne k de la feuille 1 et egale a la colonne e de la feuille 2 ou plutot la cellule en fonction des colonne a et b
f1.Cells(j, "k") = f2.Cells(i, "e")

End If
i = i + 1
Wend


End Sub


j'ai une base de donnée en feuille 1 sur 300 lignes
j'aimerais que dans la feuille 2 quand une ligne contient les données de la colonne a et b
commun avec la feuille 1 ,le resultat de la colonne e soit mise dans la colonne k de l'autre feuille

j'espere avoir ete clair,merci de votre aide

 

[supercrapaud]

Re : Besoin d'une petite correction

Bonsoir,

Mets un fichier avec un résultat pour qu'on puisse t'aider.