Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mise en forme conditionnelle

Mise en forme conditionnelle

7 réponses
Avatar
Olivier
Comment faire une mise en forme conditionnelle avec plus=20
de 3 conditions diff=E9rentes ?

Pour une cellule qui contient une date, j'aimerais avoir=20
automatiquement un motif de couleur diff=E9rente pour les 12=20
mois de l'ann=E9e.

Merci de m'aider si c'est dans vos cordes. =20
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
Bonjour,

De la macro uniquement!!!
Sub CouleursMois()
For Each c In Selection
If c = "" Then m = 0 Else m = Month(c)
Select Case m
Case 1
c.Interior.ColorIndex = 35
Case 2
c.Interior.ColorIndex = 36
Case 3
c.Interior.ColorIndex = 37
Case 4
c.Interior.ColorIndex = 38
Case 5
c.Interior.ColorIndex = 39
Case 6
c.Interior.ColorIndex = 40
Case 7
c.Interior.ColorIndex = 41
Case 8
c.Interior.ColorIndex = 42
Case 9
c.Interior.ColorIndex = 43
Case 10
c.Interior.ColorIndex = 44
Case 11
c.Interior.ColorIndex = 45
Case 12
c.Interior.ColorIndex = 46
Case 0
c.Interior.ColorIndex = 0
End Select
Next
End Sub

Camille
-----Message d'origine-----
Comment faire une mise en forme conditionnelle avec plus
de 3 conditions différentes ?

Pour une cellule qui contient une date, j'aimerais avoir
automatiquement un motif de couleur différente pour les
12

mois de l'année.

Merci de m'aider si c'est dans vos cordes.

.



Avatar
Dédé
Salut Olivier !

Tu ne peut pas avoir plus de trois conditions différentes avec les fonctions
de base de Excel ...

La seule solution c'est de passer par VBA et par exemple en utilisant Select
case ...

Est-ce que tu connais assez VBA ou bien tu veux un exemple ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Olivier" a écrit dans le message de
news:61ed01c37796$c1613980$
Comment faire une mise en forme conditionnelle avec plus
de 3 conditions différentes ?

Pour une cellule qui contient une date, j'aimerais avoir
automatiquement un motif de couleur différente pour les 12
mois de l'année.

Merci de m'aider si c'est dans vos cordes.
Avatar
Denys
Bonjour Camille,

Je n'ai pas posé la question, mais merci bien. Seulement,
j'aurais une sous-question; comment fait-on pour que
cette instruction "roule" toujours? Autrement dit, où la
place-t-on???? "Workbook open" ? "General"...

Comment faire sasn un bouton de commande ou quelque chose
du genre??

Merci,

Denys


-----Original Message-----
Bonjour,

De la macro uniquement!!!
Sub CouleursMois()
For Each c In Selection
If c = "" Then m = 0 Else m = Month(c)
Select Case m
Case 1
c.Interior.ColorIndex = 35
Case 2
c.Interior.ColorIndex = 36
Case 3
c.Interior.ColorIndex = 37
Case 4
c.Interior.ColorIndex = 38
Case 5
c.Interior.ColorIndex = 39
Case 6
c.Interior.ColorIndex = 40
Case 7
c.Interior.ColorIndex = 41
Case 8
c.Interior.ColorIndex = 42
Case 9
c.Interior.ColorIndex = 43
Case 10
c.Interior.ColorIndex = 44
Case 11
c.Interior.ColorIndex = 45
Case 12
c.Interior.ColorIndex = 46
Case 0
c.Interior.ColorIndex = 0
End Select
Next
End Sub

Camille
-----Message d'origine-----
Comment faire une mise en forme conditionnelle avec plus
de 3 conditions différentes ?

Pour une cellule qui contient une date, j'aimerais avoir
automatiquement un motif de couleur différente pour les
12

mois de l'année.

Merci de m'aider si c'est dans vos cordes.

.

.





Avatar
Dédé
Salut Denys !

