Discussion :

[BOYVES]

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.

[ESVBA]

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

Sinon revient nous voir.

ESVBA

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

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

[BOYVES]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ESVBA]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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

[ESVBA]

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