Sub toto()
With Sheets("Feuil1")
If Sheets("Feuil2").Range("D4:D25").Find(.Range("G16").Value, LookIn:=xlValues) Is Nothing Or _
Sheets("Feuil2").Range("H4:H25").Find(.Range("G16").Value, LookIn:=xlValues) Is Nothing Then
.Range("O19").Value = False
Else
.Range("O16").Value = .Range("O16").Value + .Range("N16").Value
.Range("E20").Value = "A"
.Range("M20").Value = "H"
End If
End With
End Sub
Sub Boulou()
Dim C As Range, Tr As Integer
Set C = Feuil2.Range("D4:D25,H4:H25").Find(What:=Feuil1.[G16])
If Not C Is Nothing Then
Tr = Range("O16") + Range("N16")
Range("O16") = Tr
Range("E20").FormulaR1C1 = "A"
Range("M20").FormulaR1C1 = "H"
Else
Range("O19") = "FAUX"
End If
End Sub
Mort de rire, le Roger !(…) La solution de DL_13 semble la mieux fonctionner. (…)
Sub Boulou()
Dim C As Range, X As Range, Tr As Integer
Set C = Feuil2.Range("D4:D25").Find(What:=Feuil1.[G16])
Set X = Feuil2.Range("H4:H25").Find(What:=Feuil1.[G16])
If Not C Is Nothing And Not X Is Nothing Then
Tr = Range("O16") + Range("N16")
Range("O16") = Tr
Range("E20") = "A"
Range("M20") = "H"
Else
Range("O19") = "FAUX"
End If
End Sub