Remplissage ligne du jour sans MFC

[un internaute]

Bonjour le forum
Comme vous pourez le constater la ligne du jour (couleur 17) est au dessous de la ligne d'aujourdh'ui
Comment obtenir avec la macro la ligne du jour (interiorcolor 17 ) aujourdh'ui sans MFC?
Cordialement


PS: Posté sur un autre forum sans réponse

 

[pierrejean]

Bonjour
A tester:

Sub Colorise_Jour()
Dim J As Long
  For J = 6 To 36
'    If Range("B" & J) = "" And Range("C" & J) = "" Then
    If Range("A" & J) = Date Then
      If J > 6 Then
        Range("A" & J & ":G" & J).Interior.ColorIndex = 17
      End If
      Exit For
    End If
  Next J
End Sub

 

[un internaute]

Bonjour pierrejean
Chapeau un GRAND MERCI à toi
Ici 33 vue et un autre 142 sans réponse.
Je te souhaite une bonne journée
Très cordialement

 

[un internaute]

Re-bonjour pierrejean
Fausse alerte. Regarde le fichier. Ligne A9 (Lundi 4 en couleur) alors qu'elle aurait du avoir ses couleurs initiales. Il faut que la ligne A10 en couleur à l'ouverture du fichier.
Parlé trop tôt.
Cordialement

 

[pierrejean]

Re
Il n'est pas facile de se souvenir des couleurs d'origine !!!
Ces couleurs sont elles définies ou doit-on les stocker ?

 

[un internaute]

re
Les couleurs d'origine sont dans le fichier et sont définies
Colonna A = 15
Colonne B = 6
Colonne C = 4
Colonnes D à G = 43
Les couleurs sont dans ThisWorkbook
Toujours les mêmes
Merci à toi