Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

MEFC

24 réponses
Avatar
Jacquouille
Bonjour à toutes et tous,

En colA, des dates.

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

10 réponses

1 2 3
Avatar
JièL
Hello,

la solution de Jacky est donc juste à adapter

au lieu de
Selection de l'ensemble des données
MFC==> =EST.PAIR(LIGNE())
Format...etc...



Selection de l'ensemble des données
MFC==> =EST.PAIR(COLONNE())
Format...etc...

(pas testé, mais c'est juste la logique qui m'interpelle)

--
JièL impair

Le 10/10/2015 17:29, Jacquouille a écrit :
Salut Daniel
J'aimerais que la MEFC se décale d'un mois pour continuer à avoir cette
alternance....
Merci



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"DanielCo" a écrit dans le message de groupe de discussion :
mvb8br$oou$

Bonjour,
Qu'est-ce que tu veux obtenir quand deux mois pairs se suivent ?
Cordialeement
Daniel
Jacquouille a écrit :
Bonjour Jacky
Merci de te pencher sur mon cas.
Je ne cherche pas à peindre 1 ligne sur 2, mais à colorier
différemment les mois pairs des impairs.
Pour ce faire, j'utilisais = MOD(mois(a1));2)=0 en MEFC
Mais, s'il manque un mois, j'ai alors deux mois différents de la même
couleur (puisqu'il manque un mois entre les deux)....




---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com

Avatar
Jacquouille
Bonjour Jièl, Jacky, Daniel et Isabelle,

J'ai bien lu vos réponses. Je suis interpelé par la volonté que vous avez
tous de répondre dans le même sens.
Si je prends mon ancienne solution, ou les vôtres, on reste avec le même
problème.
Si on travaille sur les lignes, on a 1 sur 2 qui est verte et l'autre rouge.
Si on travaille sur le mois, on a un mois en rouge et l'autre en vert. Avec
le prob que s'il manque un mois, les deux mois présents seront de la même
couleur, puisque tous deux seront pairs (ou impairs).
Or, ma question portait sur le principe d'alternance de couleur, même s'il
manque (et surtout) un mois dans la liste.

Perso, je suis occupé à essayer un truc du genre
n=1
For each c in range ("dat")
si mois (c)=mois(c(offset(-1,0)) alors n=n
if n mod 2 = 0 then c.interior.colorindex=vert

si mois (c) <> mois(c(offset(-1,0)) alors n=n+1
if n mod 2 = 0 then c.interior.colorindex=vert
else c.interior.colorindex=vert

Mais, le grand breton et moi, quel émois !
De plus, j'ai essayé ISEVEN (est pair ... coucou Isabelle), mais il n'en
veut pas. D'où le [if n MOD 2 = 0 then .....]
Voilà, il ne reste plus qu'à creuser cette piste.
Mais, quel que soit le résultat, un grand merci à vous tous et toute.
Jacques.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"JièL" a écrit dans le message de groupe de discussion :
mvg33u$cr$

Hello,

la solution de Jacky est donc juste à adapter

au lieu de
Selection de l'ensemble des données
MFC==> =EST.PAIR(LIGNE())
Format...etc...



Selection de l'ensemble des données
MFC==> =EST.PAIR(COLONNE())
Format...etc...

(pas testé, mais c'est juste la logique qui m'interpelle)

--
JièL impair

Le 10/10/2015 17:29, Jacquouille a écrit :
Salut Daniel
J'aimerais que la MEFC se décale d'un mois pour continuer à avoir cette
alternance....
Merci



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"DanielCo" a écrit dans le message de groupe de discussion :
mvb8br$oou$

Bonjour,
Qu'est-ce que tu veux obtenir quand deux mois pairs se suivent ?
Cordialeement
Daniel
Jacquouille a écrit :
Bonjour Jacky
Merci de te pencher sur mon cas.
Je ne cherche pas à peindre 1 ligne sur 2, mais à colorier
différemment les mois pairs des impairs.
Pour ce faire, j'utilisais = MOD(mois(a1));2)=0 en MEFC
Mais, s'il manque un mois, j'ai alors deux mois différents de la même
couleur (puisqu'il manque un mois entre les deux)....




---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com





---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
DanielCo
Bonjour Jacquouille,
Ce serait simple sur tu mettais le classeur sur cjoint.com
Cordialement.
Daniel

Jacquouille a présenté l'énoncé suivant :
Bonjour Jièl, Jacky, Daniel et Isabelle,

J'ai bien lu vos réponses. Je suis interpelé par la volonté que vous avez
tous de répondre dans le même sens.
Si je prends mon ancienne solution, ou les vôtres, on reste avec le même
problème.
Si on travaille sur les lignes, on a 1 sur 2 qui est verte et l'autre rouge.
Si on travaille sur le mois, on a un mois en rouge et l'autre en vert. Avec
le prob que s'il manque un mois, les deux mois présents seront de la même
couleur, puisque tous deux seront pairs (ou impairs).
Or, ma question portait sur le principe d'alternance de couleur, même s'il
manque (et surtout) un mois dans la liste.
Avatar
MichD
Bonjour,

Pourquoi ne pas utiliser une troisième couleur pour les mois pairs ou impairs
qui suivent un premier mois pair ou impair.
Avatar
Jacquouille
Bonjour à vous tous

A l'heure de lire ces derniers msg, voici ce que je viens de trouver.
Les dates sont en J2:J65 (plage nommée "dat")
----------------------------------------
Sub colorier_mois()

Range("j2").Interior.ColorIndex = 20
Range("G4").Interior.ColorIndex = 45
Range("G8").Interior.ColorIndex = 19

Range("dat").Interior.ColorIndex = 19 'xlnonne '45

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
-----------------------

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
mvgeu8$16n$

Bonjour,

Pourquoi ne pas utiliser une troisième couleur pour les mois pairs ou
impairs
qui suivent un premier mois pair ou impair.


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
isabelle
salut Jacques,

supposons les mois:
1 rouge
2 vert
3 rouge
4 vert
5 rouge
6 vert
7 rouge
8 vert
9 rouge
10 vert
11 rouge
12 vert

quel serait le résultat attendu pour:
1
2
3
5
6
7
8
9
10
12

isabelle
Avatar
Jacquouille
Salut Isabelle

Dans ta liste de dates, il manque le mois 4, soit avril.
Donc, avec la MEFC traditionnelle, les mois mars et mai seront rouge et
rouge.... il n'y aura donc pas d'alternance.
Peux-tu essayer ma macro avec ton exemple, chez toi, là où le grand breton
est compris . -))
Déjà merci
jac



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mvgla7$i5e$

salut Jacques,

supposons les mois:
1 rouge
2 vert
3 rouge
4 vert
5 rouge
6 vert
7 rouge
8 vert
9 rouge
10 vert
11 rouge
12 vert

quel serait le résultat attendu pour:
1
2
3
5
6
7
8
9
10
12

isabelle


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
isabelle
oui mais quel serait le résultat attendu ? pour:
1
2
3
5
6
7
8
9
10
12

isabelle

Le 2015-10-12 12:41, Jacquouille a écrit :
Salut Isabelle

Dans ta liste de dates, il manque le mois 4, soit avril.
Donc, avec la MEFC traditionnelle, les mois mars et mai seront rouge et
rouge.... il n'y aura donc pas d'alternance.
Peux-tu essayer ma macro avec ton exemple, chez toi, là où le grand breton est
compris . -))
Déjà merci
jac



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mvgla7$i5e$

