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 - 19 janv. 2015 à 14:40

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

Réponse 1 / 1
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 831
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
```
0
1. takita Messages postés 14 Date d'inscription Statut Membre Dernière intervention
  
  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
  1. jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 831 > takita Messages postés 14 Date d'inscription Statut Membre Dernière intervention
    
    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
    
    0
  2. takita Messages postés 14 Date d'inscription Statut Membre Dernière intervention > jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention
    
    merci encore pour cette excellente réponse
    
    0

Cellule active date du jour

1 réponse

Discussions similaires

Newsletters