Mise en forme conditionnelle

[RVL]

Re-Bonjour,

A propos des MFC sous xls 2003 ont dit maxi 3 MFC, mais par cellule ou dans toute une feuille ou encore pour l'ensemble du fichier ?

 

[Tibo]

Re : Mise en forme conditionnelle

Bonjour,

La limite de 3 conditions pour une MFC concerne une cellule.

Tu peux donc utiliser 3 autres conditions dans une autre cellule.

Sinon, pour dépasser cette limite de 3 conditions, tu peux passer par une macro complémentaire telle que celle de l'ami mdF :

mDF MFCmultiples v5.0 - VBA Divers - mDF Tutoriels - Téléchargements : myDearFriend! Excel Pages

ou alors, passer à Excel 2007

@+

 

[RVL]

Re : Mise en forme conditionnelle

Bonjour Tibo,

Je ne suis pas un "Pro", alors peux tu m'expliquer pourquoi certaines MFC ne fonctionnent plus alors quelles sont encore présentes ? ? ?
Je suis obligé de reselectionner la plage et refaire "format" puis "Mise en fo...."
Remarque: je deplace les cellules dans ce fichier.

 

[Tibo]

Re : Mise en forme conditionnelle

re,

... alors peux tu m'expliquer pourquoi certaines MFC ne fonctionnent plus alors quelles sont encore présentes ? ? ? [...]Remarque: je deplace les cellules dans ce fichier.

Bon, pas vraiment compris ton problème 😕

Peut-être la raison est-elle dans ta conclusion.

Sinon, joins nous un petit bout de fichier (avec commentaire) sur lequel tu rencontres le problème

@+

 

[RVL]

Re : Mise en forme conditionnelle

Re,
Je craque ...
Aprés une macro du type (celle dessous),
Mais mise en forme conditionnelles de sont plus active ....





Sub ()
Sheets("f1").Unprotect "toto"
Sheets("f2").Unprotect "toto"
Dim plage As Range, c As Range, cSource As Range
Set plage = Feuil1.Range("D1😀2,F1:F2,C5:K12,D14😀15,F14:F15,C18:G25,D27😀28,F27:F28,C31:L39,D41😀42,F41:F42,C45:J53,I19:I23,I25:I28,K19:L26,I42:L42,C3:K3,J4,C16:G17,C29:L30,C44:J44,J19:J23,I1:L2")
Application.ScreenUpdating = False
For Each c In plage
If Not IsEmpty(c) Then
Set cSource = Sheets("f3").UsedRange.Find(what:=c, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not cSource Is Nothing Then
If cSource.Offset(0, 8).Value = "A" Then
c.Cut Destination:=Sheets("f2").Range("U" & _
Application.Rows.Count).End(xlUp)(2)
End If
End If
End If
Next c
plage.Locked = False
Application.ScreenUpdating = True
Sheets("f1").Protect "toto"
Sheets("f2").Protect "toto"
End Sub

Hors protection et sans faire de macro, ça fonctionne.....

 

[RVL]

Re : Mise en forme conditionnelle

Peut être une solution,

j'ai 2 mises en forme condi qui se morde certainement la queue.

1 - si different de "" (rien) alors ==> cadre en noir
2 - si egale à " " (espace) alors ==> fond rouge

remarque: j'ai aussi essayé avec une MFC =3 couleurs (en macro) , idem.

Q: que dois-je supprimer pour resoudre ce pb ?

 

[Staple1600]

Re : Mise en forme conditionnelle

Bonsoir RVL

Comme le dit Tibo (salutations)

Joins un fichier exemple (sans données confidentielles)

Nous y verrons alors plus clair.

 

[RVL]

Re : Mise en forme conditionnelle

Bonjour,

Je vous joins donc un petit fichier exemple mais qui ne comporte pas l'ensemble des calculs et macros du fichier en question...

 

[JCGL]

Re : Mise en forme conditionnelle

Bonjour à tous,

Il a, je pense, un "conflit" dans l'ordre des conditions.

Pour B6, par exemple :



Cette MeFC devrait correspondre à ce que tu souhaites :




A+ à tous

 

[RVL]

Re : Mise en forme conditionnelle

Bonjour,

Tjs mais pb de MFC, la solution de JCGL ne marche pas non plus ? (Grrrr...)
Je pense peut etre que le fait de déplacer les cellules en manu ou par macro influe sur l'etat des MFC d'origine !
Mais ces MFC sont capitales (comme "encadré noir si non vide") car dans mon fichier de "gestion de personnel"
(cf "exemple.xls" plus haut dans le message) je comptabilise et il arrive souvent d'avoir un point ou une police d'ecriture en "blanc" faussant les calculs ....

 

[RVL]

Re : Mise en forme conditionnelle

Bonsoir,

Si qql'un a une sol. ?

Merci