salut Jacques,

supposons les mois:
1 rouge
2 vert
3 rouge
4 vert
5 rouge
6 vert
7 rouge
8 vert
9 rouge
10 vert
11 rouge
12 vert

quel serait le résultat attendu pour:
1
2
3
5
6
7
8
9
10
12

isabelle

---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
http://www.avast.com

Avatar
Jacquouille
Re
Une simple alternance de couleurs ....
1 vert
2 rouge
3 vert
5 rouge
6 vert
7 rouge
8 vert
9 rouge
10 vert
12 rouge
mais aussi:
1 vert
1 vert
1 vert
2 rouge
3 vert
3 vert
5 rouge

http://www.cjoint.com/c/EJmtIgkFIie

Merci et bonne soirée
Jac


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mvgqhh$vvl$

oui mais quel serait le résultat attendu ? pour:
1
2
3
5
6
7
8
9
10
12

isabelle

Le 2015-10-12 12:41, Jacquouille a écrit :
Salut Isabelle

Dans ta liste de dates, il manque le mois 4, soit avril.
Donc, avec la MEFC traditionnelle, les mois mars et mai seront rouge et
rouge.... il n'y aura donc pas d'alternance.
Peux-tu essayer ma macro avec ton exemple, chez toi, là où le grand breton
est
compris . -))
Déjà merci
jac



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mvgla7$i5e$

salut Jacques,

supposons les mois:
1 rouge
2 vert
3 rouge
4 vert
5 rouge
6 vert
7 rouge
8 vert
9 rouge
10 vert
11 rouge
12 vert

quel serait le résultat attendu pour:
1
2
3
5
6
7
8
9
10
12

isabelle

---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
http://www.avast.com





---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
MichD
Un fichier Exemple :

http://www.cjoint.com/c/EJmuInMUPtG
1 2 3