Cellule active date du jour
Résolu/Fermé
takita
Messages postés
14
Date d'inscription
mardi 21 juin 2011
Statut
Membre
Dernière intervention
19 janvier 2015
-
9 janv. 2015 à 15:13
takita Messages postés 14 Date d'inscription mardi 21 juin 2011 Statut Membre Dernière intervention 19 janvier 2015 - 19 janv. 2015 à 14:40
takita Messages postés 14 Date d'inscription mardi 21 juin 2011 Statut Membre Dernière intervention 19 janvier 2015 - 19 janv. 2015 à 14:40
A voir également:
- Cellule active date du jour
- Mettre à jour ses pilotes - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
1 réponse
jordane45
Messages postés
38138
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 avril 2024
4 649
9 janv. 2015 à 15:37
9 janv. 2015 à 15:37
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
Modifié par takita le 13/01/2015 à 15:45
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.
Modifié par jordane45 le 13/01/2015 à 16:11
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 Sub19 janv. 2015 à 14:40