Bonjour et bienvenue sur le forum lucky68,
Essaie en mettant ce code dans le code de la Feuil2 :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim c As Range
If Not Sh Is Sheets(1) Then
If Cells(4, 5) = "" Then
Cells(3, 6) = ""
Else
Set c = Sheets(1).Cells.Find(Cells(4, 5), Lookat:=xlPart)
If Not c Is Nothing Then
Cells(3, 6) = c.Offset(2)
End If
End If
End If
End Sub
Ce code marche si les dates et noms se trouvent dans la première feuille. Les noms doivent se trouver 2 lignes plus bas que les dates.
La case où tu rentres la date ne doit pas changer (E4).
Test et dis quoi comme dirait l'aut' !
-- 09 Jan 2010 17:12 --
Oups! Salut haonv!
haonv a écrit :
Avec un tableau comme celui de la feuille 1 ,ce sera difficile ,voir impossible.
Pas faux! Mais impossible n'est pas VBA !
Si notre ami veut des formules, il faudra effectivement effectuer un travail de préformatage des données!
Edit : Petite modif' dans le code, il faut lire cells(3,6) et pas cells(4,8) pour le nom du responsable!