Microsoft 365 Msgbox Reference non trouvée dans liste

[eric72]

Bonjour à tous,
Je rencontre un petit souci avec une macro, en effet, à partir de la feuille "Saisie Inventaire" tableau "TbInventaire", je reporte les quantités dans la feuille "Inventaire" tableau "TbAllProduit".
Jusque là tout va bien, j'aimerais que lors du lancement de la macro, si une ou des références de TbInventaire n'existe pas dans TbAllProduit, une Msgbox à la fin de la macro m'indique les références et les quantités du ou des produits non trouvés.
J'ai bien essayé avec find mais je pense que je dois mal le placer dans la boucle et du coup cela ne fonctionne pas.
Je m'en remets donc une nouvelle fois à votre savoir.
Merci beaucoup pour votre aide.
Eric

 

[sylvanu]

Bonjour Eric,
J'ai rajouté :

' Recherche les présents dans Saisie inventaire qui sont absent dans Inventaire
For j = 2 To UBound(TC1, 1)
    Trouvé = False
    For I = 2 To UBound(TC2, 1)
        If TC1(j, 1) = TC2(I, 5) Then Trouvé = True: Exit For
    Next I
    If Trouvé = False Then Chaine = Chaine & TC1(j, 1) & Chr(10)
Next j
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
MsgBox Chaine

Il doit être possible d'optimiser en utilisant vos boucles déjà présentes, mais j'ai préféré ne pas toucher à votre code.

 

[eric72]

Bonjour Eric,
J'ai rajouté :

' Recherche les présents dans Saisie inventaire qui sont absent dans Inventaire
For j = 2 To UBound(TC1, 1)
    Trouvé = False
    For I = 2 To UBound(TC2, 1)
        If TC1(j, 1) = TC2(I, 5) Then Trouvé = True: Exit For
    Next I
    If Trouvé = False Then Chaine = Chaine & TC1(j, 1) & Chr(10)
Next j
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
MsgBox Chaine

Il doit être possible d'optimiser en utilisant vos boucles déjà présentes, mais j'ai préféré ne pas toucher à votre code

Bonjour sylvanu,
Merci pour votre réponse, simple rapide et efficace, comme d'habitude!!!
Merci encore et bonne journée.

 

[eric72]

Bonjour Eric,
J'ai rajouté :

' Recherche les présents dans Saisie inventaire qui sont absent dans Inventaire
For j = 2 To UBound(TC1, 1)
    Trouvé = False
    For I = 2 To UBound(TC2, 1)
        If TC1(j, 1) = TC2(I, 5) Then Trouvé = True: Exit For
    Next I
    If Trouvé = False Then Chaine = Chaine & TC1(j, 1) & Chr(10)
Next j
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
MsgBox Chaine

Il doit être possible d'optimiser en utilisant vos boucles déjà présentes, mais j'ai préféré ne pas toucher à votre code

Bonjour sylvanu,
Merci pour votre réponse, simple rapide et efficace, comme d'habitude!!!
Merci encore et bonne journée.