A voir également:
- Augmenter les mises en forme conditionnelles
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Augmenter vitesse pc windows 10 - Guide
- Mise en forme whatsapp - Guide
- Mise en forme tableau croisé dynamique - Guide
1 réponse
Salut
une solution :
tu cliques sur format/styles...
tu écris "MFC+" (sans les ") dans la liste déroulante (je te conseille de décocher toutes les cases pour ne pas polluer) et tu cliques sur ajouter
tu clic droit sur l'onglet de ta feuille et choisi "visualiser le code"
tu clooes le code ci-dessous dans la fenetre qui s'affiche :
Private Sub Worksheet_Change(ByVal Target As Range)
For Each o In UsedRange
If o.Style = "MFC+" And o.Value <> "" Then
Select Case o.Value
Case Is > 0
o.Interior.ColorIndex = Int(o.Value)
Case Is > 1
o.Interior.ColorIndex = Int(o.Value)
Case Is > 2
o.Interior.ColorIndex = Int(o.Value)
Case Is > 3
o.Interior.ColorIndex = Int(o.Value)
Case Is > 4
o.Interior.ColorIndex = Int(o.Value)
Case Is > 5
o.Interior.ColorIndex = Int(o.Value)
Case Is > 6
o.Interior.ColorIndex = Int(o.Value)
Case Is > 7
o.Interior.ColorIndex = Int(o.Value)
Case Is > 8
o.Interior.ColorIndex = Int(o.Value)
Case Is > 9
o.Interior.ColorIndex = Int(o.Value)
End Select
End If
Next
End Sub
ensuite, tu fermes l'editeur, tu sélectionnes les cellules auxquelles tu veux appliquer cette mise en forme, et tu clic sur Format/styles..., et tu choisis MFC+
;)
une solution :
tu cliques sur format/styles...
tu écris "MFC+" (sans les ") dans la liste déroulante (je te conseille de décocher toutes les cases pour ne pas polluer) et tu cliques sur ajouter
tu clic droit sur l'onglet de ta feuille et choisi "visualiser le code"
tu clooes le code ci-dessous dans la fenetre qui s'affiche :
Private Sub Worksheet_Change(ByVal Target As Range)
For Each o In UsedRange
If o.Style = "MFC+" And o.Value <> "" Then
Select Case o.Value
Case Is > 0
o.Interior.ColorIndex = Int(o.Value)
Case Is > 1
o.Interior.ColorIndex = Int(o.Value)
Case Is > 2
o.Interior.ColorIndex = Int(o.Value)
Case Is > 3
o.Interior.ColorIndex = Int(o.Value)
Case Is > 4
o.Interior.ColorIndex = Int(o.Value)
Case Is > 5
o.Interior.ColorIndex = Int(o.Value)
Case Is > 6
o.Interior.ColorIndex = Int(o.Value)
Case Is > 7
o.Interior.ColorIndex = Int(o.Value)
Case Is > 8
o.Interior.ColorIndex = Int(o.Value)
Case Is > 9
o.Interior.ColorIndex = Int(o.Value)
End Select
End If
Next
End Sub
ensuite, tu fermes l'editeur, tu sélectionnes les cellules auxquelles tu veux appliquer cette mise en forme, et tu clic sur Format/styles..., et tu choisis MFC+
;)