Mise en forme conditionnelle plus de 3 conditions

Hippolite

XLDnaute Accro

• 24 Juin 2011

• #2

Re : Mise en forme conditionnelle plus de 3 conditions

Bonjour,
Une solution parmi d'autres : boisgontierjacques.free.fr/Plus de 3 MFC
A+

 

Vote positif 0 Vote négatif

T

takita

Guest

• 24 Juin 2011

• #3

Re : Mise en forme conditionnelle plus de 3 conditions

c'est gentil pour ce lien. mais j'ai déjà tout vu et essayé.
je ne sais pas faire. ce que je veux c'est qu'on me rentre le code dans mon projet. si possible bien sur.

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 27 Juin 2011

• #4

Re : Mise en forme conditionnelle plus de 3 conditions

Bonjour,

Dans la feuille COULEURS, étends la définition du nom "Couleurs" à A1:A19 pour que le cas cellule vide soit pris en compte dans la mise en forme

Pour Février
- ajoute le nom "SaisiesFev" D5:Q17 qui recouvre la zône de saisie des données
- le nom MFC2 convient qui recouvre la zône qui doit être mise en forme
- dans la feuille FEVRIER 2011, ajouter le code :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([SaisiesFev], Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Application.FindFormat.Clear
        For Each c In Intersect([MFC2], Target.EntireRow)
            On Error Resume Next
            [Couleurs].Find(c, LookAt:=xlWhole).Copy
            c.PasteSpecial Paste:=xlPasteFormats
            On Error GoTo 0
        Next c
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Un changement dans la zône de saisie de la feuille va déclencher la macro événementielle Worksheet_Change de la feuille et la ligne concernée de la zône de mise en forme sera traitée.
A+

 

Dernière édition: 27 Juin 2011

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 27 Juin 2011

• #5

Re : Mise en forme conditionnelle plus de 3 conditions

Re,
Petite amélioration qui traite les erreurs : dans le cas où la liste COULEURS aurait oublié un format, celui-ci se référera à la cellule vide.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([SaisiesFev], Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Application.FindFormat.Clear
        For Each c In Intersect([MFC2], Target.EntireRow)
            On Error Resume Next
            [Couleurs].Find(c, LookAt:=xlWhole).Copy
            If Err <> 0 Then Sheets("COULEURS").Range("A19").Copy
            c.PasteSpecial Paste:=xlPasteFormats
            On Error GoTo 0
        Next c
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
    Exit Sub
End Sub

Il conviendra éventuellement de remonter en première ligne la cellule vide pour éviter qu'elle ne soit supprimée en cas d'ajout ultérieur d'un format.
A+

 

Vote positif 0 Vote négatif

T

takita

Guest

• 28 Juin 2011

• #6

Re : Mise en forme conditionnelle plus de 3 conditions

Merci beaucoup Hippolite pour ton aide. J'ai pu mettre en application ton code. il fonctionne très bien.
Mille merci.
je voudrais ajouter une petite amélioration. Ce qui signifie que j'ai encore besoin de tes lumières.
j'aurais souhaité que les cellules qui correspondent aux jours fériés et aux week-end ne prennent pas la couleur. Toujours si cela est possible.

 

Vote positif 0 Vote négatif

H

HachemCress

Guest

• 28 Juin 2011

• #7

Re : Mise en forme conditionnelle plus de 3 conditions

Bonjour

C'est impressionnant et difficile à interpréter ces si imbriqués dans des cellules. Je n'ai d'ailleurs pas essayé de tout comprendre.

Je préfère généralement traiter ce genre de problème par du VBA.

Ci-joint un petit exemple : il pourrait être modifié en remplaçant la copie de la couleur du fond par une copie de la mise en forme de la cellule modèle.

 

Pièces jointes

• Couleurs de fond variables selon le texte de la cellule.xls

  40 KB · Affichages: 384

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 28 Juin 2011

• #8

Re : Mise en forme conditionnelle plus de 3 conditions

Bonjour,

Et, dans la proposition de HachemCress, il suffit de remplacer

V = Target.Value

Cliquez pour agrandir...

par :

V = UCase(Target.Value)

Cliquez pour agrandir...

pour supprimer la mention en J7 de la feuille Couleurs.🙂

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 28 Juin 2011

• #9

Re : Mise en forme conditionnelle plus de 3 conditions

Bonjour,

je voudrais ajouter une petite amélioration. Ce qui signifie que j'ai encore besoin de tes lumières.
j'aurais souhaité que les cellules qui correspondent aux jours fériés et aux week-end ne prennent pas la couleur.

Cliquez pour agrandir...

Pour que les WE ne se colorent pas, la MFC étant prioritaire, il suffit dans la première MFC de remplacer les hachures par des hachures sur fond blanc.
A+

 

Vote positif 0 Vote négatif

T

takita

Guest

• 28 Juin 2011

• #10

Re : Mise en forme conditionnelle plus de 3 conditions

Hippolite à dit:

Bonjour,

Pour que les WE ne se colorent pas, la MFC étant prioritaire, il suffit dans la première MFC de remplacer les hachures par des hachures sur fond blanc.
A+

Cliquez pour agrandir...

je ne comprends pas. j'ai bien utilisé les mises en formes conditionnelles en ce qui concerne les week-end et jours fériés.

 

Vote positif 0 Vote négatif

T

takita

Guest

• 28 Juin 2011

• #11

Re : Mise en forme conditionnelle plus de 3 conditions

HachemCress à dit:

Bonjour

C'est impressionnant et difficile à interpréter ces si imbriqués dans des cellules. Je n'ai d'ailleurs pas essayé de tout comprendre.

Je préfère généralement traiter ce genre de problème par du VBA.

Ci-joint un petit exemple : il pourrait être modifié en remplaçant la copie de la couleur du fond par une copie de la mise en forme de la cellule modèle.

Cliquez pour agrandir...

vous êtes très gentils. Mais si vous faîtes référence à mon fichier peut-être que j'y verrai plus clair.

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 28 Juin 2011

• #12

Re : Mise en forme conditionnelle plus de 3 conditions

Re,
Ta première MFC comporte uniquement des rayures sans fond de couleur, ouvre la MFC pour la modifier et contente toi de cliquer sur la couleur blanche, tu auras alors des rayures sur fond blanc.
A+

 

Vote positif 0 Vote négatif

T

takita

Guest

• 4 Juillet 2011

• #13

Re : Mise en forme conditionnelle plus de 3 conditions

encore mille mercis

 

Vote positif 0 Vote négatif