E
Evelynetfrancois
Guest
bonjour ltoutes et tous
j'ai un petit soucis par rapport a cette macro
elle fonctionne parfaitement bien
mais sur une version plus ancienne (98)
les dates ne sont plus trouvees(reconnues)
auriez vous une solution a me proposer
merci d'avance et bonne soiree
EetF
Private Sub Worksheet_Activate()
Dim c As Range
Dim z As String
Dim i As Byte
With Rows(1)
Set c = .Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
i = c.Column
z = c.Address
Range(z).Activate
End If
End With
On Error GoTo Out:
ActiveWindow.ScrollColumn = i
Exit Sub
Out:
MsgBox 'Date ' & Format(Date, 'DD/MM/YYYY') & ' Non Trouvée'
End Sub
j'ai un petit soucis par rapport a cette macro
elle fonctionne parfaitement bien
mais sur une version plus ancienne (98)
les dates ne sont plus trouvees(reconnues)
auriez vous une solution a me proposer
merci d'avance et bonne soiree
EetF
Private Sub Worksheet_Activate()
Dim c As Range
Dim z As String
Dim i As Byte
With Rows(1)
Set c = .Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
i = c.Column
z = c.Address
Range(z).Activate
End If
End With
On Error GoTo Out:
ActiveWindow.ScrollColumn = i
Exit Sub
Out:
MsgBox 'Date ' & Format(Date, 'DD/MM/YYYY') & ' Non Trouvée'
End Sub