Cellule active date du jour

Résolu

takita -

Bonjour,

Est-il possible qu'à l'ouverture du fichier que la cellule active soit celle de la date du jour ?
https://www.cjoint.com/c/EAjpnnoox3o

Afficher la suite

1 réponse

jordane45 Modérateur

Bonjour,

Places ce code dans un Module

Sub ActiveCelluleDuJour()
Dim ligneDeb As Long
Dim colonne As String

mois = Month(Now)
jour = Day(Now)

Select Case mois
Case 1, 7
 colonne = "C"
Case 2, 8
 colonne = "G"
Case 3, 9
 colonne = "K"
Case 4, 10
 colonne = "O"
Case 5, 11
 colonne = "S"
Case 6, 12
 colonne = "W"
End Select

If mois <= 6 Then
 ligneDeb = 4
Else
 ligneDeb = 38
End If

Cells(ligneDeb + jour - 1, colonne).Select

End Sub

Et appelles le depuis la fonction Workbook_Open

Private Sub Workbook_Open()
    MsgBox "BIENVENUE SUR VOTRE TABLEAU DE BORD. EXCELLENTE JOURNEE"

   'activation de la culle du jour 
   Call ActiveCelluleDuJour()     
End Sub

takita Auteur
Jordane45 tu as été excellent. Mille merci
Juste un petit détail. la cellule active est bien celle du jour. mais je voudrais que ce soit l'onglet calendrier qui apparaisse également à l'ouverture.

0

Réagir

jordane45 Modérateur

@takita

Private Sub Workbook_Open()
    MsgBox "BIENVENUE SUR VOTRE TABLEAU DE BORD. EXCELLENTE JOURNEE"
   ' activation onglet calendrier
    sheets("CALENDRIER").activate

   'activation de la culle du jour 
   Call ActiveCelluleDuJour()     
End Sub

takita Auteur
@jordane45merci encore pour cette excellente réponse

0

Réagir

Cellule active date du jour

1 réponse

Discussions similaires

Newsletters