Couleur de la cellule active

Bonsoir,

j'aimerais à l'ouverture du fichier et seulement à l'ouverture, que la couleur de fond de la cellule active soit jaune.

Je joints mon fichier.

Merci d'avance.

Jojo

Bonjour,

à tester,

Private Sub Workbook_Open()
Dim i As Long
'Application.DisplayFullScreen = True
'ActiveWindow.WindowState = xlMaximized

'sélection de l'onglet du mois en cours
onglet = Format(Date, "mm") & "-" & Year(Date)
Sheets(onglet).Activate

'activer la cellule du jours en cours
dt = CLng(Date)
i = Application.Match(dt, Sheets(onglet).Range("B:B"), 0)
With Range("D" & i)
.Activate
'.Interior.ColorIndex = 6 'il faut enlever le MDP pour executer cette ligne
End With
End Sub

Bonjour,

Qq exemples

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

Ceuzin

Bonjour,

Une autre proposition à étudier.

La prochaine fois, tu évites de joindre un fichier protégé.

Cdlt.

Private Sub Workbook_Open()
Dim ws As Worksheet, nm As String, N As Long
    nm = Format(Date, "mm") & "-" & Year(Date)
    Set ws = ThisWorkbook.Worksheets(nm)
    With ws
        N = Application.Match(CLng(Date), .Range(SOURCE), 0)
        Set ACell = .Cells(N, 2)
        ACell.Interior.Color = 65535
    End With
    Application.Goto ACell, True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ACell.Interior.Color = xlNone
    ThisWorkbook.Save
End Sub

Merci, à tous.

Malheureusement, le code d'Isabelle ne fonctionne pas.

Peut-être à cause des MFC.

Salutations

Jojo

Merci Ceuzin pour tous ces exemples.

Un peu compliqués pour moi!

Salutations.

Jojo

Merci aussi Jean-Eric.

Malheureusement, ça ne fonctionne pas dans mon fichier.

MFC en cause ???

Désolé pour le verrouillage par Mot de Passe. Oups !

Salutations.

Jojo

Pour ceux qui voudraient encore tenter quelque chose, le mot de passe est : frittage0

Bonjour,

Ma proposition revisitée avec un mot de passe.

Vire tes cellules fusionnées.

Cdlt.

ok, je refais mon tableau sans fusionner les cellules.

Merci jean-Eric!

Jojo

Bonjour à tous,

Jojo, voici un exemple incluant le MDP,

Les variables onglet et ligneDateDujour sont déclarés Public sur le module1 de sorte qu'ils soient reconnus à l'exécution de la macro événementielle Workbook_BeforeClose

Private Sub Workbook_Open()
Dim i As Long
'ouverture plein écran
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
onglet = Format(Date, "mm") & "-" & Year(Date)

With Sheets(onglet)
'   sélection de l'onglet du mois en cours
    .Activate
'   activer la cellule "heure" du jours en cours
    dt = CLng(Date)
    ligneDateDujour = Application.Match(dt, .Range("B:B"), 0)
    .Range("D" & ligneDateDujour).Activate
'   mettre la couleur jaune à la cellule du jours en cours
    .Unprotect "frittage0"
    .Range("B" & ligneDateDujour).Interior.ColorIndex = 6 'il faut enlever le MDP pour cette commande
    .Protect "frittage0"
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'   enlever la couleur jaune à la cellule du jours en cours
With Sheets(onglet)
    .Unprotect "frittage0"
    .Range("B" & ligneDateDujour).Interior.ColorIndex = xlNone
    .Protect "frittage0"
End With
ThisWorkbook.Save
End Sub

Bonjour et merci beaucoup Isabelle.

C'est pas très gentil ce que vous faites pour le novice que je suis.

Les commentaires en vert vont bien m'aider à la compréhension du code.

J'aissaie la macro dès que je rentre chez moi.

Bon weekend Isabelle e encore mille mercis !!!

Jojo