VBA Excel - Se positionner sur date du jour

Question

Bonjour à tous, 

Je bute sur un petit truc dans une macro excel.
Sur ma feuille, j'ai tout le planning de l'année.
Ca se présente sous cette forme:
1ère ligne, les jours de lundi à vendredi (sous la forme "ven 28 oct")
2ème ligne: planning matin
3ème ligne: planning après-midi
et tout de suite en dessous, on recommence avec la semaine suivante.

Comment faire pour qu'à l'ouverture de la feuille, on aille directement sur la ligne de la semaine en cours?

D'avance, un grand merci!


Configuration: Windows XP / Internet Explorer 8.0

pijaku · Answer

Bonjour,
Clic droit sur l'onglet de la feuille concernée / Visualiser le code, dans la fenêtre visual basic ouverte, copier/coller ce code :

Private Sub Worksheet_Activate()
D = CDate(Date)
D = Int(D)
num_sem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
num_sem = 3 * (((D - num_sem - 3 + (Weekday(num_sem) + 1) Mod 7)) \ 7 + 1)
Range("A" & num_sem).Select
End Sub

sources michel_m d'après Laurent Longre

Mike-31 · Answer

Salut, 

Exemple colonne A tu as tes dates peu importe le format, le principal que ces dates correspondent bien à un jour, mois et année 
ce code collé dans les propriétés de la feuille concernée, sélectionnera la date du jour en colonne A dès que la feuille sera activée 

Private Sub Worksheet_Activate()
Dim x
x = Date
With ActiveSheet.Range("A:A")
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
End If
End With
Range(firstAddress).Select
End Sub

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

VBA Excel - Se positionner sur date du jour

2 réponses

Discussions similaires

Newsletters