fonction recherche identité + concaténation

tout dabord merci de t'etre penché sur mon pb!!!

je te joins le fichier concerné!!!si tu peux y jeter un oeil merci!!!

En fait ce que je voudrais c'est que la macro compare les 4 premieres cellules de chaque ligne du tableau de la feuille 'liste rec' et qu'il recherche son homologue dans le tableau de la feuille 'four'.

Si il y a un homologue je veux que la macro prenne la valeur de la colonne 'Somme' correspondante dans la feuille 'four' et la transpose dans la colonne G de la feuille 'liste rec' a la ligne correspondante!!!

j'espere avoir été compréhensible!

Le pb tu le vois bien est qu'il n'y a pas tjs de lignes identiques et que la seul chose a laquelle j'ai pensé est la reconnaissance avec les 4 premieres cellules qui sont identiques dans les deux tableaux!!

Merci a vous

Cliquez pour agrandir...

Bonjour cyril, le fil, le forum

en pièce jointe une proposition VBA, ca doit etre aussi possible par formule, mais je ne sais pas faire.

salut

-------

Rebonjour Herve, le fil, le forum,

J'ai reussi a adapter le VBA a mon fichier ...meme si ca peut vous parraitre ridicule c'est un grand pas dans la programmation pour moi alors encores merci. Je l'ai donc mis en piece jointe. Sans vouloir abuser... ...j'en rajouterai bien une couche!!!
C'est donc une application de gestion d'entrepot. Dans la feuille 'STOCK' on trouve l'etat des stocks en debut de semaine. Dans la feuille 'MOUVEMENT' on trouve les entree et sorties de stock de la semaine. Le VBA m'a permis de transferer la valeur des stocks de debut de semaine en face de chaque mouvement. Le but etant qu'en fin de semaine on puisse deduire ou additionner les quantites sorties ou entrees et ainsi controller les stock. Seulement dans l'etat actuel il faut faire le calcul ce qui n'est pas pratique. Je voudrais trouver par exemple en face des 4 premieres lignes '190' (qui correspondent a la meme reference et au meme emplacement), le resultat 190-4*6 soit '166'. J'ai bien reussi a le faire avec des formule en faisant une concatenation REFERENCE/EMPLACEMENT dans une feuille separee, puis en faisant la somme des doublons et enfin en soustrayant cette somme au quantite de depart. Ca marche mais c'est pas rapide et mon plus gros probleme c'est que quand j'etend la formule de la soustraction dans la case 'QUANTITE ESTIME' il est impossible d'imprimer la feuille car si je le fait, l'impression se fait jusqu'a ce qu'il n'y ait plus de formule, meme quand il n'y a pas d'entree.
J'ai bien essaye de le faire en VBA mais bon...j'ai ete un peu trop sure de moi sur ce coup la!!!
Je suppose que le mieux c'est de le faire en VBA mais si c'est trop long, quelqu'un peut-il me dire comment appliquer une formule a la ligne suivante sans pour cela l'etendre a 10000 ou 20000 histoire d'etre sure!!!
Voila j'ai deja ecris beaucoup alors j'arrete la!
En tous les cas merci pour ce que vous pouvez faire et bonne journee.
Cyril

Cliquez pour agrandir...

Dim c As Range
Dim cell As Range

With Sheets('STOCK')
For Each c In Range('b2:b' & Range('b65536').End(xlUp).Row)
    For Each cell In .Range('a2:a' & .Range('a65536').End(xlUp).Row)
        If c & c.Offset(0, 1) = cell & cell.Offset(0, 1) Then
              cell.Offset(0, 2) = cell.Offset(0, 2) + c.Offset(0, 3)
        End If
    Next cell
Next c
End With

Cliquez pour agrandir...