polompolom69
Messages postés28Date d'inscriptionsamedi 9 octobre 2004StatutMembreDernière intervention30 janvier 2012
-
10 mars 2005 à 22:18
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
11 mars 2005 à 00:37
Bonjour à tous
J'ai mon planning d'activité sur une feuille Excel et je souhaiterais qu'en ouvrant celui-ci, la cellule active se place automatiquement sur la date du jour.
Les dates sont dans le sens vertical.
Merci à tous.
Polompolom
A voir également:
Recherche d'une cellule à l'ouverture d'un classeur
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 11 mars 2005 à 00:37
Salut,
Ou alors ceci
Private Sub Rechercher()
Dim Myrange As Range
Dim element As Range
Set Myrange = Range("A1:A100") 'ici tu choisi le nombre de ligne à scruter
For Each element In Myrange
If element.Value = Date Then element.Select: Exit Sub
Next
End Sub
Private Sub Workbook_Open()
Sheets(1).Activate
Call Rechercher
End Sub
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 11 mars 2005 à 00:09
Bonsoir,
Le code suivant est je pense ce que tu cherche. Mais d'abord.
Les cellules contenants les dates doivent être au format MEDIUM c.a.d
10-mars-05 , tu choisis dans Format / Cellules.
Dans VBA insertion Module, dans le module le code suivant:
Sub Rechercher()
Dim LaDate As String
LaDate = Format(Date, "Médium Date")
Dim r, c, d
d = LaDate
For r = 1 To 100
For c = 1 To 12
If Cells(r, c).Value = d Then
Cells(r, c).Select
End If
Next c
Next r
End Sub
Ensuite dans ThisWorkBook tu place les instructions suivantes.
Private Sub Workbook_Open()
Sheets(1).Activate
Call Rechercher
End Sub