Au départ, j'avais appliqué une MEFC avec Mod afin de colorier les mois
pairs en gris et les impairs en jaune clair.
Murphy et sa loi étant passé par là, il se fait qu'il manque parfois un mois
dans la liste.
D'où une suite de 2 mois différents de même couleur.
Dans un second temps, j'ai mis ma MEFC --> mois(a1)=mois(a2) ----> gris.
Mais là, il ne me colorie pas bien la colonne car il ne change que la
première date du mois (puisque pour la 2°, le mois est = à la ligne
précédente).
Auriez-vous une idée, svp?
merci et bon WE
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Salut Denis Si on avait eu cela en 40, on n'aurait pas perdu la guerre. Grôsse artillerie!
J'ai quelques difficultés de compréhension avec ton premier exemple. Mais, que dis-tu de ma macro? ---------------- Sub colorier_mois()
Range("j2").Interior.ColorIndex = 20 'pas utile, juste pour + de facilités visuelles pour moi Range("dat").Interior.ColorIndex = 19 'idem n = 1 For Each c In Range("dat") If Month(c) = Month(c.Offset(-1, 0)) Then n = n + 1 If n Mod 2 = 0 Then c.Interior.ColorIndex = 45 Else: c.Interior.ColorIndex = 15 End If n = n + 1 Next End Sub -------------------- Un tout grand merci jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : mvh5h7$rth$
Un fichier Exemple :
http://www.cjoint.com/c/EJmuInMUPtG
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Salut Denis
Si on avait eu cela en 40, on n'aurait pas perdu la guerre. Grôsse
artillerie!
J'ai quelques difficultés de compréhension avec ton premier exemple.
Mais, que dis-tu de ma macro?
----------------
Sub colorier_mois()
Range("j2").Interior.ColorIndex = 20 'pas utile, juste pour + de facilités
visuelles pour moi
Range("dat").Interior.ColorIndex = 19 'idem
n = 1
For Each c In Range("dat")
If Month(c) = Month(c.Offset(-1, 0)) Then n = n + 1
If n Mod 2 = 0 Then
c.Interior.ColorIndex = 45
Else: c.Interior.ColorIndex = 15
End If
n = n + 1
Next
End Sub
--------------------
Un tout grand merci
jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
mvh5h7$rth$1@speranza.aioe.org...
Un fichier Exemple :
http://www.cjoint.com/c/EJmuInMUPtG
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Salut Denis Si on avait eu cela en 40, on n'aurait pas perdu la guerre. Grôsse artillerie!
J'ai quelques difficultés de compréhension avec ton premier exemple. Mais, que dis-tu de ma macro? ---------------- Sub colorier_mois()
Range("j2").Interior.ColorIndex = 20 'pas utile, juste pour + de facilités visuelles pour moi Range("dat").Interior.ColorIndex = 19 'idem n = 1 For Each c In Range("dat") If Month(c) = Month(c.Offset(-1, 0)) Then n = n + 1 If n Mod 2 = 0 Then c.Interior.ColorIndex = 45 Else: c.Interior.ColorIndex = 15 End If n = n + 1 Next End Sub -------------------- Un tout grand merci jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : mvh5h7$rth$
Un fichier Exemple :
http://www.cjoint.com/c/EJmuInMUPtG
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
MichD
Voir le fichier exemple : http://www.cjoint.com/c/EJmvPnzIi8s
Voir le fichier exemple : http://www.cjoint.com/c/EJmvPnzIi8s
Voir le fichier exemple : http://www.cjoint.com/c/EJmvPnzIi8s
isabelle
ta macro fonctionne pile poil Jacques, t'avais pas du tout besoin d'aide, allez avoue tu filais pour jaser ;-) bisou* isabelle
Le 2015-10-12 16:49, Jacquouille a écrit :
Mais, que dis-tu de ma macro? ---------------- Sub colorier_mois()
Range("j2").Interior.ColorIndex = 20 'pas utile, juste pour + de facilités visuelles pour moi Range("dat").Interior.ColorIndex = 19 'idem n = 1 For Each c In Range("dat") If Month(c) = Month(c.Offset(-1, 0)) Then n = n + 1 If n Mod 2 = 0 Then c.Interior.ColorIndex = 45 Else: c.Interior.ColorIndex = 15 End If n = n + 1 Next End Sub -------------------- Un tout grand merci jacques.
ta macro fonctionne pile poil Jacques, t'avais pas du tout besoin d'aide, allez
avoue tu filais pour jaser ;-)
bisou*
isabelle
Le 2015-10-12 16:49, Jacquouille a écrit :
Mais, que dis-tu de ma macro?
----------------
Sub colorier_mois()
Range("j2").Interior.ColorIndex = 20 'pas utile, juste pour + de facilités
visuelles pour moi
Range("dat").Interior.ColorIndex = 19 'idem
n = 1
For Each c In Range("dat")
If Month(c) = Month(c.Offset(-1, 0)) Then n = n + 1
If n Mod 2 = 0 Then
c.Interior.ColorIndex = 45
Else: c.Interior.ColorIndex = 15
End If
n = n + 1
Next
End Sub
--------------------
Un tout grand merci
jacques.
ta macro fonctionne pile poil Jacques, t'avais pas du tout besoin d'aide, allez avoue tu filais pour jaser ;-) bisou* isabelle
Le 2015-10-12 16:49, Jacquouille a écrit :
Mais, que dis-tu de ma macro? ---------------- Sub colorier_mois()
Range("j2").Interior.ColorIndex = 20 'pas utile, juste pour + de facilités visuelles pour moi Range("dat").Interior.ColorIndex = 19 'idem n = 1 For Each c In Range("dat") If Month(c) = Month(c.Offset(-1, 0)) Then n = n + 1 If n Mod 2 = 0 Then c.Interior.ColorIndex = 45 Else: c.Interior.ColorIndex = 15 End If n = n + 1 Next End Sub -------------------- Un tout grand merci jacques.
Jacquouille
Bonjour Denis, Isabelle, Daniel et Jacky ... et les autres
Que je le dise moi-même, la macro que j'ai présentée en dernier lieu est superbe... car en grand breton, patois que je ne pratique pas. Mes msg ne sont donc pas du remplissage de fil. -)
Au vu de la macro présentée par Denis, j'ai constaté que la sienne est encore meilleure et que la mienne pouvait être simplifiée, sans tenir compte que le mois soit ou non pair. Il suffit qu'il soit différent du précédent pour changer de couleur.
Grand merci à vous tous. Bonne journée (ici, froid et brouillard). Jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : mvh9fa$4re$
Voir le fichier exemple : http://www.cjoint.com/c/EJmvPnzIi8s
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Bonjour Denis, Isabelle, Daniel et Jacky ... et les autres
Que je le dise moi-même, la macro que j'ai présentée en dernier lieu est
superbe... car en grand breton, patois que je ne pratique pas. Mes msg ne
sont donc pas du remplissage de fil. -)
Au vu de la macro présentée par Denis, j'ai constaté que la sienne est
encore meilleure et que la mienne pouvait être simplifiée, sans tenir compte
que le mois soit ou non pair. Il suffit qu'il soit différent du précédent
pour changer de couleur.
Grand merci à vous tous.
Bonne journée (ici, froid et brouillard).
Jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
mvh9fa$4re$1@speranza.aioe.org...
Voir le fichier exemple : http://www.cjoint.com/c/EJmvPnzIi8s
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Bonjour Denis, Isabelle, Daniel et Jacky ... et les autres
Que je le dise moi-même, la macro que j'ai présentée en dernier lieu est superbe... car en grand breton, patois que je ne pratique pas. Mes msg ne sont donc pas du remplissage de fil. -)
Au vu de la macro présentée par Denis, j'ai constaté que la sienne est encore meilleure et que la mienne pouvait être simplifiée, sans tenir compte que le mois soit ou non pair. Il suffit qu'il soit différent du précédent pour changer de couleur.
Grand merci à vous tous. Bonne journée (ici, froid et brouillard). Jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : mvh9fa$4re$
Voir le fichier exemple : http://www.cjoint.com/c/EJmvPnzIi8s
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
