Discussion :

[Daniela]

Bonjour a tous, j'ai un probleme.
Moi j'ai un file excel avec dans chaque feuille un mois avec tous les jours du mois format jj/mm/yy. moi je voudrais faire une methode que chaque fois que j'ouvre le tableau souligne la date du jour. c'est a dire que si je ouvre demain 08/02/12 sera ouver la feuil de fevrier et à la ligne 08/02/12.
comment je peux faire?

[Daniela]

Bonjour a tous, j'ai un probleme.
Moi j'ai un file excel avec dans chaque feuille un mois avec tous les jours du mois format jj/mm/yy. moi je voudrais faire une methode que chaque fois que j'ouvre le tableau souligne la date du jour. c'est a dire que si je ouvre demain 08/02/12 sera ouver la feuil de fevrier et à la ligne 08/02/12.
comment je peux faire?

je me suis trompée dans la description du probleme. Moi je voudrais chaque fois que j'ouvre le tableau me souligne en rouge la date d'aujourd'hui.
moi j'ai 12 feuilles, chacun concerne un mois et dans la colonne A2 il y a les jours du mois format jj/mm/yy. Donc si j'ouvre le tableau demain je voudrais souligné en rouge la cellule 08/02/12.

Merci beaucoup et desolé pour l'erreur

[BlueMonkey]

Bonjour,

Ajouter dans l'onglet le classeur (<ALT>+ <F11>, chercher ThisWorkbook) le code suivant VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call SetCellDateColorIndex(Now(), xlNone)
End Sub
 
Private Sub Workbook_Open()
    Call SetCellDateColorIndex(Now(), 3)
End Sub
 
Sub SetCellDateColorIndex(d As Date, colorI As Integer)
    Dim c As Range
 
    For Each c In Worksheets(Month(Now())).Range("A2:A33")
        If Day(Now()) = Day(c.Value) Then
            c.Interior.ColorIndex = colorI
            c.Parent.Select
            c.Select
            Exit For
        End If
    Next c
End Sub

[Daniela]

merci beaucoup pour le code mais ne marche pas. surment j'ai mal sauvegardé le code.
ci-joint il y a mon fichier. Merci encore

Bonjour,

Ajouter dans l'onglet le classeur (<ALT>+ <F11>, chercher ThisWorkbook) le code suivant VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call SetCellDateColorIndex(Now(), xlNone)
End Sub
 
Private Sub Workbook_Open()
    Call SetCellDateColorIndex(Now(), 3)
End Sub
 
Sub SetCellDateColorIndex(d As Date, colorI As Integer)
    Dim c As Range
 
    For Each c In Worksheets(Month(Now())).Range("A2:A33")
        If Day(Now()) = Day(c.Value) Then
            c.Interior.ColorIndex = colorI
            c.Parent.Select
            c.Select
            Exit For
        End If
    Next c
End Sub

[grard]

Bonjour,

Le code de BlueMonkey fonctionne très bien.
Seulement le classeur que tu joins ne comprte aucune date en février 2012, donc pas de test possible.
De plus tu as copié le code dans un module standard alors qu'il doit l'être dans ThisWorkbook.

Cordialement.

[Daniela]

Bonjour,

Le code de BlueMonkey fonctionne très bien.
Seulement le classeur que tu joins ne comprte aucune date en février 2012, donc pas de test possible.
De plus tu as copié le code dans un module standard alors qu'il doit l'être dans ThisWorkbook.

Cordialement.

oui j'ai mis comme piece jointe l'année prochaine. desolé mais c'est quoi thisworkbook?

[Daniela]

oui j'ai mis comme piece jointe l'année prochaine. desolé mais c'est quoi thisworkbook?

j'ai regardé les tutorials et j'ai bien compris. le code marche tres bien. merci beaucoup a tous

[grard]

j'ai regardé les tutorials et j'ai bien compris. le code marche tres bien. merci beaucoup a tous

Super !
Bonne continuation.

[glenngac]

Bonjour a tous, j'ai un probleme.
Moi j'ai un file excel avec dans chaque feuille un mois avec tous les jours du mois format jj/mm/yy. moi je voudrais faire une methode que chaque fois que j'ouvre le tableau souligne la date du jour. c'est a dire que si je ouvre demain 08/02/12 sera ouver la feuil de fevrier et à la ligne 08/02/12.
comment je peux faire?

Oui, je voudrais aussi savoir comment faire