Mise en forme au conditionnelle seulement 3 critères!

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eric vachon

XLDnaute Nouveau
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é.
 

Pièces jointes

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 ?
 
Re : Mise en forme au conditionnelle seulement 3 critères!

Bonsoir,


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

Pièces jointes

Dernière édition:
Re : Mise en forme au conditionnelle seulement 3 critères!

Voir PJ
Code:
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
 

Pièces jointes

Dernière édition:
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.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour