Hello Yous00,
Pour tout te dire, je suis pas sur de tout comprendre
Du coup j'ai un petit bout de code pour toi, code à compléter (definition des valeurs à rechercher val1 et val2)
et à adapter au niveau du resultat : ici je met la valeur de la colone C en D à partir de la ligne 1
Sub AlorsOnCherche()
Dim val1, val2, resultc
Dim r, r2, ra, rd
Dim cell, cell2
rd = 1 '
r = Cells(65536, 1).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne A
r2 = Cells(65536, 2).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne B
For Each cell In Range(Cells(1, 1), Cells(r, 1)) 'balayage de la colonne A
If cell.Value = val1 Then 'si on trouve la 1ère valeur on récupére son n° de ligne
ra = cell.Row
For Each cell2 In Range(Cells(ra, 2), Cells(r, 2)) 'balayage de la colonne B
If cell2.Value = val2 Then 'si on retrouve la 2nde valeur
resultc = cell2.Offset(0, 1).Value 'on stock la valeur de la cellule de la colonne C sur la ligne
'où a été trouvé la seconde valeur
Cells(rd, 4).Value = resultc '
rd = rd + 1
End If
Next cell2
End If
Next cell
End Sub
BR
USERRRQI115
Simple user
Great brain