coloriage d'une cellule en vba qui supprime la MFC

Version imprimable

31/08/2010, 21h57
BOYVES

coloriage d'une cellule en vba qui supprime la MFC

Bonsoir,
J'ai une macro qui change la couelur des cellules en fonction de leur contenu qui est issue d'une formule. Jusqu'à là tout va bien.
Mais cette cellule à une MFC qui modifie aussi la couleur selon la date.
Et la le problème commence, la couleur prioritaire est la MFC, alors que je souhaiterais le contraire.
Je pense que la MFC doit faire partie de la macro, si c'est possible.
Merci d'avance de votre collaboration.
31/08/2010, 22h08
ESVBA

Bonsoir BoYves,

Pour quelques idées, les deux points à cette adresse :
http://excel.developpez.com/faq/index.php?page=mefc#MFC

Sinon revient nous voir.

ESVBA
01/09/2010, 19h17
BOYVES

Bonsoir,
Merci, je vais prendre de lire la mise en forme conditionelle.
D'ailleurs c'est dans autre tutoriel "MFC à la loupe" trés bien fait que j'avais trouvé la solution d'un autre problème.
01/09/2010, 23h17
Gorfael

Salut BOYVES et le forum
Tu peux peut-être remplacer ta macro par ta MFC, et vice-versa, ou regrouper tes deux fonctionnement sur la MFC (2007 a paraît-il 64 condition de MFC).
Mais dans tous les cas, pour une aide efficace, il faudrait le code de la macro, et les conditions de la MFC.
A+

Bonsoir, Je vous joins la macro tirée d'un tutoriel "MFC à la loupe" qui fonctionne parfaitement.
Code:

1 2 3 4 5 6 7 Private Sub Worksheet_Activate() For Each c In [planning1] c.Interior.ColorIndex = xlNone On Error Resume Next c.Interior.ColorIndex = [couleurs].Find(c, LookAt:=xlWhole).Interior.ColorIndex Next c End Sub
Ansi que la MFC qui elle passe en priorité sur la macro

Code:

=ET(E$2<>"";NB.SI(fériés;E$2)>0)

J'ai essayé d'intégrer la MFC dans la macro mais sans succés, je pense que la solution est dans la macro.

bonsoir BOYVES, le forum

Citation:

=ET(E$2<>"";NB.SI(fériés;E$2)>0)

il faut que E$2 contienne quelque chose et si ce quelque chose est dans "férié" alors met en couleur.

Pourquoi cette double condition ?
Si E2 est un jour férié c'est que la cellule E2 n'est pas vide ! Il y a des plages vides dans "fériés" ?

Code:

NB.SI(fériés;E$2)>0

devrait suffir.

Je m'orienterais vers un code de ce genre. Pour plus de détails, il faudrait plus de précision.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Worksheet_Activate() For Each c In [planning1] If Application.WorksheetFunction.CountIf(Range("fériés"), Cells(c.Row, 5)) > 0 Then c.FormatConditions.Add Type:=xlExpression, Formula1:="= NB.SI(fériées; E2) >0)" With c.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 5296274 End With Else c.FormatConditions.Delete c.Interior.ColorIndex = xlNone On Error Resume Next c.Interior.ColorIndex = [couleurs].Find(c, LookAt:=xlWhole).Interior.ColorIndex End If Next c End Sub
ESVBA

02/09/2010, 22h45
PPz78

Bonsoir,

Si tu nous donnais un peu d'explications:
- que doit faire la macro ? (elle colorie mais quoi en fonction de quoi ?)
- les zones [planning1] et [couleurs] où sont elles situées ?
- que cherche t-on dans la zone [couleurs]
- où sont situés E$2, fériés par rapport à [planning1] et [couleurs] ?
- quel MFC est généré par =ET(E$2<>"";NB.SI(fériés;E$2)>0) ?

Nous pourrions t'aider efficacement.

PPz
04/09/2010, 16h01
BOYVES

Bonjour à tous,

Je pense que la solution est de supprimer les MFC si une des cellules dans la zone nommée « plannig1 » est nonvide ;
J’ai bien trouvé quelques réponses dans le forum qui se rapproche de ce que je souhaite avec la formule = NON(ESTVIDE($A$1)) La macro colorie seulement si la cellule est nonvide si vrai et vide si la condition est fausse.
Et là je bloque pour incorporer cette condition dans la macro.
(Je n’arrive pas à coller mon fichier en pièces jointe ce qui pourrait aider à l’explication.)
Merci de votre collaboration.
04/09/2010, 20h53
ESVBA

