Onglet couleur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 17 novembre 2019, 09:23

Bonjour,

Avec IsNumeric() qui fonctionne très bien chez moi sur ton dernier fichier :
Private Sub Workbook_Open()
    
    Dim Fe As Worksheet
    Dim NumSem As Integer
    
    For Each Fe In Worksheets
    
        If IsNumeric(Fe.Name) Then  '<--- teste si le nom est numérique !
            
            Select Case Weekday(DateSerial(Year(Date), Month(Date), Fe.Name), vbMonday)
                Case 6, 7
                    Fe.Tab.ColorIndex = Worksheets("Date").Cells(6, 7).Interior.ColorIndex
                    
                Case Else
                    NumSem = Format(DateSerial(Year(Date), Month(Date), Fe.Name), "WW") - Format(DateSerial(Year(Date), Month(Date), 1), "WW")
                    If NumSem = 0 Then NumSem = 1
                    Fe.Tab.ColorIndex = Worksheets("Date").Cells(NumSem, 7).Interior.ColorIndex
            
            End Select
    
            If Fe.Name = Day(Date) Then Fe.Tab.ColorIndex = 3
            
        End If
        
    Next Fe
    
End Sub
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
e
ericp
Membre fidèle
Membre fidèle
Messages : 380
Inscrit le : 5 novembre 2009
Version d'Excel : 2007

Message par ericp » 17 novembre 2019, 09:58

Re, je t'assure, tout a l'heure ça me beuguait ou alors je n'était pas réveillé.
Un autre soucis,
les semaines ne se suivent pas dans la numérotations des jours, et dans la macro, les jours sont fixes, est ce qu'il y a une possibilité de faire en sorte que quel soit les dates, les jours des semaines se colorient .
Par avance, merci pour ta réponse.
Bien cordialement.
ericp
e
ericp
Membre fidèle
Membre fidèle
Messages : 380
Inscrit le : 5 novembre 2009
Version d'Excel : 2007

Message par ericp » 17 novembre 2019, 10:13

Bonjour THEZE,
J'avais mal fait la manip avec ta ligne, c'est nickel de chez nickel.
Un grand à vous tous.
Bon WE.
Bien cordialement.
ericp.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message