Sub Recherche_noms()
SAV_FActive 'sav nom feuille active
Dim EQM1Trouve As Long, EQM2Trouve As Long, EQM3Trouve As Long, EQM4Trouve As Long, EQM5Trouve As Long
Dim EQM1, EQM2, EQM3, EQM4, EQM5
EQM1 = Sheets(FActive).Range("B6").Value
EQM2 = Sheets(FActive).Range("C6").Value
EQM3 = Sheets(FActive).Range("D6").Value
EQM4 = Sheets(FActive).Range("E6").Value
EQM5 = Sheets(FActive).Range("F6").Value
Application.ScreenUpdating = False
Cherche_date
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'recherche equipe matin 1
If EQM1 = "" Then
Sheets(FActive).Range("B12").Value = ""
Else
On Error Resume Next
EQM1Trouve = Selection.Find(EQM1, , xlValues, xlWhole).Row
On Error GoTo 0
If EQM1Trouve <> 0 Then
Sheets(FActive).Range("B12").Value = Cells(EQM1Trouve, "J").Value
Else
Sheets(FActive).Range("B12").Value = "?"
End If
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'recherche equipe matin 2
If EQM2 = "" Then
Sheets(FActive).Range("B13").Value = ""
Else
On Error Resume Next
EQM2Trouve = Selection.Find(EQM2, , xlValue, xlWhole).Row
On Error GoTo 0
If EQM2Trouve <> 0 Then
Sheets(FActive).Range("B13").Value = Cells(EQM2Trouve, "J").Value
Else
Sheets(FActive).Range("B13").Value = "?"
End If
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'recherche equipe matin 3
If EQM3 = "" Then
Sheets(FActive).Range("B14").Value = ""
Else
On Error Resume Next
EQM3Trouve = Selection.Find(EQM3, , xlValue, xlWhole).Row
On Error GoTo 0
If EQM3Trouve <> 0 Then
Sheets(FActive).Range("B14").Value = Cells(EQM3Trouve, "J").Value
Else
Sheets(FActive).Range("B14").Value = "?"
End If
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'recherche equipe matin 4
If EQM4 = "" Then
Sheets(FActive).Range("B15").Value = ""
Else
On Error Resume Next
EQM4Trouve = Selection.Find(EQM4, , xlValue, xlWhole).Row
On Error GoTo 0
If EQM4Trouve <> 0 Then
Sheets(FActive).Range("B15").Value = Cells(EQM4Trouve, "J").Value
Else
Sheets(FActive).Range("B15").Value = "?"
End If
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'recherche equipe matin 5
If EQM5 = "" Then
Sheets(FActive).Range("B16").Value = ""
Else
On Error Resume Next
EQM5Trouve = Selection.Find(EQM5, , xlValue, xlWhole).Row
On Error GoTo 0
If EQM5Trouve <> 0 Then
Sheets(FActive).Range("B16").Value = Cells(EQM5Trouve, "J").Value
Else
Sheets(FActive).Range("B16").Value = "?"
End If
End If
Retour_FActive
End Sub