Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3
conditions, savez-vous comment faire lorsque l'on a besoin de + de 3
conditons ?
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
ChrisV
Bonjour Tom_Paris,
Un exemple... avec la plage sur laquelle doit s'appliquer la MEFC nommée ici Zn... Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then For Each c In Target Select Case c.Value Case 1 To 3: c.Interior.ColorIndex = 38 Case 4 To 6: c.Interior.ColorIndex = 40 Case 7 To 9: c.Interior.ColorIndex = 36 Case 10 To 12: c.Interior.ColorIndex = 35 Case 13 To 15: c.Interior.ColorIndex = 34 Case 16 To 18: c.Interior.ColorIndex = 37 Case Is >= 19: c.Interior.ColorIndex = 3 Case Else: c.Interior.ColorIndex = xlNone End Select Next End If End Sub
ChrisV
"Tom_Paris" a écrit dans le message de news:
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3 conditions, savez-vous comment faire lorsque l'on a besoin de + de 3 conditons ?
Bonjour Tom_Paris,
Un exemple... avec la plage sur laquelle doit s'appliquer la MEFC nommée ici
Zn...
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case 1 To 3: c.Interior.ColorIndex = 38
Case 4 To 6: c.Interior.ColorIndex = 40
Case 7 To 9: c.Interior.ColorIndex = 36
Case 10 To 12: c.Interior.ColorIndex = 35
Case 13 To 15: c.Interior.ColorIndex = 34
Case 16 To 18: c.Interior.ColorIndex = 37
Case Is >= 19: c.Interior.ColorIndex = 3
Case Else: c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
ChrisV
"Tom_Paris" <Tom_Paris@discussions.microsoft.com> a écrit dans le message de
news: 21BFD3A6-373F-44B0-98C5-9F0F1276C580@microsoft.com...
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3
conditions, savez-vous comment faire lorsque l'on a besoin de + de 3
conditons ?
Un exemple... avec la plage sur laquelle doit s'appliquer la MEFC nommée ici Zn... Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then For Each c In Target Select Case c.Value Case 1 To 3: c.Interior.ColorIndex = 38 Case 4 To 6: c.Interior.ColorIndex = 40 Case 7 To 9: c.Interior.ColorIndex = 36 Case 10 To 12: c.Interior.ColorIndex = 35 Case 13 To 15: c.Interior.ColorIndex = 34 Case 16 To 18: c.Interior.ColorIndex = 37 Case Is >= 19: c.Interior.ColorIndex = 3 Case Else: c.Interior.ColorIndex = xlNone End Select Next End If End Sub
ChrisV
"Tom_Paris" a écrit dans le message de news:
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3 conditions, savez-vous comment faire lorsque l'on a besoin de + de 3 conditons ?
jps
bonjour tom penche-toi sur cette proc pondue par le père brossollette qui s'est souvent penché sur nos problèmes tout en me chargeant de te prier de l'excuser car il es parti à pied pour rome où il est attendu vers le 24 décembre (il a voulu passer par la réunion avant!!) jps
Sub Macro2() With ActiveCell.Font Select Case ActiveCell.Value Case Is > 50 .ColorIndex = 3 Case Is > 20 .ColorIndex = 5 Case Is > 10 .ColorIndex = 6 Case Else .ColorIndex = xlAutomatic End Select End With End Sub
"Tom_Paris" a écrit dans le message de news:
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3 conditions, savez-vous comment faire lorsque l'on a besoin de + de 3 conditons ?
bonjour tom
penche-toi sur cette proc pondue par le père brossollette qui s'est souvent
penché sur nos problèmes tout en me chargeant de te prier de l'excuser car
il es parti à pied pour rome où il est attendu vers le 24 décembre (il a
voulu passer par la réunion avant!!)
jps
Sub Macro2()
With ActiveCell.Font
Select Case ActiveCell.Value
Case Is > 50
.ColorIndex = 3
Case Is > 20
.ColorIndex = 5
Case Is > 10
.ColorIndex = 6
Case Else
.ColorIndex = xlAutomatic
End Select
End With
End Sub
"Tom_Paris" <Tom_Paris@discussions.microsoft.com> a écrit dans le message de
news:21BFD3A6-373F-44B0-98C5-9F0F1276C580@microsoft.com...
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3
conditions, savez-vous comment faire lorsque l'on a besoin de + de 3
conditons ?
bonjour tom penche-toi sur cette proc pondue par le père brossollette qui s'est souvent penché sur nos problèmes tout en me chargeant de te prier de l'excuser car il es parti à pied pour rome où il est attendu vers le 24 décembre (il a voulu passer par la réunion avant!!) jps
Sub Macro2() With ActiveCell.Font Select Case ActiveCell.Value Case Is > 50 .ColorIndex = 3 Case Is > 20 .ColorIndex = 5 Case Is > 10 .ColorIndex = 6 Case Else .ColorIndex = xlAutomatic End Select End With End Sub
"Tom_Paris" a écrit dans le message de news:
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3 conditions, savez-vous comment faire lorsque l'on a besoin de + de 3 conditons ?
Evita
Bonjour "Tom_Paris"
Tu ne peux pas mettre plus de 3 conditions de mise en forme pour une même cellule. Excel, seul ne te l'autorise pas. il faut que tu passe par du code VBA avec select case par exemple.
Une "orientation-exemple" sur http://www.excelabo.net/xl/conditions.php#mefca12couleurs
Tu peux aussi, en expliquant correctement tes besoins de mise en forme, soliciter l'aide des intervenants du MPFE, pour l'élaboration de ton code. Bonne continuation
-- au plaisir :-) Evita@
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3 conditions, savez-vous comment faire lorsque l'on a besoin de + de 3 conditons ?
Bonjour "Tom_Paris"
Tu ne peux pas mettre plus de 3 conditions de mise en forme pour une même cellule. Excel,
seul ne te l'autorise pas.
il faut que tu passe par du code VBA avec select case par exemple.
Une "orientation-exemple" sur http://www.excelabo.net/xl/conditions.php#mefca12couleurs
Tu peux aussi, en expliquant correctement tes besoins de mise en forme, soliciter l'aide
des intervenants du MPFE, pour l'élaboration de ton code.
Bonne continuation
--
au plaisir :-)
Evita@
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3
conditions, savez-vous comment faire lorsque l'on a besoin de + de 3
conditons ?
Tu ne peux pas mettre plus de 3 conditions de mise en forme pour une même cellule. Excel, seul ne te l'autorise pas. il faut que tu passe par du code VBA avec select case par exemple.
Une "orientation-exemple" sur http://www.excelabo.net/xl/conditions.php#mefca12couleurs
Tu peux aussi, en expliquant correctement tes besoins de mise en forme, soliciter l'aide des intervenants du MPFE, pour l'élaboration de ton code. Bonne continuation
-- au plaisir :-) Evita@
Bonjour, le menu de mise en forme conditionnelle permet d'ajouter jusquà 3 conditions, savez-vous comment faire lorsque l'on a besoin de + de 3 conditons ?
Clément Marcotte
il es parti à pied pour rome où il est attendu vers le 24 décembre (il a
voulu passer par la réunion avant!!)
Tu es sur que ce n'est pas à dos de bovin angevin ?
il es parti à pied pour rome où il est attendu vers le 24 décembre
(il a
voulu passer par la réunion avant!!)
Tu es sur que ce n'est pas à dos de bovin angevin ?