Faire mise à jour d'une liste VBA

Bonsoir à tous

J'aimerais faire mise à jour d'une liste de produits, d’ajouter les nouveaux articles seulement.

Dans la liste exemple les nouveaux articles sont on rouges.

La pièce jointe plus explicite.

Merci d'avance

Cordialement

Salut ,

Alors pour ton problème

Dim a, b, c, bons As Variant

Sheets("Recherche Affaires Non Terminés").Select 'remplaces sheet1 par ton nom de feuille

i = 2 'va commencer par la ligne 2
j = 1 'va rechercher toutes tes valeurs de la colonne A
b = 2 't'en occupes pas

Do While Cells(i, 1) <> ""
bons = Cells(i, 1)
a = 2
c = "manqués"
Do While Cells(a, 2) <> "" 'va balayer ta colonne B
If Cells(a, 2) = bons Then 'si ton bon est dans la colonne b
c = "" 'je le déclare comme trouvé
a = 65000
End If
a = a + 1
Loop
If c <> "" Then 'si ton bon n'a pas été trouvé
Cells(b, 3) = Cells(i, 1) ' je le mets dans ta colonne c
b = b + 1
End If
i = i + 1
Loop

Ce code te permet de voir le matériel récent (il tri entre les colonne a et b et te restitue la diff en c)

Sheets("Feuil1").Activate 'sélectionne la feuille du transfert 
Range("A65000").End(xlUp).Offset(1).Select 'recherche la première cellule vide 
ActiveSheet.Paste 'copie les données

et sa pour copier les récent a la suite

Edit pour récuperer le prix associé utilise une recherche V

Cordialement Bluestar1991

Bonsoir tout le forum

Bonsoir Bluestar1991

Je vous remercie beaucoup pour vos les explications simples, mais sincèrement

je n’arrive pas à employer cette macro dans mon fichier.

j'ai besoin d'un coup de main.

Merci beaucoup pour votre aide

« Amicalement. »

Attend une demi heure je t'envoie le fichier

merci encore une fois

Re

J'ai envoyer les nouveaux article sur une nouvelle page (new) je savais pas ou les mettre ...

A voir si sa te plait ou pas

Cordialement

Bonsoir à tous

Merci beaucoup de votre support Bluestar1991

C'est parfait, ça marche très très bien.

Encore un grand merci.

salutations.