Microsoft 365 Recherche V pour résultat avec condition

[tpl]

Bonjour le forum
Je sollicite votre aide pour la fonction recherche V couplée à une condition
J'ai expliqué mon problème dans le fichier joint (en espérant que ce soit clair -)
Merci d'avance pour votre précieuse aide (et désolé si la question aurait déjà été posée)
Cordialement

 

[st007]

Bonjour,
Une méthode

 

[sylvanu]

Bonjour TPL, st007,
En PJ presque identique avec Index Equiv en matriciel :

{=INDEX(source!D:D;EQUIV( 1; (source!A:A= base!A6) * (source!F:F = base!D6);0))}

 

[soan]

Bonjour,

Je propose cette solution :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim NP2 As Range, Cod2$, Cod3$, Mnt&, NP&, dlig&, lig&
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Row < 6 Then Exit Sub
    If .Column <> 4 Then Exit Sub
    Mnt = .Value
    If Mnt = 0 Then
      .Offset(, 1).Resize(, 2).ClearContents
    Else
      NP = .Offset(, -3): If NP = 0 Then Exit Sub 's'il n'y a pas de N° Pièce
      With Worksheets("source")
        dlig = .Cells(Rows.Count, 1).End(3).Row: Application.ScreenUpdating = 0
        For lig = 6 To dlig
          Set NP2 = .Cells(lig, 1)
          If NP2 = NP And NP2.Offset(, 5) = Mnt Then
            Cod2 = NP2.Offset(, 3): Cod3 = NP2.Offset(, 4): Exit For
          End If
        Next lig
      End With
      If Cod2 <> "" Then .Offset(, 1) = Cod2: .Offset(, 2) = Cod3
    End If
  End With
End Sub

Si Code 2 et Code 3 sont déjà affichés et que tu supprimes le Montant,
ça efface Code 2 et Code 3.

soan

 

[tpl]

Bonsoir à tous
Merci beaucoup pour votre aide st007 et sylvanu !
Soan, désolé mais ne connaissant rien aux macros (si si, il y a encore des retardataires !, vu le nombre de fois que je me dis il faut que je m'y mette !) je vais tenter les 2 premières solutions et si je n'arrive pas, je vous solliciterai à nouveau
Bien cordialement