colorer l'onglet de la feuille si h2 contient dimanche

[Hamidexcel]

Bonjour ;

Si quelqu’un peut m’aider

Je veux que l’onglet d’une feuille soit coloré en rouge si la cellule h2 contient

Une date dont la journée est dimanche

Exemple si h2 contient 05-08-2012

Alors l’onglet de la feuille sera en rouge.

 

[Fred0o]

Re : colorer l'onglet de la feuille si h2 contient dimanche

Bonsoir sihamidi,

Voici un code à mettre dans le code de tafeuille. Sur le nom de l'onglet, tu fais click-droit puis visualiser le code et tu colle ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [H2]) Is Nothing Then
        If Weekday(Target, vbMonday) = 7 Then
            ActiveWorkbook.Sheets("Feuil1").Tab.Color = 255
        Else
            ActiveWorkbook.Sheets("Feuil1").Tab.Color = 0
        End If
    End If
End Sub

A+

 

[Hamidexcel]

Re : colorer l'onglet de la feuille si h2 contient dimanche

Merci Fred0o, pour la réponse immédiate;

oui ça marche bien ,sauf que j'ai un classeur qui contient 31 feuilles dont h2 de chaque feuille
contient la date de mois je veux juste insérer le code une fois pour le classeur
ou je doit le recopier sur les 31 feuilles
A+

 

[mapomme]

Re : colorer l'onglet de la feuille si h2 contient dimanche

Bonjour sihamidi, Fred0o,

je veux juste insérer le code une fois pour le classeur

En se basant sur le code de Fredo, mettre le code suivant dans le module de code du classeur (ThisWorkbook) pour l'évènement SheetChange.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Tab.Color = IIf(Weekday(Sh.Range("H2")) = 1, 255, 0)
End Sub

 

[Hamidexcel]

Re : colorer l'onglet de la feuille si h2 contient dimanche

Bonjour;
Merci mapomme
c'est juste ce que je veux
ça marche impeccable.