Remplissage ligne du jour sans MFC

pierrejean

XLDnaute Barbatruc

• 4 Février 2019

• #2

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 4 Février 2019

• #3

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 5 Février 2019

• #4

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

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Février 2019

• #5

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 5 Février 2019

• #6

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

 

Dernière édition: 6 Février 2019

Vote positif 0 Vote négatif