XL 2019 Recherche double critères

maxime.P

XLDnaute Nouveau
Bonjour à tous,

j'aimerais savoir comment effectuer la manip suivante :

j'ai dans mon tableau (ci joint) 3 colonnes avec : l'emplacement de mes produits, le n° d'item et le n° de lot.
j'aimerais pouvoir effectuer une recherche dans mes cellules J7 et K7 et qu'en fonction de la correspondance, mon curseur soit automatiquement renvoyé sur la cellule a droite de mon n° de lot.
je ne sais pas si j'ai été très claire.

merci d'avance pour votre aide

cordialement
 

Pièces jointes

  • TEST.xlsm
    11.3 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Maxime,
Un essai en PJ avec :
VB:
Sub Cherche()
    Dim L%, Item, Batch
    Item = [G2]: Batch = [H2]
    For L = 2 To Range("A65500").End(xlUp).Row
        If Cells(L, "B") = Item Then
            If Cells(L, "C") = Batch Then
                Cells(L, "D").Select
                Exit Sub
            End If
        End If
    Next L
End Sub
j'ai mis un bouton GO pour y aller.
On pourrait le supprimer avec une macro événementielle mais on ferait une recherche dès qu'une valeur change, même si la seconde est erronée.
 

Pièces jointes

  • TEST (2).xlsm
    16.4 KB · Affichages: 6

maxime.P

XLDnaute Nouveau
Bonjour Sylvanu,

Merci beaucoup pour votre réponse et votre rapidité ! est il possible de l'activé lorsque les deux cellules sont complétées ?
je vais utiliser un scan qui va etre relié à mon ordinateur, cela pourrait m’éviter d'utiliser la souris :)
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Un nouvel essai à tester, auquel j'ai rajouté la macro événementielle :
VB:
Public ItemAvant, BatchAvant ' Mémorisation des valeurs précédentes
Sub Worksheet_Calculate()
    If [G2] <> ItemAvant And [H2] <> BatchAvant Then
        ' Si les deux valeurs ont changées
        Cherche
        ' On réactualise les valeurs mémorisées
        ItemAvant = [G2] And BatchAvant = [H2]
    End If
End Sub
 

Pièces jointes

  • TEST (3).xlsm
    14.6 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Chez moi, ça a l'air de marcher.
Dans la PJ choisissez en J2 un N° de lot au hasard, les cellules G2H2 se emttent à jour et le curseur va bien au bon endroit :
20211115_155804.gif
 

Pièces jointes

  • TEST (5).xlsm
    16.8 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510