Ben tu peux la mettre là :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Comme ça à chaques changements de cellules (ce qui se fait de plus ;-)) ben
ta macro s'executera ;-)

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Denys" a écrit dans le message de
news:005101c377d6$6ac751a0$
Bonjour Camille,

Je n'ai pas posé la question, mais merci bien. Seulement,
j'aurais une sous-question; comment fait-on pour que
cette instruction "roule" toujours? Autrement dit, où la
place-t-on???? "Workbook open" ? "General"...

Comment faire sasn un bouton de commande ou quelque chose
du genre??

Merci,

Denys


-----Original Message-----
Bonjour,

De la macro uniquement!!!
Sub CouleursMois()
For Each c In Selection
If c = "" Then m = 0 Else m = Month(c)
Select Case m
Case 1
c.Interior.ColorIndex = 35
Case 2
c.Interior.ColorIndex = 36
Case 3
c.Interior.ColorIndex = 37
Case 4
c.Interior.ColorIndex = 38
Case 5
c.Interior.ColorIndex = 39
Case 6
c.Interior.ColorIndex = 40
Case 7
c.Interior.ColorIndex = 41
Case 8
c.Interior.ColorIndex = 42
Case 9
c.Interior.ColorIndex = 43
Case 10
c.Interior.ColorIndex = 44
Case 11
c.Interior.ColorIndex = 45
Case 12
c.Interior.ColorIndex = 46
Case 0
c.Interior.ColorIndex = 0
End Select
Next
End Sub

Camille
-----Message d'origine-----
Comment faire une mise en forme conditionnelle avec plus
de 3 conditions différentes ?

Pour une cellule qui contient une date, j'aimerais avoir
automatiquement un motif de couleur différente pour les
12

mois de l'année.

Merci de m'aider si c'est dans vos cordes.

.

.





Avatar
Dédé
Salut McLeroy !

Il me semble que dans le fil de discussion, ta réponse a été répondue ...
Est-ce que tu en veux plus ??

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"mcleroy" a écrit dans le message de
news:
Bonjour

N'est il pas possible de créer en VBA une fonctionnalité Mise en Forme
conditionnelle personnalisée
qui n'aurait pas cette limitation de trois conditions et qui se
trouverait

dans le menu Format/Mise en forme conditionnelle (bis) et dans
laquelle on pourrait ajouter n conditions?

D'ailleurs a-t-on le droit d'adapter une fonctionnalité existante dasn
Excel

en copiant son mode de fonctionnement?

Marc.
"Olivier" a écrit dans le message de news:
61ed01c37796$c1613980$
Comment faire une mise en forme conditionnelle avec plus
de 3 conditions différentes ?

Pour une cellule qui contient une date, j'aimerais avoir
automatiquement un motif de couleur différente pour les 12
mois de l'année.

Merci de m'aider si c'est dans vos cordes.




Avatar
mcleroy
J'ai essayé la macro ci-dessous
Ca fonctionne si je saisi les dates une par une à la main
Ca ne fonctionne pas si je saisis une date en a1 puis en a2 ¡+1 et recopie
vers le bas jusqu'en a31
Et le numéro de se semaine reste sur 1.

