[VBA-Excel] modification automatique de la couleur des cellules

Version imprimable

23/06/2008, 17h09
ricachu

[VBA-Excel] modification automatique de la couleur des cellules

Bonjour à tous,

Dans une de mes feuilles de calcul, je souhaiterais, suivant les valeurs que l'on met dans la première colonne, que la ligne change de couleur automatiquement.

Par exemple, dans ma première colonne on peux mettre 3 valeurs : 0,1,2. Je souhaiterais que si la valeur est 1, la ligne deviennent de couleur jaune et si la valeur est 2, la ligne soit rouge.

Est-ce possible? j'ai regardé dans la FAQ, mais je n'ai pas trouvé d'informations.

Merci d'avance pour votre aide.
23/06/2008, 17h13
JackOuYA

Bonjour,

Il est possible d'écrire cela en VBA.

mais dans ton cas si tu nas que 3 couleurs tu peu utiliser la mise en forme conditionnelle.

Voir menu Format / Mise En forme conditionelle

Jacques.
23/06/2008, 17h27
ricachu

Merci pour ta réponse!
Mais je vais avoir beaucoup de conditions et de mises en forme différentes, et suivant la valeur dans la première colonne, je voudrais que toute la ligne ait la même couleur.

comment faire avec VBA?

re,

Alt F11 , pour passer dans l'éditeur VBE, puis CTRL+R explorateur de projet, double clic sur le nom de ta feuille et rajout de ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim c As Range
 Dim rIntersect As Range
 Set rIntersect = Intersect([A:A], Target)
 If Not rIntersect Is Nothing Then
    For Each c In rIntersect
      Select Case c.Value
        Case 1
          c.EntireRow.Interior.Color = vbRed
        Case 2
          c.EntireRow.Interior.Color = vbYellow
        Case 3
          c.EntireRow.Interior.Color = vbBlue
        Case 4
          c.EntireRow.Interior.Color = vbGreen
      End Select
    Next
 End If
 End Sub

Jacques.

Bonjour tlm,

Autre solution éventuelle, sans passer par une sélection de couleur pré-établie, en utilisant les index de couleur

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
    If Target.Value < 0 Or Target.Value > 56 Or Not IsNumeric(Target.Value) Then
        MsgBox "Veuillez saisir un chiffre entre 0 et 56"
        Target.Value = ""
        Exit Sub
    End If
    Target.EntireRow.Interior.ColorIndex = Target.Value
End Sub

24/06/2008, 09h39
ricachu

Ok parfait!

merci pour vos réponses!!!
24/06/2008, 14h52
Alexdad

Amélioration possible ?

Pour ma part les cellules incriminées "à coloriser" sont des formules.
Comment faire pour faire de la mise en forme conditionnelle VBA (comme la réponse n°4) sur les valeurs affichées des cellules ? :(
24/06/2008, 15h30
zazaraignée
Les objets Range ont (au moins) deux propriétés pour modifier ou consulter leur contenu. Value et Formula. Value retourne (ou modifie) la valeur brute (le résultat) et Formula retourne (ou modifie) la Formule.

Exemple :
A1 contient la date d'aujourd'hui
B1 contient ma date de naissance
C1 contient une formule pour calculer mon âge, soit :

Code:

=ANNEE(A1)-ANNEE(B1)

Le code suivant affiche la formule et la valeur de C1 :
Code:

1 2 3 4 Sub AfficherFormuleEtValeur() MsgBox "la formule """ & Feuil1.Range("C1").Formula & _ """ contenue dans C1 retourne " & Feuil1.Range("C1").Value End Sub
Autre astuce...
En créant une fonction ayant pour paramètre un objet range :
Code:

1 2 3 4 Function FormuleEtValeur(cellule As Range) As String FormuleEtValeur = "la formule """ & cellule.Formula & _ """ contenue dans C1 retourne " & cellule.Value End Function
on peut utiliser cette fonction comme formule de cellule :

Code:

=formuleetvaleur(C1)

avec ou sans égards pour les majuscules/minuscules...