Bonjour à tous,
j'ai une erreur de code 91 sur celui-ci...
pouvez vous m'orienter s'il vous plait ..
bonne journée a vous
Cordialement
Tdenis
j'ai une erreur de code 91 sur celui-ci...
pouvez vous m'orienter s'il vous plait ..
VB:
Sub Trouve_la_date()
Dim CibleDate As Range
Dim Recherchedate As Date
Dim RenvoieDate As Range
CibleDate = ("B6;P100")
Recherchedate = ("Q4;FES4")
RenvoieDate = ("Q6;FES100")
Set CibleDate = Cells.Find(what:=FormatDate, lookat:=xlValue)
If Not CibleDate Is Nothing Then
Recherchedate = CibleDate.Select
Active.Offset(0, 0).Select
Selection.Range.Interior.Color = RGB(255, 0, 0)
Else
End If
End Sub
Cordialement
Tdenis