Sub EquivDate()
Dim Saisie$
Saisie = CStr(InputBox('blabla'))
If IsDate(Saisie) Then
MsgBox Evaluate('INDEX(OFFSET(B:B,,-1,COUNTA(B:B)),MATCH(' & _
CLng(CDate(Saisie)) & ',OFFSET(B:B,,,COUNTA(B:B)),0))')
Else
MsgBox 'pas une date'
End If
End Sub
Sub EquivDate()
Dim c
Dim Saisie$
Saisie = CStr(InputBox('blabla'))
If IsDate(Saisie) Then
c = ('INDEX(OFFSET(B:B,,-1,COUNTA(B:B)),MATCH(' & _
CLng(CDate(Saisie)) & ',OFFSET(B:B,,,COUNTA(B:B)),0))')
Range(c).Value = 'x'
Else
MsgBox 'pas une date'
End If
End Sub
Cependant comment faire pour selectionner la cellule 'c-1'