Evelynetfrancois
XLDnaute Impliqué
BONJOUR à tous
voici mon probleme....
Cette macro ci-dessous fonctionne parfaitement si les dates de ma feuille sont au format "15/11/2007"
Comment la faire fonctionner avec un format "jeudi 15 novembre 2007"?
je tourne autour des "FormatDate(aaaa/mmmm/yyyy) sans resultat !!!
merci pour toutes vos aides si precieuses
E et F
Dim c As Range
Dim z As String
Dim i As Byte
With Columns(1)
Set c = .Find(Date + 1, LookIn:=xlValues)
If Not c Is Nothing Then
i = c.Row
z = c.Address
ActiveWindow.ScrollRow = i
Range(z).Activate
End If
End With
voici mon probleme....
Cette macro ci-dessous fonctionne parfaitement si les dates de ma feuille sont au format "15/11/2007"
Comment la faire fonctionner avec un format "jeudi 15 novembre 2007"?
je tourne autour des "FormatDate(aaaa/mmmm/yyyy) sans resultat !!!
merci pour toutes vos aides si precieuses
E et F
Dim c As Range
Dim z As String
Dim i As Byte
With Columns(1)
Set c = .Find(Date + 1, LookIn:=xlValues)
If Not c Is Nothing Then
i = c.Row
z = c.Address
ActiveWindow.ScrollRow = i
Range(z).Activate
End If
End With