Affichage d'une cellule suivant la date du jour

Tentative :

Sub AttrapeLaDate()
d = Format(Date, "dd mmmm")
For Each c In Range("MesDates")
If c = d Then
c.Select
Exit For
End If
Next
End Sub

Serge

"Christ" <christophe.paul@wol.be> a écrit dans le message de news:
3059c242.0402161305.2bc06730@posting.google.com...

Salut à tous,
j'ai un petit souci: je désire que dès l'ouverture d'une feuille, on
tombe sur une cellule suivant la date du jour.
Ex: si nous sommes le 12 janvier, à l'ouverture de la feuille on tombe
sur la cellule contenant le texte "12 janvier".
Cela est il possible ???
Merci
Christ

Salut Christ,

Ne sachant pas si tes dates sont dans
des cellules contiguës, j'ai assuré le coup.

Private Sub Workbook_Open()
Dim c As Range, x As Long, y As String

Sheets("Feuil1").Select ' <<--- à adapter

Application.ScreenUpdating = False
ActiveSheet.UsedRange.Select
x = Date
For Each c In Selection
If IsDate(c) Then
y = c.NumberFormat
c.NumberFormat = "General"
If c = Date Then
c.Select: c.NumberFormat = y
Application.Goto Reference:= _
ActiveCell, Scroll:=True
Exit Sub
End If
End If
c.NumberFormat = y
Next
Application.ScreenUpdating = True
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Christ" <christophe.paul@wol.be> a écrit dans le message de
news:3059c242.0402161305.2bc06730@posting.google.com...

Salut à tous,
j'ai un petit souci: je désire que dès l'ouverture d'une feuille, on
tombe sur une cellule suivant la date du jour.
Ex: si nous sommes le 12 janvier, à l'ouverture de la feuille on tombe
sur la cellule contenant le texte "12 janvier".
Cela est il possible ???
Merci
Christ

Bonjour Christ,

En supposant que la date recherchée soit saisie sous la forme jj/mm/aa au
format jj
(dans la feuille de code de l'onglet concerné)

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Set DateJ = ActiveSheet.UsedRange.Find(Date, , xlValues)
If Not DateJ Is Nothing Then
Application.GoTo Reference:ÚteJ, Scroll:=True
Else
MsgBox "Aucune date trouvée..."
End If
End Sub


ChrisV


"Christ" <christophe.paul@wol.be> a écrit dans le message de news:
3059c242.0402161305.2bc06730@posting.google.com...

Salut à tous,
j'ai un petit souci: je désire que dès l'ouverture d'une feuille, on
tombe sur une cellule suivant la date du jour.
Ex: si nous sommes le 12 janvier, à l'ouverture de la feuille on tombe
sur la cellule contenant le texte "12 janvier".
Cela est il possible ???
Merci
Christ

Merci
Mais je viens de m'appercevoir que ce sera plus compliqué que prévu.
Mes dates sont insérées par semaine dans ma feuille
Ex: Octobre Du Lundi 6 au Vendredi 10


"Jean-François Aubert" <àOterjfaubert@bluewin.ch> wrote in message news:<#Fu6KnN9DHA.2404@TK2MSFTNGP12.phx.gbl>...

Salut Christ,

Ne sachant pas si tes dates sont dans
des cellules contiguës, j'ai assuré le coup.

Private Sub Workbook_Open()
Dim c As Range, x As Long, y As String

Sheets("Feuil1").Select ' <<--- à adapter

Application.ScreenUpdating = False
ActiveSheet.UsedRange.Select
x = Date
For Each c In Selection
If IsDate(c) Then
y = c.NumberFormat
c.NumberFormat = "General"
If c = Date Then
c.Select: c.NumberFormat = y
Application.Goto Reference:= _
ActiveCell, Scroll:=True
Exit Sub
End If
End If
c.NumberFormat = y
Next
Application.ScreenUpdating = True
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Christ" <christophe.paul@wol.be> a écrit dans le message de
news:3059c242.0402161305.2bc06730@posting.google.com...

Salut à tous,
j'ai un petit souci: je désire que dès l'ouverture d'une feuille, on
tombe sur une cellule suivant la date du jour.
Ex: si nous sommes le 12 janvier, à l'ouverture de la feuille on tombe
sur la cellule contenant le texte "12 janvier".
Cela est il possible ???
Merci
Christ