Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mise en forme conditionnelle

Mise en forme conditionnelle

2 réponses
Avatar
jaklou
Existe t'il un moyen d'aller au delà des 3 conditions proposées par la mise
en forme conditionnelle ?
Merci à tous
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
papou
Bonjour
Oui par VBA.
Voici un exemple à adapter, ici la couleur du fond de cellule est modifiée
en fonction de sa valeur :
(code à placer dans la feuille par Clic droit sur l'onglet puis visualiser
le code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range(Target.Address), Range("B5:B35")) Is Nothing Then
If Target.Value >= 8 Then
Target.Interior.ColorIndex = 4
ElseIf Target.Value >= 5 And Target.Value < 8 Then
Target.Interior.ColorIndex = 6
ElseIf Target.Value >= 3 And Target.Value < 5 Then
Target.Interior.ColorIndex = 44
ElseIf Target.Value = 2 Then
Target.Interior.ColorIndex = 45
ElseIf Target.Value = 1 Then
Target.Interior.ColorIndex = 3
ElseIf Target.Value = 0 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

Cordialement
Pascal

"jaklou" a écrit dans le message de news:
c5l47j$ehb$
Existe t'il un moyen d'aller au delà des 3 conditions proposées par la
mise

en forme conditionnelle ?
Merci à tous




Avatar
papou
Oups
Même si c'est visible dans le code exemple, je te précise :
La vérification s'effectue dans la plage de B5 à B35
Cordialement
Pascal

"papou" a écrit dans le message de news:
#
Bonjour
Oui par VBA.
Voici un exemple à adapter, ici la couleur du fond de cellule est modifiée
en fonction de sa valeur :
(code à placer dans la feuille par Clic droit sur l'onglet puis visualiser
le code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range(Target.Address), Range("B5:B35")) Is Nothing Then
If Target.Value >= 8 Then
Target.Interior.ColorIndex = 4
ElseIf Target.Value >= 5 And Target.Value < 8 Then
Target.Interior.ColorIndex = 6
ElseIf Target.Value >= 3 And Target.Value < 5 Then
Target.Interior.ColorIndex = 44
ElseIf Target.Value = 2 Then
Target.Interior.ColorIndex = 45
ElseIf Target.Value = 1 Then
Target.Interior.ColorIndex = 3
ElseIf Target.Value = 0 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

Cordialement
Pascal

"jaklou" a écrit dans le message de news:
c5l47j$ehb$
Existe t'il un moyen d'aller au delà des 3 conditions proposées par la
mise

en forme conditionnelle ?
Merci à tous