gmd, si je veux appliquer cette règle/formule à d'autre cellule. Je dois mis prendre comment.
Ton code est ceci dans le VBA.
Option Explicit
Dim fr As Worksheet, cell As Range, tablo
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(Sh.Name, 5) = "Soir_" And Target.Address = "$C$3" Then
Application.EnableEvents = False
Set fr = Sheets("Roster")
Set cell = fr.Cells.Find(Target.Value, lookat:=xlWhole)
If Not cell Is Nothing Then
tablo = Range(cell.Offset(2, 0), cell.Offset(17, 0))
Sh.Range("D5").Resize(UBound(tablo, 1), 1) = tablo
End If
End If
Application.EnableEvents = True
End Sub
Sub Evenement()
Application.EnableEvents = True
End Sub
Je veux la même chose aussi pour 5 autres emplacement dans les mêmes onglet "soir_"