bonsoir BOYVES, le forum

le mieux est d'expliquer clairement ce que tu veux.

Si la cellule de la colonne contient... alors... sinon...
Sinon...

c'est très très flou pour moi, mais pour toi ?;)

Joindre le fichier ?
Une capture d'écran et le code de la macro en cause suffiront.

ESVBA
05/09/2010, 10h23
BOYVES

1 pièce(s) jointe(s)

Bonjour à tous,

C'est juste un problème de présentation
En fait lorsque la macro et les MFC se retrouvent dans la même cellule c'est la MFC qui reste prioritaire dans le choix de la couleur.
Je pense que si la cellule est "nonvide" les MFC doivent pouvoir être suprimées dans ce cas. Et par conséquent Seul la macro agit sur la couleur de la cellule.

Je joins une capture d'écran à mon explication qui n'est peut être assez claire.
05/09/2010, 13h59
Gorfael

Salut BOYVES et le forum
Pourrais-tu m'expliquer pourquoi un ".doc" ? Je croyais, bêtement, que tu avais un problème sur Excel ? Avec un fichier excel, on pourrait voir comment tes cellules réagissent, quelles sont les formules, les macros...
J'aimais bien les images, mais c'était à la maternelle !
A+
05/09/2010, 16h43
BOYVES

1 pièce(s) jointe(s)

Bonjour à tous

Je joins mon classeur que j'ai fortement dégraissé.
Comme je l'ai signalé auparavant le coloriage des MFC cache le
coloriage des macro. L'idée recherchée est que le coloriage des MFC
n'apparaisse que lorsque la cellule est vide.
Merci d'avance pour votre collaboration.

ESBVA t'a proposé une piste
ci-joint proposition à mettre dans l'Activate de ta feuille (même si je suis sceptique pour le choix de cet évènement)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Activate()
Dim c As Range
For Each c In [ZonePlan1]
    If c.Value = "" Then
        c.FormatConditions.Delete
        c.FormatConditions.Add Type:=xlExpression, Formula1:="=NB.SI(fériés;" & Cells(2, c.Column).Address & ")>0"
        c.FormatConditions(1).Interior.Color = 3186274
        c.FormatConditions.Add Type:=xlExpression, Formula1:="=JOURSEM(" & Cells(2, c.Column).Address & ";2)>5"
        c.FormatConditions(2).Interior.Color = 3186274
    Else
        c.FormatConditions.Delete
        c.Interior.ColorIndex = xlNone
        On Error Resume Next
        c.Interior.ColorIndex = [couleurs].Find(c, LookAt:=xlWhole).Interior.ColorIndex
    End If
Next c
End Sub

05/09/2010, 21h55
BOYVES

Bonsoir à tous

Je remercie tous les intervenants à cette discussion.
Mercatog votre macro fonctionne parfaitement. :ccool:

Petite amélioration, suite à un petit dysfonctionnement et pour améliorer le temps d'exécution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Activate()
Dim c As Range
Application.ScreenUpdating = False
With [ZonePlan]
    .Interior.ColorIndex = xlNone
    .FormatConditions.Delete
End With
For Each c In [ZonePlan]
    If c.Value = "" Or c.Row < 4 Then
        c.FormatConditions.Add Type:=xlExpression, Formula1:="=NB.SI(fériés;" & Cells(2, c.Column).Address & ")>0"
        c.FormatConditions(1).Interior.Color = 3186274
        c.FormatConditions.Add Type:=xlExpression, Formula1:="=JOURSEM(" & Cells(2, c.Column).Address & ";2)>5"
        c.FormatConditions(2).Interior.Color = 3186274
    Else
        On Error Resume Next
        c.Interior.ColorIndex = [couleurs].Find(c, LookAt:=xlWhole).Interior.ColorIndex
    End If
Next c
End Sub

07/09/2010, 07h06
BOYVES

Bonjour, à tous

Effectivement ce code augmente considérablement l'éxecution .

Encore merci à tous pour votrre collaboration.