VBAmise en forme conditionnelle selon valeurs
Résolu
eglantine217
Messages postés
54
Date d'inscription
Statut
Membre
Dernière intervention
-
eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai deux types de mise en forme à faire.
La première si dans le colonne F ma valeur =1 alors j'ai bleu clair si c'est égale à 2 j'ai turquoise
Jusque là c'est ok ça se complique après et je ne sais pas comment faire :
si F = 1
8 < colonne U< 19 : cellule de B à E et G à U devient orange
20 < U < 39 : B:E et G:U devient jaune
40 <U < 59 : B:E et G:U devient orange foncé
60 < U < 99 : B:E et G:U devient orange très foncé
valeur colonne U > 100 B:E et G:U devient rouge
merci d'avance
J'ai deux types de mise en forme à faire.
La première si dans le colonne F ma valeur =1 alors j'ai bleu clair si c'est égale à 2 j'ai turquoise
With Range("F:F")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 28
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="2"
.FormatConditions(2).Interior.ColorIndex = 45
End With
Jusque là c'est ok ça se complique après et je ne sais pas comment faire :
si F = 1
8 < colonne U< 19 : cellule de B à E et G à U devient orange
20 < U < 39 : B:E et G:U devient jaune
40 <U < 59 : B:E et G:U devient orange foncé
60 < U < 99 : B:E et G:U devient orange très foncé
valeur colonne U > 100 B:E et G:U devient rouge
merci d'avance
A voir également:
- VBAmise en forme conditionnelle selon valeurs
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Excel liste déroulante conditionnelle - Guide
- Mise en forme conditionnelle avec plusieurs conditions ✓ - Forum Excel
- Mise en forme conditionnelle word ✓ - Forum Word
2 réponses
Bonjour,
Essaie ce code:
où les conditions du genre <19 et >20 seront à revoir car elles laissent des intervalles non pris en considération.
Cordialement.
Essaie ce code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 500
If Range("F" & i) = 1 And Range("U" & i) > 8 And Range("U" & i) < 19 Then
Range("B" & i, "E" & i).Interior.ColorIndex = 3 'Rouge
Range("G" & i, "U" & i).Interior.ColorIndex = 44 'orange
ElseIf Range("F" & i) = 1 And Range("U" & i) > 20 And Range("U" & i) < 39 Then
Range("B" & i, "E" & i).Interior.ColorIndex = 6 'jaune
Range("G" & i, "U" & i).Interior.ColorIndex = 6
ElseIf Range("F" & i) = 1 And Range("U" & i) > 40 And Range("U" & i) < 59 Then
Range("B" & i, "E" & i).Interior.ColorIndex = 45 'orange foncé
Range("G" & i, "U" & i).Interior.ColorIndex = 45
ElseIf Range("F" & i) = 1 And Range("U" & i) > 60 And Range("U" & i) < 99 Then
Range("B" & i, "E" & i).Interior.ColorIndex = 46 'orange très foncé
Range("G" & i, "U" & i).Interior.ColorIndex = 46
ElseIf Range("F" & i) = 1 And Range("U" & i) > 100 Then
Range("B" & i, "E" & i).Interior.ColorIndex = 3 'rouge
Range("G" & i, "U" & i).Interior.ColorIndex = 3
ElseIf Range("F" & i) <> 1 Then
Range("B" & i, "E" & i).Interior.ColorIndex = xlNone
Range("G" & i, "U" & i).Interior.ColorIndex = xlNone
ElseIf Range("U" & i) < 8 Then
Range("B" & i, "E" & i).Interior.ColorIndex = xlNone
Range("G" & i, "U" & i).Interior.ColorIndex = xlNone
End If
Next i
End Sub
où les conditions du genre <19 et >20 seront à revoir car elles laissent des intervalles non pris en considération.
Cordialement.
eglantine217
Messages postés
54
Date d'inscription
Statut
Membre
Dernière intervention
j'ai commencé à travailler dessus ça marche mille merci pour votre aide précieuse bonne continuation !
