XL 2013 Recherche une valeur dans une matrice

[chaelie2015]

Bonjour Forum
Je souhaite rechercher la valeur de la cellule A5 de la feuille 'Attribution Finale' dans la plage nommée 'Matrice_Ecart' (plage 'Matrice d'écart'!$BC$2:$BL$62). Une fois que vous avez trouvé la valeur recherchée, dirigez-vous vers la colonne A de la feuille 'Matrice d'écart' (cellules A2:A62) et récupérez le contenu de la cellule correspondante sur la même ligne. (soit par formule ou par code) et ainsi de suite pour A6 A7 ...etc
MERCI

 

[sylvanu]

Bonjour Chaelie,
Un essai en PJ, cette macro est automatique quand on sélectionne la feuille "Attribution Finale" :

Sub Worksheet_Activate()
Dim Lot$, Nlig%, DL%, DC%, L%, C%, Ligne%, T, Nom
Application.ScreenUpdating = False
Lot = "Lot_" & Right(Lot, 2)
Nlig = 5
With Sheets("Matrice d'écart")
    DL = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
    DC = .Cells(1, Columns.Count).End(xlToLeft).Column
    Tablo = .Range(.Cells(1, "BC"), .Cells(DL, DC))
    Nom = .Range(.Cells(1, 1), .Cells(DL, 1))
End With
While Cells(Nlig, "A") <> ""
    Lot = Right(Cells(Nlig, "A"), 2)
    For C = 1 To UBound(Tablo, 2)
        For L = 2 To UBound(Tablo)
            If Right(Tablo(L, C), 2) = Lot Then
                Cells(Nlig, "B") = Nom(L, 1)
                Exit For
            End If
        Next L
    Next C
    Nlig = Nlig + 1
Wend
End Sub

Pourquoi avoir deux notations : Lot_01 et Lot N° 01 ?
Pour ne pas complexifier les choses je ne compare que les deux chiffres à droite.
Et à quoi correspond le nombre de lots attribués (G3) qui est de 3 ?

 

[chaelie2015]

Bonjour sylvanu
C'est excellent, vous avez raison, j'ai manqué cette erreur.
A+