Récuperer des valeurs d'un fichier vers un autre fichier

Bonjour tout le monde;

Mes amis,C'est il y a quelqu'un qui peut m'aider.

mon problème est le suivant:

j'ai deux tableaux

• Le premier est une liste des pièces avec seulement le code de chaque article.
• Le second est une liste de toutes les pièces disponibles dans notre magasin avec la description de la pièce devant le code et une colonne des quantités disponibles dans notre stock

Maintenant

Je veux mettre les valeurs des quantités en stock de chaque pièce qui se trouve dans la 2 eme liste dans la première liste devant la pièces qui a le mémé code, j'ai ulitisé la recherche verticale ; mais elle n'a pas marché vu que le code dans le 2 eme liste est suivi par la description de cette article ci-joint un exemple:

Salutations

Bonjour

Formule en B2 à incrémenter vers le bas

=INDEX('Liste 2'!$A$2:$B$14;EQUIV('Liste 1'!A2&"*";'Liste 2'!$A$2:$A$14;0);2)

Cordialement

Bonjour M.Amadéus ;

Je vous remercie infiniment M.Amadéus.

J'ai constaté que dans la liste 2 il y a des articles qui se répètent dans plus d'une ligne cela parce-que ces articles se trouvent dans plusieurs magasin donc je dois en premier lieu supprimer les doublons et faire l'addition des quantités de ces doublons ensuite appliquer la formule communiqué par M.Amadéus la quelle aue j'ai appliquée est elle fonctionne trés bien.

ci-joint l'exemple

Sincères salutations.

Y.CHOKRI

Bonjour je suis débutante dans ce langage et j'ai un petit soucis pour en créer une répond a mon besoin.

Je dois créer une maccro qui envoi 1 mail a deux personnes si dans mon inventaire des articles arrivent à 1.

Dans mon mail il doit avoir le contenu de ma cellule A qui est a la même ligne que la cellule D=1.

Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
' Use basic (clear-text) authentication.
Const cdoBasic = 1
' Use NTLM authentication
Const cdoNTLM = 2 'NTLM

Public Sub SendEmail()
Dim imsg As Object

Dim iconf As Object
Dim flds As Object
Dim schema As String

Set imsg = CreateObject("CDO.Message")
Set iconf = CreateObject("CDO.Configuration")
Set flds = iconf.Fields

' send one copy with SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
flds.Item(schema & "sendusing") = cdoSendUsingPort
flds.Item(schema & "smtpserver") = ".......ca"
flds.Item(schema & "smtpserverport") = 25
flds.Item(schema & "smtpauthenticate") = cdoBasic
flds.Item(schema & "smtpusessl") = False
flds.Update

With imsg
.To = "quelqu'un"
.From = "moi-même"
.Subject = "Quantité manquante"
.HTMLBody = "Un article de l'inventaire est à 1 il faudrait en commander d'autres"
Set .Configuration = iconf
.Send

End With

Set iconf = Nothing
Set imsg = Nothing
Set flds = Nothing

End Sub

Merci à l'avance de votre aide