Petite modification pour faire un OU au lieu d'un ET

Question

J'ai un programme qui permet de retrouver des references que j'ai mis sur une base de donnée. Mon programme me permet actuellement de comparer trois champs et si il y en à 1 qui ne correspond pas sa ne retrouve pas le numero. Hors, j'aimerai que ca compare "fab" et ref OU refmsl. Autrement dit si je n'ai pas la "ref" ca cherche seulement avec la "refmsl" et inversement. Que la comparaison ne soit pas : il faut que fab,ref et refmsl correspondent mais que fab et REF ou REFMSL correspondent. espère que c'est clair.. Voici le petit morceau qui permet de faire les comparaison : i_para = WorksheetFunction.CountA(Sheets(nom_feuille_MDS).Range("A:A")) Range("F:F") = "" Debug.Print i_para i_aml = WorksheetFunction.CountA(Range("B:B")) Debug.Print i_aml 'Boucle parcourant la feuille AML For i = 2 To i_aml DoEvents 'Lancer la macro en arrièle plan Range("E" & i).Select ' Permet de faire descendre For j = 2 To i_para 'Boucle pour parcourir la feuille Paramètre recherche ' Les 3 critère à verifier fab = InStr(Range("C" & i), Sheets(nom_feuille_MDS).Range("C" & j)) ref = InStr(Range("B" & i), Sheets(nom_feuille_MDS).Range("B" & j)) refmsl = InStr(Range("A" & i), Sheets(nom_feuille_MDS).Range("A" & j)) etat = "ko" If fab = 0 Or ref = 0 Then etat = "ko" ElseIf fab &gt; 0 And ref &gt; 0 Then jbis = j 'Permet de récupérer la ligne correspondante j = i_para ' Permet de sortir de la boucle for etat = "ok" End If Merci d'avance...

h2so4 · Accepted Answer

Essaie ceci etat = "ko" For j = 2 To i_para 'Boucle pour parcourir la feuille Paramètre recherche ' Les 3 critère à verifier fab = InStr(Range("C" & i), Sheets(nom_feuille_MDS).Range("C" & j)) ref = InStr(Range("B" & i), Sheets(nom_feuille_MDS).Range("B" & j)) refmsl = InStr(Range("A" & i), Sheets(nom_feuille_MDS).Range("A" & j)) if fab &gt; 0 And (ref &gt; 0 or refmsl &gt; 0) Then jbis = j 'Permet de récupérer la ligne correspondante j = i_para ' Permet de sortir de la boucle for etat = "ok" End If Next j...