Cellule active date du jour
Résolu
takita
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
takita Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
takita Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Cellule active date du jour
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Mettre a jour chromecast - Accueil - Guide TV et vidéo
1 réponse
Bonjour,
Places ce code dans un Module
Et appelles le depuis la fonction Workbook_Open
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
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.
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