Remplissage ligne du jour sans MFC

un internaute

XLDnaute Impliqué
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
 

Pièces jointes

  • toto.xls
    109.5 KB · Affichages: 22

pierrejean

XLDnaute Barbatruc
Bonjour
A tester:
Code:
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

XLDnaute Impliqué
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
 

Pièces jointes

  • toto.xls
    104.5 KB · Affichages: 11

Discussions similaires

Réponses
6
Affichages
1 K

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26