Bienvenue sur le Forum AurelieJolie
Un bout de code sur ta feuille calendrier
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D5:J10")) Is Nothing Then
If IsDate(Target.Value) Then
'Faire le traitement ici pour la recherche
MsgBox "Click on " & Target.Value
End If
Cancel = True
End If
End Sub
Il ne te reste qu'a travailler la partie recherche des inscriptions.
Mytå