Const codate = "A"
Sub OK()
Dim obj As Object, d As Date
d = Date
Set obj = Columns(codate).Find(d, , , xlWhole)
If Not obj Is Nothing Then obj.Select
End Sub
Const lidate = 2
Sub OK()
Dim obj As Object, d As Date
d = Date
Set obj = Rows(lidate).Find(d, , , xlWhole)
If Not obj Is Nothing Then obj.Select
End Sub
Private Sub Workbook_Open()
Call OK
End Sub
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.
Le fait d'être membre vous permet d'avoir des options supplémentaires.