VBAmise en forme conditionnelle selon valeurs
Résolu/Fermé
eglantine217
Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013
-
12 juin 2012 à 09:58
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013 - 13 juin 2012 à 13:37
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013 - 13 juin 2012 à 13:37
A voir également:
- VBAmise en forme conditionnelle selon valeurs
- Mise en forme conditionnelle excel - Guide
- Excel mise en forme conditionnelle autre cellule ✓ - Forum Excel
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Mise en forme conditionnelle en fonction d'une autre cellule ✓ - Forum Excel
- Mise en forme conditionnelle 2 conditions ✓ - Forum Bureautique
2 réponses
g
Messages postés
1263
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
572
13 juin 2012 à 09:00
13 juin 2012 à 09:00
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.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
12 juin 2012 à 23:26
12 juin 2012 à 23:26
Bonjour,
Ce que tu veux faire n'est pas possible avec une MFC. Faudrait un code VBA.
A+
Ce que tu veux faire n'est pas possible avec une MFC. Faudrait un code VBA.
A+
13 juin 2012 à 13:37