A propos de mon planning avec 4 équipes (c'est bien ça qu'il s'agit?),
j'essaye toujours de trouver une solution
Résumé de la situation
MEFC selon semaine OK
Reste le souci suivant
Si je fais un planning mensuel
A l'ouverture du classeur, inputbox qui demande le nom de l'équipe
la réponse est récupée en b1 par exemple, et ce que j'arrive pas à faire:
si on répond équipe1, b1 prend la couleur1 et cette couleur doit s'appliquer
jusqu'a la fin de la semaine etc etc
le problème c'est que si le mois précédent la semaine de fin n'est pas
complète, je sèche
exemple avec septembre 2003
29/09/03= semaine 5 du mois, equipe 1 (puisqu'en début de mois 1ere sem on
avait equip1), couleur 1
le 01/10/03 on doit toujours être en équipe1, couleur1
puis passé en couleur2, le 06/10/03 etc etc
Ou alors j'essaye de faire un planning annuel avec en A1: equipe choisi avec
inputbox -> ce qui détermine la couleur de la première semaine de l'année
et ensuite tout découle de là pour l'année entière.
En tout cas merci à tous de votre aide

Je retourne chercher comment faire ce que peut-être j'explique de manière
confuse.

Marc.



"Frédo P." a écrit dans le message de
news:3f604379$0$2802$
Je planche en se moment sur le MEFC de mardi à10h48 pour
ta couleur sur la semaine: si t'es encore demandeur essaye ça: se n'est
pas

encore tout à fait au point pour les fin de mois .............patience
Private Sub Worksheet_Change(ByVal dat As Excel.Range)
On Error GoTo gest
If IsDate(dat) Then
Application.EnableEvents = False
Dim t As Long, Nsemaine As Byte
t = DateSerial(Year(dat + (8 - WeekDay(dat)) Mod 7 - 3), Month(dat), 1) +
1

Nsemaine = ((dat - t - 3 + (WeekDay(t) + 1) Mod 7)) 7 + 1
Range(dat.Address(0, 0)).Offset(0, 1).Interior.ColorIndex = Nsemaine + 2

Range(dat.Address(0, 0)).Offset(0, 1).Value = Nsemaine
End If
gest:
Application.EnableEvents = True
End Sub



--

Fred
"mcleroy" a écrit dans le message de news:

Je voulais juste savoir si l'on peut remplacer le mise en forme
conditionnelle telle qu'elle est dans Excel
par une MEFC acceptant un nombre plus élévée de condition et qui reprend
l'interface Excel de la MEFC d'origine:
en gros, créer en VBA un menu personnalisé "Mise en forme conditionnelle
(bis)"
qui serait un clone de ce qui existe déjà mais où l'on pourrait cliquer
sur

le bouton [Ajouter] aprés la 3ème condition.

Et pourquoi cette fonctionnalité n'a t-elle été perfectionnée dans la
dernière version d'Excel?
(j'utilise Excel 2000)

Et effectivement la réponse au problème posé en début de discussion a
trouvée sa réponse.
Ma question venait en complément.

Marc.

"Dédé" a écrit dans le message de news:

Salut McLeroy !

Il me semble que dans le fil de discussion, ta réponse a été répondue
...


Est-ce que tu en veux plus ??

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"mcleroy" a écrit dans le message de
news:
Bonjour

N'est il pas possible de créer en VBA une fonctionnalité Mise en
Forme




conditionnelle personnalisée
qui n'aurait pas cette limitation de trois conditions et qui se
trouverait

dans le menu Format/Mise en forme conditionnelle (bis) et dans
laquelle on pourrait ajouter n conditions?

D'ailleurs a-t-on le droit d'adapter une fonctionnalité existante
dasn




Excel
en copiant son mode de fonctionnement?

Marc.
"Olivier" a écrit dans le message de news:
61ed01c37796$c1613980$
Comment faire une mise en forme conditionnelle avec plus
de 3 conditions différentes ?

Pour une cellule qui contient une date, j'aimerais avoir
automatiquement un motif de couleur différente pour les 12
mois de l'année.

Merci de m'aider si c'est dans vos cordes.
















Avatar
HAMEL Jean-Yves

Salut Olivier !

Tu ne peut pas avoir plus de trois conditions différentes avec les fonctions
de base de Excel ...

La seule solution c'est de passer par VBA et par exemple en utilisant Select
case ...

Est-ce que tu connais assez VBA ou bien tu veux un exemple ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Olivier" a écrit dans le message de
news:61ed01c37796$c1613980$
Comment faire une mise en forme conditionnelle avec plus
de 3 conditions différentes ?

Pour une cellule qui contient une date, j'aimerais avoir
automatiquement un motif de couleur différente pour les 12
mois de l'année.

Merci de m'aider si c'est dans vos cordes.


Bonjour Dédé

Je prendrai bien l'exemple en VBA

Merci

Salutations

Jean Yves