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
ABED HADDOU
Bonsoir, selectionne la plage de saisie ,format,mfc la valeur de la cellule entre de….. et ………. tu fait format motifs et tu choisi la couleur. Cordialement Abed
"gkyaka" wrote:
je voudrais assigner a une cellule une couleur selon une condition (une valeur) et faire ainsi pour plusieurs valeurs dans mon tableau merci
Bonsoir,
selectionne la plage de saisie ,format,mfc
la valeur de la cellule entre de….. et ……….
tu fait format motifs et tu choisi la couleur.
Cordialement
Abed
"gkyaka" wrote:
je voudrais assigner a une cellule une couleur selon une condition (une valeur)
et faire ainsi pour plusieurs valeurs dans mon tableau
merci
Bonsoir, selectionne la plage de saisie ,format,mfc la valeur de la cellule entre de….. et ………. tu fait format motifs et tu choisi la couleur. Cordialement Abed
"gkyaka" wrote:
je voudrais assigner a une cellule une couleur selon une condition (une valeur) et faire ainsi pour plusieurs valeurs dans mon tableau merci
Congelator
Salut gkyaka
La MFC est limitée à 3 conditions. Si tu as besoin de plus de conditions, voici un code VBA qui règle ce problème (bouton droit sur le nom de ta feuille - visualiser le code - coller sur la feuille en question) :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target.Cells, Range("B7:BM116")) Is Nothing Then For Each c In Target Select Case c.Value Case "C": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 19 'Font.ColorIndex = couleur de l'écriture / Interior.ColorIndex = couleur de la cellule Case "V": c.Font.ColorIndex = 2: c.Interior.ColorIndex = 5 Case "D": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 4 Case "L": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 3 Case "R": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 20 'etc. etc. etc.. Case Else: c.Font.ColorIndex = xlAutomatic: c.Interior.ColorIndex = xlNone End Select Next End If End Sub
Bonne chance -- Céd / Lausanne
je voudrais assigner a une cellule une couleur selon une condition (une valeur) et faire ainsi pour plusieurs valeurs dans mon tableau merci
Salut gkyaka
La MFC est limitée à 3 conditions. Si tu as besoin de plus de conditions,
voici un code VBA qui règle ce problème (bouton droit sur le nom de ta
feuille - visualiser le code - coller sur la feuille en question) :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("B7:BM116")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case "C": c.Font.ColorIndex = 1: c.Interior.ColorIndex =
19 'Font.ColorIndex = couleur de l'écriture / Interior.ColorIndex = couleur
de la cellule
Case "V": c.Font.ColorIndex = 2: c.Interior.ColorIndex = 5
Case "D": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 4
Case "L": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 3
Case "R": c.Font.ColorIndex = 1: c.Interior.ColorIndex =
20
'etc. etc. etc..
Case Else: c.Font.ColorIndex = xlAutomatic:
c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
Bonne chance
--
Céd / Lausanne
je voudrais assigner a une cellule une couleur selon une condition (une valeur)
et faire ainsi pour plusieurs valeurs dans mon tableau
merci
La MFC est limitée à 3 conditions. Si tu as besoin de plus de conditions, voici un code VBA qui règle ce problème (bouton droit sur le nom de ta feuille - visualiser le code - coller sur la feuille en question) :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target.Cells, Range("B7:BM116")) Is Nothing Then For Each c In Target Select Case c.Value Case "C": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 19 'Font.ColorIndex = couleur de l'écriture / Interior.ColorIndex = couleur de la cellule Case "V": c.Font.ColorIndex = 2: c.Interior.ColorIndex = 5 Case "D": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 4 Case "L": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 3 Case "R": c.Font.ColorIndex = 1: c.Interior.ColorIndex = 20 'etc. etc. etc.. Case Else: c.Font.ColorIndex = xlAutomatic: c.Interior.ColorIndex = xlNone End Select Next End If End Sub
Bonne chance -- Céd / Lausanne
je voudrais assigner a une cellule une couleur selon une condition (une valeur) et faire ainsi pour plusieurs valeurs dans mon tableau merci