Je voudrais faire de la mise en forme conditionnelle avec plus de 3
conditions. Il me semble que Excel bloque à faire plus de trois
conditions. Est-ce possible de faire de la mise en forme conditionnelle
avec plus de 3 conditions
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Ben,
c'est possible avec une macro, par exemple colorier les cellules selon le jour de la semaine :
'sélectionner la plage avant d'executer cette macro,
Sub Macro1() For Each c In Selection Select Case Weekday(c) Case 1: c.Interior.ColorIndex = 6 '"Dimanche" Case 2: c.Interior.ColorIndex = 38 '"Lundi" Case 3: c.Interior.ColorIndex = 39 '"Mardi" Case 4: c.Interior.ColorIndex = 12 '"Mercredi" Case 5: c.Interior.ColorIndex = 22 '"Jeudi" Case 6: c.Interior.ColorIndex = 30 '"Vendredi" Case 7: c.Interior.ColorIndex = 35 '"Samedi" End Select Next End Sub
isabelle
Bonjour,
Je voudrais faire de la mise en forme conditionnelle avec plus de 3 conditions. Il me semble que Excel bloque à faire plus de trois conditions. Est-ce possible de faire de la mise en forme conditionnelle avec plus de 3 conditions
En vous remerciant d'avance
Ben
bonjour Ben,
c'est possible avec une macro,
par exemple colorier les cellules selon le jour de la semaine :
'sélectionner la plage avant d'executer cette macro,
Sub Macro1()
For Each c In Selection
Select Case Weekday(c)
Case 1: c.Interior.ColorIndex = 6 '"Dimanche"
Case 2: c.Interior.ColorIndex = 38 '"Lundi"
Case 3: c.Interior.ColorIndex = 39 '"Mardi"
Case 4: c.Interior.ColorIndex = 12 '"Mercredi"
Case 5: c.Interior.ColorIndex = 22 '"Jeudi"
Case 6: c.Interior.ColorIndex = 30 '"Vendredi"
Case 7: c.Interior.ColorIndex = 35 '"Samedi"
End Select
Next
End Sub
isabelle
Bonjour,
Je voudrais faire de la mise en forme conditionnelle avec plus de 3
conditions. Il me semble que Excel bloque à faire plus de trois
conditions. Est-ce possible de faire de la mise en forme conditionnelle
avec plus de 3 conditions
c'est possible avec une macro, par exemple colorier les cellules selon le jour de la semaine :
'sélectionner la plage avant d'executer cette macro,
Sub Macro1() For Each c In Selection Select Case Weekday(c) Case 1: c.Interior.ColorIndex = 6 '"Dimanche" Case 2: c.Interior.ColorIndex = 38 '"Lundi" Case 3: c.Interior.ColorIndex = 39 '"Mardi" Case 4: c.Interior.ColorIndex = 12 '"Mercredi" Case 5: c.Interior.ColorIndex = 22 '"Jeudi" Case 6: c.Interior.ColorIndex = 30 '"Vendredi" Case 7: c.Interior.ColorIndex = 35 '"Samedi" End Select Next End Sub
isabelle
Bonjour,
Je voudrais faire de la mise en forme conditionnelle avec plus de 3 conditions. Il me semble que Excel bloque à faire plus de trois conditions. Est-ce possible de faire de la mise en forme conditionnelle avec plus de 3 conditions
En vous remerciant d'avance
Ben
JB
Bonjour,
qq scénarios avec macros:
http://cjoint.com/?jDpPezYNWX
http://cjoint.com/?jDpPWOWu5C
http://cjoint.com/?jDpQoe1StV
MFC avec plus de 3 formats (couleur de fond seulement)
-Clic/Droit onglet -Choisir Worsheet dans menu déroulant puis Change
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [B5:AF11]) Is Nothing And Target.Count = 1 Then Select Case Target.Value Case "C" Target.Interior.ColorIndex = 33 Case "M" Target.Interior.ColorIndex = 35 Case "A" Target.Interior.ColorIndex = 3 Case "R" Target.Interior.ColorIndex = 4 Case Else Target.Interior.ColorIndex = xlNone End Select End If End Sub
JB
Bonjour,
Je voudrais faire de la mise en forme conditionnelle avec plus de 3 conditions. Il me semble que Excel bloque à faire plus de trois conditions. Est-ce possible de faire de la mise en forme conditionnelle avec plus de 3 conditions
En vous remerciant d'avance
Ben
Bonjour,
qq scénarios avec macros:
http://cjoint.com/?jDpPezYNWX
http://cjoint.com/?jDpPWOWu5C
http://cjoint.com/?jDpQoe1StV
MFC avec plus de 3 formats (couleur de fond seulement)
-Clic/Droit onglet
-Choisir Worsheet dans menu déroulant puis Change
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B5:AF11]) Is Nothing And Target.Count = 1
Then
Select Case Target.Value
Case "C"
Target.Interior.ColorIndex = 33
Case "M"
Target.Interior.ColorIndex = 35
Case "A"
Target.Interior.ColorIndex = 3
Case "R"
Target.Interior.ColorIndex = 4
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub
JB
Bonjour,
Je voudrais faire de la mise en forme conditionnelle avec plus de 3
conditions. Il me semble que Excel bloque à faire plus de trois
conditions. Est-ce possible de faire de la mise en forme conditionnelle
avec plus de 3 conditions
MFC avec plus de 3 formats (couleur de fond seulement)
-Clic/Droit onglet -Choisir Worsheet dans menu déroulant puis Change
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [B5:AF11]) Is Nothing And Target.Count = 1 Then Select Case Target.Value Case "C" Target.Interior.ColorIndex = 33 Case "M" Target.Interior.ColorIndex = 35 Case "A" Target.Interior.ColorIndex = 3 Case "R" Target.Interior.ColorIndex = 4 Case Else Target.Interior.ColorIndex = xlNone End Select End If End Sub
JB
Bonjour,
Je voudrais faire de la mise en forme conditionnelle avec plus de 3 conditions. Il me semble que Excel bloque à faire plus de trois conditions. Est-ce possible de faire de la mise en forme conditionnelle avec plus de 3 conditions