Recherche d'une cellule à l'ouverture d'un classeur [Résolu]

Signaler
Messages postés
28
Date d'inscription
samedi 9 octobre 2004
Statut
Membre
Dernière intervention
30 janvier 2012
-
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
-
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

2 réponses

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
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

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
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

jpleroisse