pb de copier coller

[ironmat]

bonjour a tout le monde

je vous explique mon probleme. Je souhaiterai comparer la valeurs de deux cellules situées sur deux feuilles differentes.
Si les valeurs sont identiques alors on recupere une valeur d une colonne differente mais de la meme ligne et on la copie sur l autre feuille.

voila le code que j utilise :

Sub test()


L = Sheets('feuil1').Range('A65536').End(xlUp).Row
M = Sheets('feuil2').Range('A65536').End(xlUp).Row

For i = 1 To L
For j = 2 To M
If Sheets('feuil2').Cells(i, 15).Value = Sheets('feuil1').Cells(j, 5).Value Then
Sheets('feuil2').Select
Cells(i, 15).Select
Selection.Copy
Sheets('feuil1').Select
Cells(j, 4).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next j
Next i

End Sub



dc si vous voyez une erreurs je vous ecoute car actuellement rien ne se passe il n y a aucun couper coller qui fonctionne.

Je vous met mon fichier en piece jointe pour que cela soit plus comprehensible


Merci d avance.

Bonne journée

Au revoir

 

[Bebere]

bonjour à tous


pas besoin de copier coller


Sub test()
L = Sheets('feuil1').Range('A65536').End(xlUp).Row
M = Sheets('feuil2').Range('A65536').End(xlUp).Row

For i = 1 To L
For j = 2 To M
If Sheets('feuil2').Cells(i, 15).Value = Sheets('feuil1').Cells(j, 5).Value Then
Sheets('feuil1').Cells(j, 4).Value=Sheets('feuil2').Cells(i, 15).Value
End If
Next j
Next i

End Sub

au revoir

 

[ironmat]

merci bcp pour ton aide. j avoue le code que tu m as donné et plus simple mais cela ne marche tjs pas le transfert de données d une page a l autre ne se fait pas.

Si tu peux essayer ton code sur le fichier qui j ai joint tu verras que rien ne se passe et ne comprend pas pourquoi.

dc si tu vois un autre problème je t ecoute.

Merci encore


@+ Ironmat

 

[bbmarcus]

Bonjour Ironmat, Bebere, le forum,

et avec une simple formule, ca n'irai pas?

Genre: =si(Feuil!1A1=Feuil2!A1;index(valeure à trouver dasn ton tableau;Equiv(B1;plage ou chercher la valeur;0);'')

Ca te comparera les 2 cellules de tes 2 feuilles, et si c'est la même valeur, alors index/equiv te permetra de récupérer la valeur correspondante à ta comparaison de cellules sur les 2 feuilles....

Heu....ch'ais pas si j'ai été clair là.....

bbmarcus

 

[ironmat]

ben je vais essayer et je te tiens au courant

merci bcp pour ton aide

@+