Mise en forme au conditionnelle seulement 3 critères!

[eric vachon]

Bonjour à vous, j'utilise un calendrier pour le travail et j'aimerai utiliser la mise en forme au conditionnelle mais elle est limité à seulement 3 critères. Est ce qu'il y a une façon d'en avoir plus de 3 critères? Voila mon fichier, se référer à la légendre alors vous comprendrai ce que je veux faire. Merci infiniment pour votre aide, c'est vraiment très apprécié.

 

[abcd]

Re : Mise en forme au conditionnelle seulement 3 critères!

Bonjour,

Deux solutions :
Acheter XL2007
Télécharger sur ce site la macro de Mdf

abcd

 

[Brigitte]

Re : Mise en forme au conditionnelle seulement 3 critères!

Bonsoir,

Un de nos amis xldiens, myDearFriend, a construit un joli site sur lequel tu retrouveras ses applications, et donc également une appli qui permet de faire plus de trois MFC : myDearFriend! Excel Pages - Mon univers Excel... - mDF MFCmultiples v5.0


Bon courage.

Edit : collision avec A...bcd, même "combat" ; pas une trop grosse bosse ? et avec Didier, carrément... Vois tu la pub qu'on te fait ?

 

[myDearFriend!]

Re : Mise en forme au conditionnelle seulement 3 critères!

Bonjour eric,

Dans cet article, une façon de procéder par VBA, avec le fichier exemple mDF MFCmultiples v5.0.

Cordialement,

EDITION:
Arf, pardon je ne vous avais pas vus.
Bonjour abcd, bisous Brigitte et merci à vous 🙂

 

[BOISGONTIER]

Re : Mise en forme au conditionnelle seulement 3 critères!

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([E2:AI49], Target) Is Nothing Then
    On Error Resume Next
    Target.Interior.ColorIndex = Sheets("Couleurs").[couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

JB
Formation Excel VBA JB

 

[eric vachon]

Re : Mise en forme au conditionnelle seulement 3 critères!

La barre de coloriage me semble la solution a mon problème mais comment faire?

 

[eric vachon]

Re : Mise en forme au conditionnelle seulement 3 critères!

Voila Mon Fichier, 🙂

 

[BOISGONTIER]

Re : Mise en forme au conditionnelle seulement 3 critères!

Voir PJ

Sub auto_open()
   On Error Resume Next
   CommandBars.Add ("BarreColoriage")
   CommandBars("BarreColoriage").Visible = True
   For i = 1 To [couleurs].Count
      Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
      bouton.Style = msoButtonCaption
      bouton.OnAction = "'Coloriage """ & i & """'"
      bouton.Caption = Range("couleurs")(i)
   Next i
   Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
   bouton.Style = msoButtonCaption
   bouton.OnAction = "colorieAprès"
   bouton.Caption = "Après"
End Sub

Sub Coloriage(p)
   On Error Resume Next
   memo = Selection.Address
   For Each c In Selection
      Sheets("couleurs").Range("couleurs")(p).Copy
      c.PasteSpecial Paste:=xlValues
      c.PasteSpecial Paste:=xlPasteFormats
   Next c
   ActiveSheet.Range(memo).Select
End Sub

Sub auto_close()
    On Error Resume Next
    Application.CommandBars("BarreColoriage").Delete
End Sub

Sub colorieAprès()
   On Error Resume Next
   memo = Selection.Address
   For Each c In Selection
      p = Application.Match(c, Range("couleurs"), 0)
      If Not IsError(p) Then
       Sheets("couleurs").Range("couleurs")(p).Copy
       c.PasteSpecial Paste:=xlValues
       c.PasteSpecial Paste:=xlPasteFormats
      End If
   Next c
   ActiveSheet.Range(memo).Select
End Sub

JB
Formation Excel VBA JB

 

[Excel_lent]

Re : Mise en forme au conditionnelle seulement 3 critères!

Bonsoir tout le monde.

Une autre solution : un clic, une boîte et un choix pour 2 actions (couleur et code).
L'USF, en Modal, reste ouvert et on peut travailler sur les feuilles.
On peut, pour certains cas, programmer un commentaire.

 

[eric vachon]

Re : Mise en forme au conditionnelle seulement 3 critères!

Merci à tous, je suis vraiment chanceux d'avoir de l'aide et cela est vraiment apprécié.