Vba couleur cellule
Fermé
panda567
-
Modifié par pijaku le 26/12/2014 à 11:04
eriiic Messages postés 24510 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 26 déc. 2014 à 12:30
eriiic Messages postés 24510 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 26 déc. 2014 à 12:30
A voir également:
- Vba couleur cellule
- Excel compter cellule couleur sans vba ✓ - Forum Excel
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel si couleur cellule alors ✓ - Forum Excel
- Somme si couleur - Guide
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
25 déc. 2014 à 19:05
25 déc. 2014 à 19:05
Bonjour,
Essaie cela
Essaie cela
Option Explicit
Dim Valeur As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long
Dim DernLigne As Long
DernLigne = Range("A1048576").End(xlUp).Row
'Instance de la feuille qui permet d'utiliser FL1 partout dans
'le code à la place du nom de la feuille
Set FL1 = Worksheets("Feuil1")
'Fixe le N° de la colonne à lire
NoCol = 8
'Utilisation du N° de ligne dans une boucle For ... Next
For NoLig = 1 To DernLigne
Valeur = FL1.Cells(NoLig, NoCol)
With FL1.Range("H" & NoLig)
If Valeur < 5 Then 'If the evaluation is under 5 then the color of the cell will be black
.Interior.ColorIndex = 30
ElseIf Valeur = 5 Or Valeur = 6 Then 'If the evaluation is 5 or 6 then the color of the cell will be cyan
.Interior.ColorIndex = 46
ElseIf Valeur = 10 Then 'If the evaluation is 10 then the color of the cell will be blue
.Interior.ColorIndex = 3
ElseIf Valeur = 0 Or Valeur = 1 Then ' 'If the evaluation is 0 or 1 then the color of the cell will be red
.Interior.ColorIndex = 3
Else 'In other case, the cell will be white
.Interior.ColorIndex = 2
End If
End With
Next
Set FL1 = Nothing
End Sub
eriiic
Messages postés
24510
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
7 166
26 déc. 2014 à 12:30
26 déc. 2014 à 12:30
Bonjour,
Quelle version d'excel ?
Si >=2007 une simple MFC suffit.
eric
Quelle version d'excel ?
Si >=2007 une simple MFC suffit.
eric